Essa macro do Aplicativo Microsoff Excel VBA, verifica duplicados digitados na coluna(A) e insere um formatação nos duplicados, na cor vermelho.

Sub Verificando_duplicados()

Dim vLoop As Integer
Dim vTestandoLoop As Integer
Dim vLimparRange As String

Dim vLinhas As Integer
Dim vRange As String

'Valores da coluna(A)
Dim iValorDigitado As String
Dim vTestandoValor As String

'Valores da Coluna(B)
Dim iValorDigitadoB As String
Dim vTesteValorB As String

'testando as primeiras 200 linhas da folha de planilha para valores unicos
vLinhas = 200
vLoop = 2

'limpando os dados
vLimparRange = "A2:B" & vLinhas
Range(vLimparRange).Interior.ColorIndex = xlNone

'checando as primeiras 200 linhas da folha de planilha
While vLoop <= vLinhas
iValorDigitado = "A" & CStr(vLoop)
iValorDigitadoB = "B" & CStr(vLoop)

If Len(Range(iValorDigitado).Value) > 0 Then

'testando valores únicos
vTestandoLoop = 2
While vTestandoLoop <= vLinhas
If vLoop <> vTestandoLoop Then
vTestandoValor = "A" & CStr(vTestandoLoop)
vTesteValorB = "B" & CStr(vTestandoLoop)

'para valores duplicados em determinadas células
If (Range(iValorDigitado).Value = Range(vTestandoValor).Value) And (Range(iValorDigitadoB).Value = Range(vTesteValorB).Value) Then

'Estabelecer a cor de fundo em vermelho(3) para os dados duplicados coluna(A)
Range(iValorDigitado).Interior.ColorIndex = 3
Range(vTestandoValor).Interior.ColorIndex = 3

'determinando a cor de fundo vermelho(3) para os dados duplicados na coluna(B)
Range(iValorDigitadoB).Interior.ColorIndex = 3
Range(vTesteValorB).Interior.ColorIndex = 3

End If

End If

vTestandoLoop = vTestandoLoop + 1
Wend

End If

vLoop = vLoop + 1
Wend

End Sub

'retirando os formatos para realização do teste

Sub tirar_format()
Range("A2:B1288").Select
Selection.Interior.ColorIndex = 2
Range("C1").Select
End Sub

'Esta macro abre a paleta de cores
Sub Abre_Paleta_Cores()
a = Application.Dialogs(xlDialogEditColor).Show(1, 0, 0, 0)
End Sub

Aprenda Aplicativo Microsoff Excel VBA - SaberExcel

Estes exemplo de FC(Formatação Condicional) do Aplicativo Microsoft Excel, usando fórmulas como Formatação condicional e alguns CheckBoxes de acionando os CheckBoxes localiza os duplicados em cada coluna, através de: Formatação Condicional >> Fórmulas >> e Macros

Seleciona celulas ir >> Formatar >Formatação Condicional e ver o que foi implantado
Observe que as caixas de Seleção (CheckBox) estão diretamente ligada a uma célula (nomeada)
Por exemplo Caixa de Seleção1 = ligada à célula(A1)
Por exemplo Caixa de Seleção2 =DupeLink(célula nomeada) = $I$1
Por exemplo Caixa de Seleção1 =$I$1
Observe os nomes dos ranges para entender melhor como foi feito esta planilha,
poderá lhe muito útil em suas aplicações

A coluna(A) tem essa formula na Formatação condiconal
=E($A3>=FirstNum;$A3<=SecondNum;CheckBoxLink) 'Células nomeadas

A coluna(F) tem essa formula na Formatação condiconal
=E(CONT.SE($F$3:$F$100;$F3)>1;DupeLink;$F3<>"") 'Células nomeadas

coluna(H) - tem essa fórmula na formatação condicional
=E(CONT.SE($H3:$H$100;$H3)>1;CONT.SE($H$3:$H3;$H3)=1;DupeLink2;$H3<>"") 'Células nomeadas




Aplicativo Microsoft Excel VBA - SaberExcel - o site das macros

Esses procedimentos e fórmulas do Aplicativo Microsoft Excel VBA,usando o Evento Worksheet_Change, retorna um determinado valor duplicado digitado na coluna(A) da folha de planilha, também contém exemplo na planilha do uso de fórmulas para formatação de dados duplicados. A fórmula é essa: '=SE(CONT.SE($C$9:$C$16;C9)>1;"< DUPLICADOS!";"") . baixe o exemplo de planilha no final da página.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim vLinha, vLinhaFinal As Integer ' Declara nLinha com Inteiro
If ActiveCell.Column = 1 Then ' só funciona na coluna 1
vLinhaFinal = 1 ' Define qual é linha onde inicia-se os dados para achar i final da lista

Do While Not IsEmpty(Cells(vLinhaFinal, 1)) ' Faça enquanto não for vazia as células de valores informado
vLinhaFinal = vLinhaFinal + 1 ' Incrementa uma linha para baixo
Loop ' Faz o Loop

vLinha = 1 'Define qual é linha que inicia-se os dados para comparação
Do While vLinha <= vLinhaFinal - 2 ' Faça enquanto conter valores informado
If Cells(vLinhaFinal - 1, 1).Value = Cells(vLinha, 1).Value Then ' Caso o último valores informado for igual ao valores em comparação então...
MsgBox "Valores duplicado", vbCritical, "Cadastro valores !" 'Exibe uma mensagem
Cells(vLinhaFinal - 1, 1).Activate 'Ativa o valores em duplicidade
Cells(vLinhaFinal - 1, 1).Interior.ColorIndex = 4 ' Formata o interior da célula em verde
Exit Sub ' Finaliza Código
Else ' Senão
vLinha = vLinha + 1 ' Vai para o próximo valores da lista
End If ' Finaliza IF
Loop ' Faz o Ciclo
Cells(vLinha + 1, 1).Activate ' Não achando duplicidade, ativa a próxima célula
If vLinhaFinal > 1 Then Cells(vLinhaFinal - 1, 1).Interior.ColorIndex = xlNone ' Retira o formato do interior da célula em verde, caso contiver
If vLinhaFinal > 1 Then Cells(vLinhaFinal, 1).Interior.ColorIndex = xlNone ' Retira o formato do interior da célula em verde, caso contiver
End If
End Sub ' Encerra o código

Aprenda Microsoft Excel VBA - SaberExcel

Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, contém uma macro que impede o usuário de digitar dados duplicados, repetidos.
Observe que a interdição é partir da Validação de Dados do próprio Aplicativo Microsoft Excel VBA, através do Visual Basic Application

Sub duplicados_validacao_dados()
''With Range("G1").Validation
With Range("A1:H10").Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="''''=CONT.SE($A$1:$H$10;A1)=1"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Numero Duplicado!"
.InputMessage = ""
.ErrorMessage = "Este número ja foi digitado!"
.ShowInput = True
.ShowError = True
End With
Range("I1").Select
End Sub

Aprenda Aplicativo Microsoft Excel VBA -Saberexcel