VBA - Gebruik de ALS-functie voor 2 cellen

Kwestie

Ik heb overal zonder resultaat gezocht naar een antwoord op het maken van een IF-lus voor de volgende situatie:

Ik heb een Excel-werkblad met verschillende woorden, bijvoorbeeld. namen, helemaal naar beneden in kolom A.
Ik wil een lus maken waarbij als twee cellen verschillende namen hebben, er twee lege rijen tussen worden ingevoegd.

bv.

Cel A1: Anne

Cel A2: Anne

Cel A3: Bob

Cel A4: Charlie

Tussen A1 en A2 worden dus twee lege rijen ingevoegd. Tussen Bob & Charlie worden nog eens 2 lege rijen ingevoegd.

Oplossing

Probeer deze macro

wanneer je de macro aanroept ...

Er verschijnt een invoervak. vul het aanvankelijke celadres in voor bijvoorbeeld A10.

 Sub test () Kolommen ("A: A"). Sorteer Key1: = Range ("A1"), Order1: = xlAscending, Header: = xlGuess Dim j As Integer, k As Integer, m As Integer, r As String r = InputBox ("typ de eerste cel onder referentie, bijv. A10") m = Bereik (r). Ruwe j = Bereik ("A10"). Einde (xlDown) .Rots 'j is de laatste rij Voor k = j Aan m + 1 Stap -1 Als Cellen (k, 1) Cellen (k - 1, 1) Dan Bereik (Cellen (k, 1), Cellen (k + 1, 1)) EntireRow.Insert End If Next k End Sub