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

Wie kann man eine Zeile mehrmals kopieren und einfügen oder die Zeile x-mal in Excel duplizieren?

Haben Sie in Ihrer täglichen Arbeit jemals versucht, eine Zeile oder jede Zeile zu kopieren und dann mehrmals unterhalb der aktuellen Datenzeile in ein Arbeitsblatt einzufügen? Zum Beispiel habe ich eine Reihe von Zellen. Jetzt möchte ich jede Zeile kopieren und dreimal in die nächste Zeile einfügen, wie im folgenden Screenshot gezeigt. Wie können Sie mit diesem Job in Excel umgehen?


Kopieren Sie eine bestimmte Zeile mehrmals mit VBA-Code und fügen Sie sie ein

Wenn Sie nur eine bestimmte Zeile x-mal duplizieren möchten, kann Ihnen der folgende VBA-Code helfen. Gehen Sie dazu folgendermaßen vor:

1. Geben Sie eine Zeile an, die Sie mehrmals kopieren und einfügen möchten, und halten Sie dann die Taste gedrückt ALT + F11 Tasten, dann öffnet es die Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Duplizieren Sie eine bestimmte Zeile mehrmals:

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. Nach dem Einfügen des Codes drücken Sie bitte F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, wie oft Sie duplizieren möchten (siehe Abbildung):

4. Dann klick OK Schaltfläche, und drei neue kopierte Zeilen wurden unter der ausgewählten Zeile eingefügt, siehe Screenshot:


Kopieren und fügen Sie jede Zeile einfach mehrmals basierend auf einer bestimmten Nummer ein

Normalerweise gibt es keine gute Methode zum mehrmaligen Kopieren und Einfügen von Zeilen, außer das manuelle Kopieren und Einfügen. Aber mit Kutools for Excel's Doppelte Zeilen / Spalten basierend auf dem Zellenwert Mit dieser Funktion können Sie dieses Problem problemlos lösen. Klicken Sie hier, um Kutools für Excel herunterzuladen!

Kutools for Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie es innerhalb von 60 Tagen ohne Einschränkung testen. Jetzt herunterladen und kostenlos testen!


Kopieren Sie jede Zeile und fügen Sie sie mehrmals mit VBA-Code ein

Um jede Zeile mehrmals in einem Bereich zu duplizieren, können Sie den folgenden VBA-Code anwenden. Gehen Sie wie folgt vor:

1. Halten Sie die Taste gedrückt ALT + F11 Tasten, dann öffnet es die Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Duplizieren Sie jede Zeile mehrmals:

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 Sub

3. Und dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, wie oft Sie für jeden Datensatz duplizieren möchten (siehe Abbildung):

4. Dann klick OKund jede Zeile wurde dreimal unter den aktiven kopiert und eingefügt, siehe Screenshot:

Hinweis: Im obigen Code ist die A Gibt an, dass der Datenbereich in Spalte A gestartet wird, wenn Ihre Daten in Spalte beginnen K, Bitte austauschen A zu K als Ihr Bedürfnis.


Kopieren Sie jede Zeile und fügen Sie sie mehrmals ein, basierend auf einer bestimmten Nummer mit einer fantastischen Funktion

Möglicherweise sind Sie mit dem VBA-Code nicht vertraut, oder Sie befürchten, dass der Code Ihre Daten zum Absturz bringt. Hier werde ich eine nützliche Funktion vorstellen, Kutools for Excel's Doppelte Zeilen / Spalten basierend auf dem ZellenwertMit diesem Dienstprogramm können Sie die Zeilen basierend auf der von Ihnen angegebenen Nummer schnell kopieren und einfügen.

Tipps:Um dies anzuwenden Doppelte Zeilen / Spalten basierend auf dem Zellenwert Funktion sollten Sie zunächst die herunterladen Kutools for Excelund wenden Sie die Funktion dann schnell und einfach an.

Nach der Installation Kutools for ExcelBitte machen Sie Folgendes:

1. Geben Sie die Wiederholungsnummern, die Sie duplizieren möchten, in eine Liste von Zellen neben Ihren Daten ein, siehe Screenshot:

2. Klicken Sie Kutoolen > Insert > Doppelte Zeilen / Spalten basierend auf dem Zellenwert, siehe Screenshot:

