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

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

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

Essa macro do Aplicativo Microsoft Excel VBA, juntamente com uma função retornam valores únicos em determinada coluna coluna,
observe que a macro copia para coluna(B) valores únicos existentes na coluna(A), valores não duplicados.

Sub Copiar_valores_unicos()
Dim coll As Collection, i As Long
Set coll = RetornaValorUnico(Range("A1:A100"))
If coll Is Nothing Then Exit Sub

Range("C1:C100").Clear
For i = 1 To coll.Count
Range("C1").Offset(i - 1, 0).Formula = coll(i)
Next i
End Sub

Function RetornaValorUnico(KeyRange As Range, Optional ItemRange As Range) As Collection
Dim r As Long, c As Long, varItem As Variant, strKey As String
If Not KeyRange Is Nothing Then
Set RetornaValorUnico = New Collection
With KeyRange
For c = 1 To .Columns.Count
For r = 1 To .Rows.Count
strKey = vbNullString
varItem = vbNullString

On Error Resume Next
strKey = Trim(CStr(.Cells(r, c).Value))

If Not ItemRange Is Nothing Then
varItem = ItemRange.Cells(r, c).Value
Else
varItem = .Cells(r, c).Value
End If

If Len(strKey) > 0 Then
RetornaValorUnico.Add varItem, strKey
End If
On Error GoTo 0
Next r
DoEvents
Next c
End With
If RetornaValorUnico.Count = 0 Then
Set RetornaValorUnico = Nothing
End If
End If
End Function

Sub limpar_teste()
[C:C].ClearContents
End Sub


Aprenda Aplicativo Microsoft Excel VBA com SaberExcel - o site das macros

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