Makro zum Einfügen von leeren Zeilen in Excel

Letztes Update am 20. Juli 2020 um 02:54 Uhr von Aoife McCambridge.

Du versuchst es Erstellen Sie ein Makro, das nach jedem Eintrag eine Reihe leerer Zeilen in eine vorhandene Tabelle einfügt. Die Anzahl der benötigten Zeilen ist für jeden Eintrag in der Tabelle gleich, muss jedoch bei jeder Verwendung geändert werden. Folgen Sie der Anleitung unten.

Beispiel für das Einfügen von leeren Zeilen in Excel

Das Folgende ist ein Beispiel:

Zur Zeit:

Title1  
Title2
Title3
Title4

Nach der Verwendung von Macro:

Title1  

Title2

Title3

Title4

Die Anzahl der leeren Zeilen kann zwischen 20 und 40 liegen.

Methode zum Einfügen von schwarzen Zeilen in Excel

A1 hat Überschriften.

Dann versuchen Sie dieses Makro

Bewahren Sie Ihre Originaldatei irgendwo sicher auf

Führen Sie zuerst das Testen des Makros in den von Ihnen gesendeten experimentellen Daten durch

Sub test()  
Dim j As Long, r As Range
j = InputBox("type the number of rows to be insered")
Set r = Range("A2")
Do
Range(r.Offset(1, 0), r.Offset(j, 0)).EntireRow.Insert
Set r = Cells(r.Row + j + 1, 1)
MsgBox r.Address
If r.Offset(1, 0) = "" Then Exit Do
Loop

End Sub