Einfügen mehrerer leerer Zeilen in Excel

Das Erstellen eines Makros in Microsoft Excel bietet Benutzern die Möglichkeit, sich wiederholende und vorhersehbare Aufgaben im Programm zu automatisieren, was häufig Stunden spart.

Fügen Sie leere Zeilen zwischen Dateneinträgen ein

Wenn Sie ein Makro erstellen möchten, mit dem nach jeweils 2 Dateneingaben zwei leere Zeilen in eine vorhandene Tabelle eingefügt werden, steht ein entsprechendes Makro zur Verfügung. Das Endergebnis sollte folgendermaßen aussehen:

Standardlayout:

 Titel1
Titel2
Titel3
Titel4 

Nach dem Makro:

 Titel1
Titel2
Titel3
Titel4 

Einfügen mehrerer leerer Zeilen zwischen vorhandenen Daten

Mit dem folgenden Makro erhalten Sie das oben abgebildete Ergebnis:

 Untertest ()
Dim j Solange, r Wie Bereich
j = InputBox ("Geben Sie die Anzahl der einzufügenden Zeilen ein")
Setze r = Range ("A2")
Tun
Bereich (r.Offset (1, 0), r.Offset (j, 0)). EntireRow.Insert
Setze r = Zellen (r.Row + j + 1, 1)
'MsgBox r.Address (der Apostroph am Anfang dieser Zeile macht diese Zeile nicht funktionsfähig)
Wenn r.Offset (1, 0) = "", beenden Sie Do
Schleife
End Sub