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

Bei Ihrer täglichen Verwendung von Excel können Sie auf eine Situation stoßen, die Sie benötigen Fügen Sie weitere Spalten zwischen den vorhandenen Spalten hinzu. Sie können die Spalten natürlich einzeln mit der Funktion Einfügen einfügen. Aber wenn Sie mit großen Datenmengen konfrontiert sind und nach jeder zweiten oder n-ten Spalte drei Spalten einfügen müssen, ist die Einfügefunktion anscheinend nicht effektiv. Wie können Sie die Aufgabe also schnell erledigen? In diesem Tutorial werden wir über zwei einfache Methoden zur Lösung des Problems sprechen.

Fügen Sie in festen Abständen mit VBA-Code eine bestimmte Anzahl leerer Spalten in den Datenbereich ein

Fügen Sie mit einer erstaunlichen Funktion in festen Intervallen eine bestimmte Anzahl leerer Spalten in den Datenbereich ein

---

Wir können das Folgende verwenden VBA-Code um nach jeder n-ten Spalte eine bestimmte Anzahl leerer Spalten einzufügen. Bitte gehen Sie wie folgt vor.

1. Drücken Sie die Taste Alt + F11 Tasten in Excel, und es öffnet sich die Microsoft Visual Basic für Applikationen Fenster.

2 Klicken Insert > Modul und fügen Sie das folgende Makro in das ein Modul Fenster.

VBA-Code: Fügen Sie in festen Abständen eine bestimmte Anzahl von Spalten in die Daten 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 Schlüssel, um diesen Code auszuführen. Eine Eingabeaufforderung erscheint, um Sie daran zu erinnern, die auszuwählen Datenreichweite in die Sie leere Spalten einfügen möchten.

4. Klicken Sie auf die OK Taste. Ein weiteres Eingabeaufforderungsfeld erscheint, bitte eingeben die Anzahl der Spaltenintervalle der Spaltenintervall eingeben Box.

5. Klicken Sie weiter auf OK Taste. Die dritte Eingabeaufforderung erscheint, bitte angeben die Anzahl der Spalten, die Sie in jedem Intervall einfügen möchten in der BOx.

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

---

Wenn Sie die VBA-Codemethode nicht verwenden möchten, ist die Leere Zeilen und Spalten einfügen Merkmal von Kutools for Excel ist die perfekte Lösung für Sie. Mit dieser Funktion können Sie mit nur wenigen Klicks die bestimmte Anzahl von Spalten in festgelegten Intervallen in den Datenbereich einfügen.

Vor der Bewerbung Kutools for Excel, laden Sie es bitte zuerst herunter und installieren Sie es.

1. Wählen Sie zuerst den vorhandenen Datenbereich aus. Dann klick Kutoolen > Insert > Leere Zeilen und Spalten einfügen.

2. Das Leere Zeilen und Spalten einfügen Dialogfeld erscheint. Sie können den Datenbereich, den Sie in Schritt 1 ausgewählt haben, im Feld „Bereich“ sehen. Wählen Sie das Leere Spalten Option in der Einfügetyp Sektion. Und spezifizieren die Anzahl der Spaltenintervalle und Spalten, die Sie in jedem Intervall einfügen möchten. Hier gebe ich 1 und 3 separat ein.

3. Klicken Sie auf die OK Taste, um die Einstellung abzuschließen und das Ergebnis zu erhalten.

Hinweis: Wenn Sie eine kostenlose Testversion (30 Tage) dieses Dienstprogramms haben möchten, klicken Sie bitte, um es herunterzuladen, und wenden Sie dann den Vorgang gemäß den obigen Schritten an.

---