Osvaldo obrigado, mas ainda não deu certo, na coluna A onde tem os números a macro tem que respeitar enquanto a coluna A for igual ele procura o segundo repetido na coluna B na hora que mudar na coluna A ele começa uma nova procura na coluna B a partir da linha da coluna A, hoje está assim: ele sai comparando linha a linha sem antes verificar se a coluna A é igual.

enquanto a coluna A for igual ele procura os repetidos na coluna B e colorir somente o 2 repetido que achar independente se tiver 3 ou 4...

Coluna A Coluna B
1 a
1 b
1 c
1 a
1 b
1 d
1 b
2 x
2 a
2 z
2 b
2 a
2 a
2 b

O código que eu sugeri irá destacar as células em vermelho acima, conforme o que eu entendi do critério que você estabeleceu.
Se não for isso, marque qual o resultado que você espera?

Boa tarde Osvaldo, é isto mesmo, só preciso que quando ele achar o 2º item repetido, exemplo se for o A no repetido ele deixe o que já está escrito e acrescente zz, se for o B repetido a mesma coisa no 2º repetido fica Bzz.

Obrigado.

Se puder me explicar:

For k = 1 To Cells(Rows.Count, 1).End(3).Row - Qual o significado do END(3)

If Application.CountIf(Range(Cells(k, 2), Cells(x, 2)), Cells(x, 2)) = 2 Then Cells(x, 2).Interior.ColorIndex = 36 - Explicar Range(Cells(k, 2), Cells(x, 2)), Cells(x, 2)) = 2

Obrigado

... mas ainda não deu certo...

... é isto mesmo

O que você fez que de repente deu certo ?

... só preciso que quando ele achar o 2º item repetido, exemplo se for o A no repetido ele deixe o que já está escrito e acrescente zz, se for o B repetido a mesma coisa no 2º repetido fica Bzz.

No seu exemplo não existe A nem B, existe a e b
A sua primeira questão foi pedir um código para selecionar células conforme critério, agora você mudou o critério e quer acrescentar valores nas células. Me parece que você simplificou a pergunta com a esperança de obter uma solução e em seguida fazer a adaptação para a sua necessidade. Essa manobra geralmente não dá certo. Sugiro que você tire um tempo para planejar o que você realmente quer depois coloque aqui a pergunta completa.

Alem do que o colega Osvaldo disse, pelo que entendi da rotina, independe se tivermos Maiusculas ou Minusculas, mas o ponto crucial é que se alterar o valor da celula pela rotina da forma que quer isto irá influenciar nas demais comparações e consequentemente nos resultados.
O ideal seria jogar os valores em outra coluna, veja as diferenças :

Nas duas dicas troque a linha :
If Application.CountIf(Range(Cells(k, 2), Cells(x, 2)), Cells(x, 2)) = 2 Then Cells(x, 2).Interior.ColorIndex = 36
Primeira opção : por esta :
If Application.CountIf(Range(Cells(k, 2), Cells(x, 2)), Cells(x, 2)) = 2 Then Cells(x, 3).Value = Cells(x, 2).Value & "zz" - iremos colocar o valor na coluna 3

Segunda opção, por esta :
If Application.CountIf(Range(Cells(k, 2), Cells(x, 2)), Cells(x, 2)) = 2 Then Cells(x, 2).Value = Cells(x, 2).Value & "zz" - nesta verá que os resultados não conferem devido a estarmos alterando os valores na coluna de comparação.

Uma outra dica é se vai entrar no mundo do VBA, prcure ler algumas apostilas para pelo menos estar familiarizado com as instruções básicas para poder entende-las, se não irá ficar sempre dependente de ajuda, na net existem vários cursos gratuitos, é só pesquisar.

E como foi dito, procure colocar sempre o que realmente pretende, assim evitamos posts desnecessários e lembrando que toda ajuda é voluntária e depende de tempo disponível de cada colaborador, eu por exemplo as vezes nem consigo responder, só entre um intervalo e outro.
Pense nisto.

[]s