Como excluir linhas que não correspondem aos critérios definidos noutra folha?

Poderá não ser difícil para si excluir linhas que não correspondem aos critérios na mesma folha, mas conhece alguma forma de eliminar as linhas que não correspondem a critérios noutra folha, conforme ilustrado abaixo? Apresento-lhe agora dois truques que o podem ajudar a resolver esta tarefa rapidamente.

Excluir linhas que não correspondem a critérios noutra folha com VBA

Excluir linhas que não correspondem a critérios noutra folha com Kutools para Excel

Critérios (na folha 2)	Antes (folha 1)		Após (Folha1)

---

Excluir linhas que não correspondem a critérios noutra folha com VBA

Existe um código VBA que o pode ajudar a eliminar linhas que não correspondam aos critérios definidos noutra folha.

1. Prima Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela, clique em Inserir > Módulo para abrir uma nova janela de módulo e, em seguida, copie o seguinte código VBA para essa janela.

VBA: Elimine linhas que não correspondam aos critérios definidos noutra folha do Excel.

Sub DeleteRow()
'Updateby20140618
Dim rng As Range
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant
Dim arr2 As Variant
Dim dic2 As Variant
Dim OutArr As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Set Rng1 = Rng1.Columns(1)
Set Rng2 = Rng2.Columns(1)
Set dic2 = CreateObject("Scripting.Dictionary")
arr1 = Rng1.Value
arr2 = Rng2.Value
For i = 1 To UBound(arr2, 1)
    xKey = arr2(i, 1)
    dic2(xKey) = ""
Next
Rng1.ClearContents
OutArr = Rng1.Value
xIndex = 1
For i = 1 To UBound(arr1, 1)
    xKey = arr1(i, 1)
    If dic2.Exists(xKey) Then
        OutArr(xIndex, 1) = xKey
        xIndex = xIndex + 1
    End If
Next
Rng1.Value = OutArr
End Sub

3. Clique em Executar, uma KutoolsforExcelSurge uma caixa de diálogo que lhe permite selecionar um intervalo do qual pretende eliminar as linhas que não correspondem aos critérios. Veja a imagem:

4. Clique em OK e surge outra caixa de diálogo para selecionar os critérios noutra folha. Veja a imagem:

5. Agora, todas as linhas que não cumprem os critérios noutra folha foram removidas.

---

Excluir linhas que não correspondem a critérios noutra folha com Kutools para Excel

Se o código VBA lhe parecer um pouco complicado, experimente a funcionalidade Comparar Intervalos do Kutools para Excel.

Kutools para Excel inclui mais de 300 ferramentas práticas para o Excel. Experimente gratuitamente e sem limitações durante 30 dias! Obtenha já

1. Selecione a folha em que pretende eliminar as linhas que não correspondem aos critérios e clique em Kutools > Intervalo > Comparar Células. Veja a imagem:

2. Na caixa de diálogo Comparar Células, clique no botão junto a Intervalo B e selecione o intervalo de critérios pretendido. Veja a imagem:

 

3. Em seguida, clique em OK, regresse à caixa de diálogo Comparar Intervalos e marque Valor Diferente e Selecionar Linha Inteira. Veja a imagem:

4. Clique em Ok e saia da caixa de diálogo Comparar Intervalos. As linhas com valores diferentes dos critérios selecionados serão então destacadas.

5. Clique com o botão direito do rato e selecione Eliminar no menu de contexto para eliminar as linhas que não correspondem aos critérios noutra folha.

Clique aqui para saber mais sobre a funcionalidade Comparar Intervalos do Kutools para Excel.

---

Artigos Relacionados:

• Excluir linhas que não contenham determinado texto no Excel

---