VBA - Використання функції IF для 2 клітин

Проблема

Я всюди шукав невдало для відповіді, як створити петлю IF для наступної ситуації:

У мене є лист Excel з різними словами, наприклад. прізвища, що йдуть до кінця колонки А.
Я хочу створити цикл, де, якщо дві клітини мають різні назви, то між ними вставляються 2 порожні рядки.

напр.

Осередок А1: Енн

Стільниця A2: Енн

Клітка A3: Боб

Клітка А4: Чарлі

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

Рішення

Спробуйте цей макрос

під час виклику макросу ...

З'явиться вікно вводу. заповніть початкову адресу комірки, наприклад, A10.

 Sub тест () Стовпці ("A: A") Сортування Key1: = Діапазон ("A1"), Order1: = xlAscending, Header: = xlGuess Dim j Як ціле, k як ціле, m як ціле, r як рядок r = InputBox ("введіть першу клітинку під посиланням, наприклад A10") m = Діапазон (r) .Row j = Діапазон ("A10"). Кінець (xlDown) .Row 'j - останній рядок Для k = j До m + 1 Крок 1 Якщо клітинки (k, 1) осередки (k - 1, 1), то діапазон (клітинки (k, 1), клітинки (k + 1, 1)). EntireRow.Insert End If Next k End Sub