So fügen sie mit vba mehrere spalten ein

Sie können die folgende Syntax verwenden, um mit VBA mehrere Spalten in Excel einzufügen:

 Sub InsertMultipleColumns()
Worksheets(" Sheet1 ").Range(" B:D ").EntireColumn.Insert
End Sub

Dieses spezielle Makro fügt drei leere Spalten im Bereich D bis F des Blattes namens Sheet1 ein und verschiebt alle vorhandenen Spalten nach rechts.

Das folgende Beispiel zeigt, wie diese Syntax in der Praxis verwendet wird.

Beispiel: So fügen Sie mehrere Spalten mit VBA ein

Angenommen, wir haben den folgenden Datensatz mit Informationen über verschiedene Basketballspieler:

Angenommen, wir möchten drei leere Spalten beginnend mit Spalte B einfügen.

Dazu können wir das folgende Makro erstellen:

 Sub InsertMultipleColumns()
Worksheets(" Sheet1 ").Range(" B:D ").EntireColumn.Insert
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass an den Spaltenpositionen B, C und D dieses Arbeitsblatts mit dem Namen Sheet1 drei leere Spalten eingefügt wurden.

Die bisher in den Spalten B, C und D vorhandenen Werte wurden einfach nach rechts verschoben.

Hinweis : Die vollständige Dokumentation zur VBA- Einfügefunktion finden Sie hier .

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So finden Sie die zuletzt verwendete Zeile
VBA: So zählen Sie die Anzahl der Zeilen im Bereich
VBA: So zählen Sie die Anzahl der verwendeten Spalten