Note: The other languages of the website are Google-translated. Back to English

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


Fügen Sie in festen Abständen mit VBA-Code 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.
doc einfügen-Spalten-in-Intervallen 1

4. Klicken Sie auf die OK Taste. Ein weiteres Eingabeaufforderungsfeld erscheint, bitte eingeben die Anzahl der Spaltenintervalle der Spaltenintervall eingeben Box.
doc einfügen-Spalten-in-Intervallen 2

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.
doc einfügen-Spalten-in-Intervallen 3

6. Klicken Sie auf die OK Schaltfläche, um das Ergebnis zu erhalten.
doc einfügen-Spalten-in-Intervallen 4


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

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.
doc einfügen-Spalten-in-Intervallen 5

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.
doc einfügen-Spalten-in-Intervallen 6

3. Klicken Sie auf die OK Taste, um die Einstellung abzuschließen und das Ergebnis zu erhalten.
doc einfügen-Spalten-in-Intervallen 7

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.


Sonstige Operationen (Artikel)

Wie füge ich schnell eine Zeile basierend auf dem aktuellen Datum in Excel ein?
Angenommen, es gibt ein Blatt mit einer Zeile mit Datumsangaben, und jetzt möchte ich eine Zeile direkt zum aktuellen Datum einfügen, die sich beim täglichen Öffnen der Arbeitsmappe automatisch ändert. Gibt es einen Trick, der es in Excel lösen kann?

Wie fügt man in Excel immer eine leere Zeile unten statt oben ein?
Wie wir alle wissen, wird beim Einfügen einer leeren Zeile in ein Arbeitsblatt die leere Zeile immer über der ausgewählten Zeile oder Zelle eingefügt. Manchmal müssen Sie jedoch die Zeile unter der ausgewählten Zelle oder Zeile einfügen. Wie können Sie diesen Job in Excel lösen?

Wie fügt man eine leere neue Zeile automatisch per Befehlsschaltfläche in Excel ein?
In vielen Fällen müssen Sie möglicherweise eine leere neue Zeile an einer bestimmten Position Ihres Arbeitsblatts einfügen. In diesem Artikel zeigen wir Ihnen, wie Sie automatisch eine leere neue Zeile einfügen, indem Sie in Excel auf eine Befehlsschaltfläche klicken.

Wie füge ich eine leere Zeile nach einem bestimmten Text in Excel ein?
Wenn Sie nach einem bestimmten Text leere Zeilen einfügen möchten, wie im folgenden Screenshot gezeigt, wie können Sie schnell und einfach damit umgehen, ohne sie einzeln manuell einzufügen?


  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen und Speichern von Daten; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen und Summe / Durchschnitt... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Lieblingsformeln und schnell einfügen, Bereiche, Diagramme und Bilder; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Pivot-Tabellengruppierung nach Wochennummer, Wochentag und mehr ... Entsperrte, gesperrte Zellen anzeigen durch verschiedene Farben; Markieren Sie Zellen mit Formel / Name...
kte tab 201905
  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (0)
Noch keine Bewertungen. Bewerten Sie als Erster!
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL