Neste artigo, criaremos uma macro para verificar a duplicação e remover valores duplicados de duas colunas consecutivas.
Os dados brutos consistem em detalhes do destino, que incluem o nome do agente, o nome do modelo do destino e o nome do modelo desejado.
Neste artigo, queremos excluir esses registros, que têm o nome do modelo de destino e o nome do modelo desejado semelhantes.
Explicação do código
LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row
O código acima é usado para obter o número da linha da última célula.
Para i = LastRow to 12 Step -1
Próximo
O loop For acima é usado para loop reverso. Ele vai começar a repetir a partir da última linha até a 12º fileira.
Se Células (i, 2) = Células (i, 3) Então
No código acima, comparamos os valores nas células de 2WL coluna com 3rd coluna.
Linhas (i). Excluir
O código acima é usado para excluir a linha inteira.
Siga abaixo para o código
Option Explicit Sub DeleteMatches () 'Declarando variáveis Dim LastRow, i As Long' Obtendo o número da linha da última célula LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row 'Loop da última linha até a 12ª linha Para i = LastRow To 12 Step -1 If Cells (i, 2) = Cells (i, 3) Then Rows (i) .Delete End If Next End Sub
Se você gostou deste blog, compartilhe com seus amigos no Facebook. Além disso, você pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar nosso trabalho e torná-lo melhor para você. Escreva para nós no site de e-mail