VBA - Използване на функцията IF за 2 клетки

Проблем

Търсех неуспешно навсякъде, за да отговоря как да създам IF цикъл за следната ситуация:

Имам Excel лист с различни думи, напр. имена, излизащи чак до колона А.
Искам да създам цикъл, където ако две клетки имат различни имена, тогава между тях се вмъкват 2 празни реда.

напр.

Клетка А1: Ан

Клетка А2: Ан

Клетка А3: Боб

Клетка А4: Чарли

Така между A1 и A2 ще бъдат вмъкнати два реда редове. Между Боб & Чарли се поставят още 2 празни редове.

Решение

Опитайте този макрос

когато извикате макроса ...

Ще се появи поле за въвеждане. попълнете първоначалния адрес на клетка например за A10.

 Под-тест () Колони ("А: А"). = InputBox ("въведете първата клетка под референтна стойност например A10") m = Обхват (r) .Row j = Обхват ("A10"). Край (xlDown). 1 Стъпка -1 Ако Клетки (k, 1) Клетки (k - 1, 1) Тогава Обхват (Клетки (k, 1), Клетки (k + 1, 1)). EntireRow.Insert End If Next k Край Sub