3. In dem Kopieren und Einfügen von Zeilen und Spalten Dialogfeld auswählen Zeilen kopieren und einfügen Option in der Typ Wählen Sie dann den Datenbereich aus, den Sie duplizieren möchten, und geben Sie die Wiederholungszeit zum Duplizieren der Zeilen an (siehe Abbildung):

4. Dann klick Ok or Hinzufügen Klicken Sie auf die Schaltfläche, um das folgende Ergebnis zu erhalten, das Sie benötigen:

Klicken Sie hier, um Kutools für Excel herunterzuladen und jetzt kostenlos zu testen!


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • 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 ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... 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 ...
  • 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...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • 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 (32)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Tolles Makro - hat mir so viel Zeit gespart!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
echt netter Makro Kumpel!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich möchte zufällig doppelte Zeilen generieren,

für zB. Generieren Sie zufällige doppelte Zeilen zwischen 20 und 80.


was wird Code für die folgenden aktualisiert werden


Sub-Einfügungszeilen ()
'Updateby Extendoffice 2016616
Dimme ich so lange
Dim xCount als ganze Zahl
Etikettennummer:
xCount = Application.InputBox("Anzahl der Zeilen", "Kutools für Excel", , , , , , 1)
Wenn xCount < 1 Dann
MsgBox "Die eingegebene Anzahl von Zeilen ist ein Fehler, bitte erneut eingeben", vbInformation, "Kutools for Excel"
Gehe zu Etikettennummer
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 1 Step -1
Zeilen (I).Kopieren
Zeilen(I).Größe ändern(xCount).Einfügen
Weiter
Application.CutCopyMode = Falsch
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich möchte Zeilen basierend auf einem Parameter duplizieren. Zum Beispiel habe ich eine Spalte mit dem Namen Besprechungsdauer. Wenn diese Spalte größer als 1 ist, möchte ich Meeting-ID-Zeilen basierend auf dieser Zahl duplizieren. Wenn die Besprechungsdauer 2 Stunden beträgt, duplizieren Sie die Besprechungs-ID zweimal. Wenn das Meeting 3 Stunden dauert, dann dreimal duplizieren.
Halbstundenschritte können auf die Stunde aufgerundet werden.

MeetingID Startzeit Endzeit Meeting Dauer
43117 9:00 11:00 02:00
43580 9:30 11:00 01:30
42699 10:00 11:30 01:30
12345 01:00 2:00 01:00
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe das gleiche Problem. Haben Sie eine Lösung gefunden?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Leute,
Vielleicht kann Ihnen der folgende VBA-Code einen Gefallen tun, bitte wenden Sie ihn an:
Sub-Einfügungszeilen ()
Dimme ich so lange
Dim xRg als Bereich
Dim xHour, xMin As Long
On Error Resume Next
Application.ScreenUpdating = False
For I = Range("D" & Rows.CountLarge).End(xlUp).Row To 1 Step -1
xStunde = 0
Setze xRg = Bereich ("D" & I)
xStunde = Stunde(xRg.Wert) + 1
xMin = Minute(xRg.Wert)
Wenn xMin < 30, dann xStunde = xStunde - 1
Zeilen (I).Kopieren
Zeilen (I).Größe ändern (xStunde).Einfügen
Weiter
Application.ScreenUpdating = True
Application.CutCopyMode = Falsch
End Sub

Versuch es bitte. Hoffe es kann dir helfen!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe dieses Makro in der Vergangenheit verwendet und es hat bis vor kurzem immer funktioniert. Irgendeine Einsicht, warum es nur die oberste Zeile duplizieren würde, selbst wenn die Makros mit mehreren Zeilen verwendet werden? Ich habe alle Filter/eingefrorene Scheiben entfernt.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, wie kann ich den Code so ändern, dass er Folgendes enthält

1. Duplikat basierend auf der Anzahl der Tage
2. Spalte EOM von Monatsende auf Tagesdatum ändern
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wirklich vielen Dank für Ihre Unterstützung !!!!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich liebe den Code! Wie stelle ich den Startbereich ein, um die erste Zeile (Spaltenüberschriften) zu überspringen und in Zeile 2 zu beginnen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Dewin,
Um die erste Kopfzeile zu überspringen, wenden Sie bitte den folgenden VBA-Code an:

