Wie kann man Zeilen basierend auf einer anderen Spalte in Excel eine bestimmte Anzahl von Malen wiederholen?
Haben Sie jemals versucht, eine Zeile basierend auf einem anderen Spaltenwert zu wiederholen, wie im folgenden Screenshot gezeigt? In diesem Artikel werde ich die Methode zum Lösen dieses Jobs in Excel vorstellen.
Wiederholen Sie Zeilen basierend auf einem anderen Spaltenwert mit VBA
Wiederholen Sie Zeilen basierend auf einem anderen Spaltenwert von Kutools for Excel
Wiederholen Sie Zeilen mit einer festgelegten Zeit von Kutools for Excel
Wiederholen Sie Zeilen basierend auf einem anderen Spaltenwert mit VBA
Hier habe ich einen Code, der die Zeilen basierend auf den letzten Spaltenwerten schnell wiederholen kann.
1. Drücken Sie Alt + F11 zu aktivierende Tasten Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > ModulKopieren Sie dann den folgenden Code und fügen Sie ihn in den neuen ein Modul Skripte.
VBA: Wiederholen Sie Zeilen basierend auf einem anderen Spaltenwert
Sub CopyRow()
'UpdatebyExtendoffice20181011
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the number value", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub
3. Drücken Sie F5 Wenn Sie die Taste drücken, wird ein Dialogfeld geöffnet. Wählen Sie die Nummernliste aus, anhand derer die Zeilen wiederholt werden sollen.
4. Klicken Sie auf OK. Die Zeilen wurden basierend auf dem ausgewählten Spaltenwert wiederholt.
Wiederholen Sie Zeilen basierend auf einem anderen Spaltenwert von Kutools for Excel
Wenn Sie nicht gut mit VBA umgehen können, können Sie es versuchen Kutools for Excel Doppelte Zeilen/Spalten basierend auf dem Zellenwert Funktion, die nur zwei Schritte benötigt.
Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. |
1 Klicken Kutoolen > Insert > Doppelte Zeilen/Spalten basierend auf dem Zellenwert.
2. Wählen Sie im Popping-Dialogfeld Zeilen kopieren und einfügen Option in der Typ Abschnitt und wählen Sie dann den Bereich aus, in dem Sie wiederholen möchten Bereich einfügene Textfeld, und wählen Sie die Spalte aus, die die Wiederholungszeiten für die Wiederholen Sie die Zeiten Textfeld. Klicken Ok.
Dann werden die Zeilen um die ausgewählte Spalte wiederholt.
Wiederholen Sie Zeilen mit einer festgelegten Zeit von Kutools for Excel
Wenn Sie Zeilen mit einer festen Zeit wiederholen möchten, ohne Zeilen einzeln einzufügen, können Sie versuchen, die zu verwenden Leere Zeilen und Spalten einfügen und Leere Zellen füllen Dienstprogramme von Kutools for Excel um diesen Job schnell zu erledigen.
Nach der Installation Kutools für Excel, bitte gehen Sie wie folgt vor:(Kutools für Excel jetzt kostenlos herunterladen!)
1. Wählen Sie den Datenbereich aus, in dem Sie Zeilen wiederholen möchten, und klicken Sie auf Kutoolen > Insert > Leere Zeilen und Spalten einfügen. Dann in der Leere Zeilen und Spalten einfügen Dialog, überprüfen Leere Reihen Option, dann geben Sie ein 1 in Intervall of Textfeld und geben Sie die Nummer ein, in der Sie Zeilen wiederholen möchten Reihen Textfeld.
2 Klicken Okwurden die leeren Zeilen unter jeder Zeile eingefügt.
3. Lassen Sie den Bereich ausgewählt und klicken Sie auf Kutoolen > Insert > Leere Zellen füllen. In dem Leere Zellen füllen Dialog, überprüfen Basierend auf Werten und Nach unten Optionen.
4 Klicken Ok. Jetzt wurden die leeren Zellen mit dem obigen Wert gefüllt.
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!