Preciso remover duplicadas que estão em mais de uma coluna, estava fazendo um teste com apenas duas.
Usei o seguinte:
Sub excluirRepetidos()
Dim anterior As Long
Dim posterior As Long
For anterior = 2 To Sheets(1).UsedRange.Rows.Count - 1
For posterior = anterior + 1 To Sheets(1).UsedRange.Rows.Count
If Sheets(1).Cells(anterior, 1).Value = Sheets(1).Cells(posterior, 1).Valeu Then
If Sheets(1).Cells(anterior, 2).Value = Sheets(1).Cells(posterior, 2).Valeu Then
Sheets(1).Cells(posterior, 1).EntireRow.Delete
End If
End If
Next posterior
Next anterior
End Sub
Dessa forma gostaria que ele validasse nas duas colunas se tem algo repetido com a linha anterior e se positivo removesse a linha, porém, da erro na linha: If Sheets(1).Cells(anterior, 1).Value = Sheets(1).Cells(posterior, 1).Valeu Then
Pergunta
Emerson Pedro
Boa tarde tudo bem?
Preciso remover duplicadas que estão em mais de uma coluna, estava fazendo um teste com apenas duas.
Usei o seguinte:
Sub excluirRepetidos()
Dim anterior As Long
Dim posterior As Long
For anterior = 2 To Sheets(1).UsedRange.Rows.Count - 1
For posterior = anterior + 1 To Sheets(1).UsedRange.Rows.Count
If Sheets(1).Cells(anterior, 1).Value = Sheets(1).Cells(posterior, 1).Valeu Then
If Sheets(1).Cells(anterior, 2).Value = Sheets(1).Cells(posterior, 2).Valeu Then
Sheets(1).Cells(posterior, 1).EntireRow.Delete
End If
End If
Next posterior
Next anterior
End Sub
Dessa forma gostaria que ele validasse nas duas colunas se tem algo repetido com a linha anterior e se positivo removesse a linha, porém, da erro na linha: If Sheets(1).Cells(anterior, 1).Value = Sheets(1).Cells(posterior, 1).Valeu Then
O que posso fazer?
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.