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 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 Sub3. 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:
|
|
|
Note: 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 Jetzt bewerben 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!
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
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!