Sub-Einfügungszeilen ()
Dimme ich so lange
Dim xCount als ganze Zahl
Etikettennummer:
xCount = Application.InputBox("Anzahl der Zeilen", "Kutools für Excel", , , , , , 1)
Wenn xCount < 1 Dann
MsgBox "Die eingegebene Anzahl von Zeilen ist ein Fehler, bitte erneut eingeben", vbInformation, "Kutools for Excel"
Gehe zu Etikettennummer
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Zeilen (I).Kopieren
Zeilen(I).Größe ändern(xCount).Einfügen
Weiter
Application.CutCopyMode = Falsch
End Sub

Bitte versuchen Sie es, ich hoffe, es kann Ihnen helfen!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich brauche Hilfe, so sieht meine Tabelle aus, zum Beispiel, wenn ich 2 Zeilen am Ende meiner 1 Ende der Tabelle). Meine Aufgabe wird also sein, nur Zeilen in der 2. Tabelle hinzuzufügen, die Tabelle unten generiert automatisch Zeilen basierend auf der Anzahl der Zeilen in der 1. Tabelle. Das sind die Codierungen, die ich jetzt verwendet habe, um eine Zeile für die 1. Tabelle hinzuzufügen. Ich hoffe, jemand kann dieses Problem für mich lösen, thx.Sub InsertNumRows()

ActiveCell.EntireRow.Copy

Dim Rng As Long

Application.DisplayAlerts = Falsch
On Error Resume Next
Rng = InputBox("Anzahl der erforderlichen Zeilen eingeben.")
Bei Fehler GoTo 0
Application.DisplayAlerts = True

Wenn Rng = 0 dann
MsgBox "Sie haben keinen Bereich angegeben!"
Exit Sub

sonst
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Select
Selection.EntireRow.Insert Shift:=xlDown
End If

End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Liebe es! Es funktioniert jedes Mal! Vielen Dank dafür :)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie mache ich das für Spalten?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie kann ich das für Spalten machen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
wie man die gleiche Aktion mit ausgewählten Zellen mit VB durchführt,


Ich muss einige ausgewählte Zellen (Zeilen und Spalten) x mal im selben Blatt und in der gleichen Reihenfolge wiederholen wie:

line1
line2
line3

line1
line2
line3
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, das hat super funktioniert, nur muss ich zwei Zeilen N-mal kopieren. Können Sie bitte den Code so anpassen, dass, wenn ich zwei Zeilen auswähle, diese beiden Zeilen N-mal nach unten kopiert werden? Vielen Dank für Ihre Hilfe
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Sal,
Wenn Sie nur zwei Zeilen mehrmals nach unten kopieren müssen, müssen Sie nur den VBA-Code 1 in diesem Artikel verwenden. Wenden Sie den Code zweimal an, um Ihr Problem zu lösen. Bitte versuchen Sie es, ich hoffe, es kann Ihnen helfen!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Kopieren und fügen Sie jede Zeile mehrmals mit VBA-Code ein

Wie kann ich im VBA-Code die Startzeile auswählen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Keine Funktion mit Windows 2019, deseo usar la función en mención pero simplemente no hace absolutamente nada
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo zusammen.. Vielen Dank im Voraus für Ihre Hilfe!!

Der VBA-Code zum mehrfachen Duplizieren einer bestimmten Zeile funktioniert perfekt, bis Sie einen Filter verwenden. Ich frage mich, ob mir jemand helfen kann, dieses Problem zu lösen. Ich brauche einen Code, der funktioniert, auch wenn Sie einige Werte gefiltert haben. Ich verwende eine große Datenmenge, die nach Orten sortiert ist. Der Code funktioniert teilweise, er fügt die Anzahl der gewünschten Zeilen ein, aber keine Daten oder Formate, wenn ich einen Filter angewendet habe.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ist es möglich, für jede Zeile unterschiedliche Größen (Werte) zu verwenden? Ich versuche es mit Vektor, aber es funktioniert nicht.
Zum Beispiel :
Rows(I).Resize(xCount(y) ).Insert

Wobei die in xCount(y) gespeicherten Werte aus einer Tabelle gelesen werden.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Guss,
Vielleicht kann Ihnen der folgende Artikel helfen, bitte überprüfen Sie ihn:
https://www.extendoffice.com/documents/excel/4054-excel-duplicate-rows-based-on-cell-value.html
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Beim zweiten VBA-Code (VBA-Code: Jede Zeile mehrfach duplizieren) bekomme ich immer wieder als Laufzeitfehler: 1004
Es sind noch keine Kommentare vorhanden
Mehr laden
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