VBA - Použitie IF funkcie pre 2 bunky

Problém

Všade som neúspešne hľadal odpoveď na to, ako vytvoriť IF slučku pre nasledujúcu situáciu:

Mám Excel list s rôznymi slovami napr. názvy, ktoré idú až po stĺpec A.
Chcem vytvoriť slučku, kde ak dve bunky majú rôzne mená, potom sa medzi ne vložia 2 prázdne riadky.

eg.

Bunka A1: Anne

Bunka A2: Anne

Bunka A3: Bob

Bunka A4: Charlie

Takže medzi A1 a A2 budú vložené dva riadky. Medzi Bob & Charlie sa vložia ďalšie 2 prázdne riadky.

Riešenie

Skúste toto makro

keď vyvoláte makro ...

Zobrazí sa vstupné pole. vyplňte počiatočnú adresu bunky napr. A10.

 Sub test () Stĺpce ("A: A") Zoradiť kláves1: = Rozsah ("A1"), Poradie1: = xlAscending, Záhlavie: = xlGuess Dim j Ako celé číslo, k Ako celé číslo, m ako celé číslo, r ako reťazec r = InputBox ("zadajte prvú bunku pod referenciu napr. A10") m = Rozsah (r) .Row j = Rozsah ("A10") Koniec (xlDown) .Row 'j je posledný riadok Pre k = j Pre m + 1 Krok -1 Ak bunky (k, 1) Bunky (k - 1, 1) Potom Rozsah (Bunky (k, 1), Bunky (k + 1, 1)) EntireRow.Insert End If Next k End Sub