Excel Incluir caracteres diferentes em lançamentos Duplicados

[Bruno Rimoldi]

Boa tarde amigos,

 

após consolidar essa planilha, muitos lançamentos da coluna A (BDP Ref.) estão duplicados. Existe alguma maneira de incluir por VBA um "_x" nos códigos duplicados?

 

Segue uma planilha de exemplo onde mostra uma aba de Como é e a outra de Como deve ficar.

 

Grato

Bruno Rimoldi

Exemplo_Cod_Duplicado.xlsx

[Visitante]

Experimente:

Sub AcrescentaX()
 Dim B As Long, c As Long, m As Long
  For B = 2 To Cells(Rows.Count, 1).End(3).Row
   c = Application.CountIf([A:A], Cells(B, 1))
   If c > 1 Then
    For m = 1 To c - 1
     Cells(B + m, 1) = Cells(B + m, 1) & "_" & Application.Rept("x", m)
    Next m
    B = B + c - 1
   End If
  Next B
End Sub

 

[Bruno Rimoldi]

@osvaldomp , é isso mesmo meu amigo. Uma pergunta, se ao invés de _xxx eu quiser numerar as duplicações, como ficaria?

Ex.:

_1

_2

_3

[Visitante]

substitua Application.Rept("x", m) ~~~> por m

[Bruno Rimoldi]

@osvaldomp MARAVILHA... Deu certo Osvaldo.. Muito obrigado pela ajuda...