VBA - IF funkcijų naudojimas 2 ląstelėms

Problema

Visur ieškojau nepatenkintų atsakymų, kaip sukurti IF kilpą šiai situacijai:

Turiu Excel lapą su skirtingais žodžiais, pvz. pavadinimai, einant visą stulpelį A.
Noriu sukurti kilpą, kurioje, jei dvi ląstelės turi skirtingus pavadinimus, tarp jų yra 2 tuščios eilutės.

pvz.

Ląstelė A1: Anne

Ląstelė A2: Anne

Ląstelė A3: Bobas

Ląstelė A4: Charlie

Taigi tarp A1 ir A2 bus įterptos dvi tuščios eilutės. Tarp Bobo ir Charlie įterpiamos dar 2 tuščios eilutės.

Sprendimas

Išbandykite šį makrokomandą

kai kreipiatės į makrokomandą ...

Atsiras įvesties laukelis. užpildykite pradinį langelio adresą, pvz., A10.

 Sub test () stulpeliai ("A: A") Rūšiuoti raktą1: = diapazonas ("A1"), 1 tvarka: = xlAscending, antraštė: = xlGuess Dim j kaip Integer, k Kaip Integer, m Kaip Integer, r Kaip String r = InputBox ("įveskite pirmąją ląstelę pagal nuorodą, pvz., A10") m = diapazonas (r). Eilė j = diapazonas ("A10"). Pabaiga (xlDown). 1 žingsnis -1 Jei ląstelės (k, 1) Ląstelės (k - 1, 1) Tada diapazonas (ląstelės (k, 1), ląstelės (k + 1, 1)) EntireRow.Indert End Jei kitas k Pabaiga