VBA - Verwenden der IF-Funktion für 2 Zellen

Problem

Ich habe überall erfolglos nach einer Antwort gesucht, wie eine IF-Schleife für die folgende Situation erstellt werden kann:

Ich habe eine Excel-Tabelle mit verschiedenen Wörtern, z. Namen, gehen den ganzen Weg die Spalte A hinunter.
Ich möchte eine Schleife erstellen, in der zwei leere Zeilen eingefügt werden, wenn zwei Zellen unterschiedliche Namen haben.

z.B.

Zelle A1: Anne

Zelle A2: Anne

Zelle A3: Bob

Zelle A4: Charlie

Zwischen A1 und A2 werden also zwei Leerzeilen eingefügt. Zwischen Bob & Charlie werden zwei weitere leere Zeilen eingefügt.

Lösung

Probieren Sie dieses Makro aus

wenn Sie das Makro aufrufen ...

Ein Eingabefeld wird angezeigt. Geben Sie die ursprüngliche Zellenadresse für z. B. A10 ein.

 Untertest () Spalten ("A: A") Sortierschlüssel1: = Bereich ("A1"), Reihenfolge1: = xlAscending, Kopfzeile: = xlGuess Dim j Als Ganzzahl, k Als Ganzzahl, m Als Ganzzahl, r Als Zeichenfolge r = InputBox ("Geben Sie die erste Zelle unter Referenz ein, z. B. A10") m = Range (r) .Row j = Range ("A10"). End (xlDown) .Row 'j ist die letzte Zeile Für k = j Bis m + 1 Schritt -1 Wenn Zellen (k, 1) Zellen (k - 1, 1) Dann Bereich (Zellen (k, 1), Zellen (k + 1, 1)) EntireRow.Insert End If Next k End Sub