Wie dupliziere ich Zeilen basierend auf dem Zellenwert in einer Spalte?
Zum Beispiel habe ich einen Datenbereich, der eine Liste von Zahlen in Spalte D enthält, und jetzt möchte ich die gesamten Zeilen basierend auf den numerischen Werten in Spalte D mehrmals duplizieren, um das folgende Ergebnis zu erhalten. Wie kann ich die Zeilen basierend auf den Zellenwerten in Excel mehrmals kopieren?
Duplizieren Sie Zeilen mehrmals basierend auf Zellenwerten mit VBA-Code
Duplizieren Sie Zeilen mehrmals basierend auf Zellenwerten mit VBA-Code
Der folgende VBA-Code kann Ihnen dabei helfen, die gesamten Zeilen basierend auf den Zellenwerten mehrmals zu kopieren und zu duplizieren:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der 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 Zeilen mehrmals basierend auf dem Zellenwert:
Sub CopyData()
'Updateby Extendoffice
Dim xRow As Long
Dim VInSertNum As Variant
xRow = 1
Application.ScreenUpdating = False
Do While (Cells(xRow, "A") <> "")
VInSertNum = Cells(xRow, "D")
If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
Selection.Insert Shift:=xlDown
xRow = xRow + VInSertNum - 1
End If
xRow = xRow + 1
Loop
Application.ScreenUpdating = False
End Sub
3. Dann drücken F5 Um diesen Code auszuführen, wurden die gesamten Zeilen je nach Bedarf mehrmals basierend auf dem Zellenwert in Spalte D dupliziert.
Kopieren und fügen Sie Zeilen basierend auf einer bestimmten Häufigkeit mit einem praktischen Tool ein – Kutools for Excel
Wenn Sie mit dem VBA-Code nicht vertraut sind und die Parameter im Code nicht selbst richtig ändern können. In diesem Fall ist die Kutools for Excel's Doppelte Zeilen/Spalten basierend auf dem Zellenwert Funktion kann Ihnen helfen, Zeilen basierend auf den Zellenwerten mit nur drei Klicks mehrmals zu kopieren und einzufügen.
- Klicken Sie auf Kostenlos erhalten und dann auf Installieren. Kutoolen > Insert > Doppelte Zeilen/Spalten basierend auf dem Zellenwert um diese Funktion zu aktivieren;
- Dann wähle Zeilen kopieren und einfügen Option, und geben Sie die Zellen der an Bereich einfügen und Wiederholen Sie die Zeiten separat im Dialogfeld.
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!