VBA - IF-funktsiooni kasutamine kahe raku puhul

Probleem

Olen otsinud õnnestumata kõikjal, et saada vastus sellele, kuidas luua IF-tsükkel järgmisele olukorrale:

Mul on erineva sõnaga Exceli leht, nt. nimesid, sõites alla veerus A.
Ma tahan luua silmus, kus kui kahel rakul on erinevad nimed, siis sisestatakse nende vahele 2 tühja rida.

nt.

Cell A1: Anne

Cell A2: Anne

Cell A3: Bob

Cell A4: Charlie

Nii A1 ja A2 vahel sisestatakse kaks tühja rida. Bob & Charlie vahel lisatakse veel 2 tühja rida.

Lahendus

Proovige seda makro

kui kasutate makroid ...

Tekib sisendkast. täitke näiteks lahtri A10 algne aadress.

 Alamtesti () veerud ("A: A"). Sorteerimise klahv1: = vahemik ("A1"), järjekord1: = xlAscending, päis: = xlGuess Dim j kui tervikuna, k kui tervikuna, m kui tervikuna, r kui string r = InputBox ("tippige esimesse lahtrisse viide nt A10") m = vahemik (r) .Rida j = vahemik ("A10"). Lõpp (xlDown) .Rida 'j on viimane rida k = j jaoks m + 1. samm -1 Kui rakud (k, 1) rakud (k - 1, 1), siis vahemik (rakud (k, 1), rakud (k + 1, 1)) EntireRow.Indert End kui järgmine k Lõpeta alam