Wie kann man eine Zeile in Excel mehrfach kopieren, einfügen oder x-mal duplizieren?
Müssen Sie bei Ihrer täglichen Arbeit gelegentlich eine Zeile oder alle Zeilen kopieren und mehrfach unterhalb der aktuellen Datenzeile in einem Arbeitsblatt einfügen? Angenommen, Sie haben einen Zellbereich und möchten jede Zeile dreimal in die jeweils nächste Zeile kopieren, wie im folgenden Screenshot dargestellt. Wie können Sie diese Aufgabe in Excel erledigen?
 |  |  |
- Kopieren und fügen Sie eine bestimmte Zeile mehrfach mit VBA-Code ein
- Kopieren und fügen Sie jede Zeile mehrfach mit VBA-Code ein
- Kopieren und fügen Sie jede Zeile mehrfach basierend auf einer bestimmten Zahl mit einer hervorragenden Funktion ein
Kopieren und fügen Sie eine bestimmte Zeile mehrfach mit VBA-Code ein
Wenn Sie eine bestimmte Zeile x-mal duplizieren möchten, hilft Ihnen der folgende VBA-Code weiter. Gehen Sie dazu wie folgt vor:
1. Wählen Sie die Zeile aus, die Sie mehrfach kopieren und einfügen möchten, und drücken Sie anschließend die Tastenkombination ALT + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Eine bestimmte Zeile mehrfach duplizieren:
Sub test()
'Updateby Extendoffice
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
ActiveCell.EntireRow.Copy
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
3. Nachdem Sie den Code eingefügt haben, drücken Sie die Taste F5, um ihn auszuführen. Es erscheint ein Eingabefeld, in dem Sie die gewünschte Anzahl der Duplikate eingeben (siehe Screenshot):
4. Klicken Sie dann auf die Schaltfläche OK, und drei neue kopierte Zeilen werden unterhalb der ausgewählten Zeile eingefügt (siehe Screenshot):
Kopieren und fügen Sie jede Zeile mehrfach basierend auf einer bestimmten Zahl mühelos ein
Normalerweise gibt es keine praktische Methode, um Zeilen mehrfach zu kopieren und einzufügen – außer manuell zu kopieren und einzufügen. Mit der Kutools für Excel-Funktion Zeilen/Spalten gemäß angegebener Daten kopieren oder einfügen lösen Sie dieses Problem jedoch mühelos.Klicken Sie hier, um Kutools für Excel herunterzuladen!
Kutools für Excel: mit über 300 praktischen Excel-Add-Ins, kostenlos und uneingeschränkt 60 Tage lang testen.Jetzt herunterladen und kostenlos testen!
Kopieren und fügen Sie jede Zeile mehrfach mit VBA-Code ein
Um jede Zeile in einem Bereich mehrfach zu duplizieren, verwenden Sie den folgenden VBA-Code – so geht’s:
1. Drücken Sie die Tastenkombination ALT + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen>Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Jede Zeile mehrfach duplizieren:
Sub insertrows()
'Updateby Extendoffice
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Rows(I).Copy
Rows(I).Resize(xCount).Insert
Next
Application.CutCopyMode = False
End Sub3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Es erscheint ein Eingabefeld, in dem Sie die gewünschte Anzahl der Duplikate pro Datensatz eingeben (siehe Screenshot):
4. Klicken Sie dann auf die Schaltfläche OK, und jede Zeile wird dreimal unterhalb der aktiven Zeile kopiert und eingefügt (siehe Screenshot):
| | |
Hinweis: Im obigen Code gibt das A an, dass der Datenbereich in Spalte A beginnt. Falls Ihre Daten in Spalte K beginnen, ändern Sie bitte das A entsprechend in K, ganz nach Ihren Anforderungen.
Kopieren und fügen Sie jede Zeile mehrfach basierend auf einer bestimmten Zahl mit einer hervorragenden Funktion ein
Möglicherweise sind Sie mit VBA-Code nicht vertraut oder befürchten, dass der Code Ihre Daten beschädigen könnte. Deshalb stelle ich Ihnen eine äußerst praktische Funktion vor: Kutools für Excel – speziell die Funktion Zeilen/Spalten gemäß angegebenen Daten kopieren oder einfügen. Mit diesem Tool können Sie Zeilen im Handumdrehen basierend auf Ihrer vorgegebenen Zahl kopieren und einfügen.
Tipps:Um diese Zeilen/Spalten gemäß angegebenen Daten kopieren oder einfügen-Funktion anzuwenden, sollten Sie zunächst das Kutools für Excelherunterladen und danach die Funktion schnell und einfach nutzen.
Nach der Installation von Kutools für Excelgehen Sie wie folgt vor:
1. Geben Sie die gewünschten Wiederholungszahlen für doppelte Zeilen in eine Zellenliste neben Ihren Daten ein (siehe Screenshot):
2. Klicken Sie auf Kutools > Einfügen > Zeilen/Spalten gemäß angegebenen Daten kopieren oder einfügen (siehe Screenshot):
3. Wählen Sie im Dialogfeld Zeilen/Spalten kopieren und einfügen unter dem Abschnitt Zeilen kopieren und einfügen die Option Typ aus, wählen Sie anschließend den zu duplizierenden Datenbereich aus und geben Sie die gewünschte Anzahl der Wiederholungen zum Duplizieren der Zeilen an (siehe Screenshot):
4. Klicken Sie anschließend auf die Schaltfläche Ok oder Anwenden, und Sie erhalten entsprechend Ihren Anforderungen das folgende Ergebnis:
| |  |
Klicken Sie hier, um Kutools für Excel herunterzuladen und es jetzt kostenlos zu testen!
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins