Excel Excluir Linhas Com Criterio VBA

[DECOVIOTI]

Ola Pessoal

Tenho uma relatório que contem duas colunas e gostaria de criar uma macro fizesse uma comparação entre essas duas colunas e quando o valor dessas duas colunas for diferente entre si, gostaria que a macro excluísse a linha e ao final, exibisse a quantidade de registros deletado, Podem me ajudar?

 

 

 

 

[Midori]

Considerando as colunas 7 e 8

 

Sub ExcluirLinhas()
    Dim L, C As Long
    
    L = 2
    
    Do Until Cells(L, 7) = ""
        If Cells(L, 7) <> Cells(L, 8) Then
            Cells(L, 1).EntireRow.Delete
            C = C + 1
            L = L - 1
        End If
        L = L + 1
    Loop
    
    If C Then MsgBox C & " linhas excluídas"
End Sub

 

[Visitante]

Sub ExcluiLinhas()
 Dim k As Long, v As Long
  For k = Cells(Rows.Count, 7).End(3).Row To 2 Step -1
   If Cells(k, 7) <> Cells(k, 8) Then Rows(k).Delete: v = v + 1
  Next k
  MsgBox "FORAM EXCLUÍDAS " & v & " LINHAS"
End Sub