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
• Kopieren Sie jede Zeile und fügen Sie sie mehrmals mit VBA-Code ein
• Kopieren Sie jede Zeile und fügen Sie sie mehrmals ein, basierend auf einer bestimmten Nummer mit einer fantastischen Funktion

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 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:

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.

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.

Lesen Sie mehr... Kostenfreier Download... Kauf... 

---

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!

Lesen Sie mehr... Kostenfreier Download... Kauf...