VBA - Utilizzo della funzione IF per 2 celle

Problema

Ho cercato invano ovunque per una risposta a come creare un ciclo IF per la seguente situazione:

Ho un foglio Excel con parole diverse es. nomi, andando fino in fondo alla colonna A.
Voglio creare un ciclo in cui se due celle hanno nomi diversi, vengono inserite due righe vuote tra loro.

per esempio.

Cella A1: Anne

Cella A2: Anne

Cell A3: Bob

Cell A4: Charlie

Quindi tra A1 e A2 saranno inserite due righe bianche. Tra Bob e Charlie vengono inserite altre 2 righe vuote.

Soluzione

Prova questa macro

quando invochi la macro ...

Verrà visualizzata una finestra di input. compilare l'indirizzo della cella iniziale per es. A10.

 Sub test () Columns ("A: A") Sort Key1: = Range ("A1"), Order1: = xlAscending, Header: = xlGuess Dim j As Integer, k Integer, m As Integer, r As String r = InputBox ("digita la prima cella sotto riferimento ad es. A10") m = Range (r) .Row j = Range ("A10"). End (xlDown) .Row 'j è l'ultima riga Per k = j A m + 1 Passaggio -1 Se celle (k, 1) Celle (k - 1, 1) Quindi Intervallo (Celle (k, 1), Celle (k + 1, 1)). InteroRetro.Inserita Fine Se Successivo k Fine Sott.