Excel - Wiederholen Sie die Zeilen eine bestimmte Anzahl von Malen

Zeilen in einem Excel-Arbeitsblatt können mithilfe einer benutzerdefinierten Funktion beliebig oft wiederholt werden. Eine benutzerdefinierte Funktion kann so geschrieben werden, dass Zeilen eine bestimmte Anzahl von Malen wiederholt werden . Einige Kenntnisse über Programmierkonzepte wie If-Then-else-Bedingungen und Do-While-Schleifen sind möglicherweise erforderlich, um eine solche Funktion zu schreiben. Mit dem Befehl Selection.insert können Zeilen in das Arbeitsblatt der Excel Office-Software eingefügt werden. Es ist nicht erforderlich, den Code von Grund auf neu zu schreiben, da Codeausschnitte zur Verwendung in Arbeitsblättern frei verfügbar sind. Es muss jedoch sichergestellt werden, dass die benutzerdefinierte Funktion oder Unterroutine zum Wiederholen von Zeilen mit einer festgelegten Anzahl von Malen an der richtigen Stelle eingefügt wird.

  • Problem
  • Lösung
  • Hinweis

Problem

Weiß jemand, wie man Zeilen in einer Kalkulationstabelle mit einer bestimmten Anzahl von Malen wiederholt, die in der Zelle angegeben sind, die in dieser Zeile vorhanden ist?

dh aus dieser Tabelle:

 Spalte A Spalte B

Peter 3

James 7

David 4

Ich muss diese Tabelle erstellen:

 Spalte A Spalte B

Peter 3

Peter 3

Peter 3

James 7

James 7

James 7

James 7

James 7

James 7

James 7

David 4

David 4

David 4

David 4

Irgendwelche Ideen dazu?

Lösung

Versuche dies:

 Sub CopyData ()

LRow As Long dimmen

Dim RepeatFactor As Variant

lRow = 1

Do While (Cells (lRow, "A") "")

RepeatFactor = Cells (lRow, "B")

If ((RepeatFactor> 1) und IsNumeric (RepeatFactor)) Then

Bereich (Zellen (Zeile, "A"), Zellen (Zeile, "B"))

Bereich (Zellen (lRow + 1, "A"), Zellen (lRow + RepeatFactor - 1, "B"))

Selection.Insert Shift: = xlDown

lRow = lRow + RepeatFactor - 1

End If

lRow = lRow + 1

Schleife

End Sub

Hinweis

Danke an rizvisa1 für diesen Tipp im Forum.
Vorherige Artikel Nächster Artikel

Top-Tipps