Saberexcel - o Site das Macros

Essa macro do Aplicativo Microsoft Excel VBA, deleta dados duplicados em determinada região, voce poderá selecionar manualmente a região que deseja examinar e deletar todos os dados duplicados, da também para verificar os dados duplicados e não duplicados, só adptar código na macro, observe as cores do interior da célula, as que a condição if for Verdadeira e ou falsa.

Sub Duplicados_ou_nao_Duplicados()
Dim sbColecao As New Collection, Cell As Range, sbRegiao As Range
If [M12].Value = "Dados duplicados deletados" Then
MsgBox ("Dados duplicados já deletados, insira novamente novos dados"), vbCritical, "Saberexcel - site das Macros"
Exit Sub
End If

On Error Resume Next
Set sbRegiao = Application.InputBox("Selecione área [range a examinar]", "Saberexcel - site das macros", Type:=8)
If IsEmpty(sbRegiao) Then Exit Sub

For Each Cell In sbRegiao
If Cell.Value <> "" Then
sbColecao.Add Cell.Value, CStr(Cell.Value)
If Err <> 0 Then
Err.Clear
Cell.ClearContents
'Cell.Interior.ColorIndex = 43
Else
'Cell.ClearContents
Cell.Interior.ColorIndex = 6
End If
End If
Next Cell
[M12].Value = "Dados duplicados deletados"
End Sub

Sub copiar_para_teste()
Sheets("Plan2").Select
Range("A1:J10").Select
Selection.Copy
Sheets("Plan1").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
[M12].Value = "Novos dados inseridos para teste"
End Sub



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel





   Baixe o exemplo de planilha com a macro acima
Excel planilha vba duplicados elimina ou insere cores numeros duplicados (20.68 kB)