Wie fügt man eine bestimmte Anzahl von Spalten in festen Abständen in Excel ein?

Bei der täglichen Nutzung von Excel kann es vorkommen, dass Sie zusätzliche Spalten zwischen bestehenden Spalten einfügen müssen. Natürlich können Sie die Spalten einzeln mit der Einfügen-Funktion hinzufügen. Wenn Sie jedoch mit großen Datenmengen arbeiten und nach jeder zweiten oder n-ten Spalte drei neue Spalten einfügen müssen, ist die Einfügen-Funktion offensichtlich nicht effektiv. Wie können Sie diese Aufgabe also schnell erledigen? In diesem Tutorial werden wir über zwei einfache Methoden sprechen, um das Problem zu lösen.

Verwenden Sie VBA-Code, um eine bestimmte Anzahl leerer Spalten in festen Abständen in den Datenbereich einzufügen.

Verwenden Sie Kutools für Excel, um eine bestimmte Anzahl leerer Spalten in festen Abständen in den Datenbereich einzufügen.

Wir können den folgenden "VBA-Code" verwenden, um eine bestimmte Anzahl leerer Spalten nach jeder n-ten Spalte einzufügen. Gehen Sie wie folgt vor.

1. Drücken Sie die Tasten "Alt + F11" in Excel, um das Fenster "Microsoft Visual Basic for Applications" zu öffnen.

2. Klicken Sie auf "Einfügen" > "Modul" und fügen Sie das folgende Makro im "Modul"-Fenster ein.

Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
   Application.Selection.EntireColumn.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. Drücken Sie die Taste "F5", um diesen Code auszuführen. Ein Dialogfeld erscheint, das Sie auffordert, den "Datenbereich" auszuwählen, in dem Sie leere Spalten einfügen möchten.

4. Klicken Sie auf die Schaltfläche "OK". Ein weiteres Dialogfeld erscheint. Geben Sie "die Anzahl der Spaltenabstände" in das Feld "Spaltenabstand eingeben" ein.

5. Klicken Sie weiterhin auf die Schaltfläche "OK". Das dritte Dialogfeld erscheint. Geben Sie "die Anzahl der Spalten ein, die Sie bei jedem Intervall einfügen möchten" in das Feld ein.

6. Klicken Sie auf die Schaltfläche "OK", um das Ergebnis zu erhalten.

Wenn Sie die Methode mit VBA-Code nicht verwenden möchten, ist die Funktion "Leere Zeilen & Spalten einfügen" von "Kutools für Excel" die perfekte Lösung für Sie. Mit dieser Funktion können Sie eine bestimmte Anzahl von Spalten in festen Abständen in den Datenbereich einfügen – und das mit nur wenigen Klicks.

1. Wählen Sie zunächst den vorhandenen Datenbereich aus. Klicken Sie dann auf "Kutools" > "Einfügen" > "Leere Zeilen & Spalten einfügen".

2. Das Dialogfeld "Leere Zeilen & Spalten einfügen" erscheint. Sie sehen den Datenbereich, den Sie in Schritt 1 ausgewählt haben, im Bereichsfeld angezeigt. Wählen Sie die Option "Leere Spalten" im Abschnitt "Einfügetyp" aus. Geben Sie "die Anzahl der Spaltenabstände" und "die Anzahl der Spalten ein, die Sie bei jedem Intervall einfügen möchten" an. Hier gebe ich beispielsweise 1 und 3 ein.

3. Klicken Sie auf die Schaltfläche "OK", um die Einstellungen abzuschließen und das Ergebnis zu erhalten.