Excel código vba para inserir célula após repetição

[Rodolfo P Gallo]

Boa tarde pessoal tudo bem? Primeira vez que uso o fórum para tirar uma dúvida de VBA.

 

tenho uma plan onde tenho dados em uma coluna assim

 

bola

bola

tesoura

telefone

telefone

telefone

caneta

caneta

caneta

caneta

 

E a cada repetição preciso inserir uma outra célula com um texto especifico, como se fosse um separador, exemplo:

 

bola

bola

TEXTO

tesoura

TEXTO

telefone

telefone

telefone

TEXTO

caneta

caneta

caneta

caneta

TEXTO

 

Preciso que isso seja feito em VBA, alguém sabe?

Obrigado pela ajuda!

 

 

 

[Basole]

Veja o exemplo.

Considerando que os dados estão dispostos na coluna A e comecam pela linha 2

 

Sub InserirCélulaAposRepetição()
Dim i        As Long
Dim LR  As Long

LR = Cells(Rows.CountLarge, "A").End(xlUp).Row

For i = LR To 2 Step -1
    If i = LR Then
         If Application.WorksheetFunction.CountIf(Range("A2:A" & i), _
               Range("A" & i).Value2) > 1 Then Cells(i + 1, "A").Value2 = "TEXTO"
    End If
            If i = 2 Then
            ElseIf Cells(i, "A") <> Cells(i - 1, "A") Then
                 Cells(i, "A").Insert
                  Cells(i, "A").Value2 = "TEXTO"
                  Cells(i, "A").Font.Bold = True
            End If
Next i

End Sub

 

[Rodolfo P Gallo]

@Basole Muito Obrigado pela ajuda! Deu certo! Abraços!