Note: The other languages of the website are Google-translated. Back to English

Wie kann man den Zellenwert in Excel x-mal wiederholen?

Sie haben beispielsweise eine Liste mit Werten in Spalte A und möchten die Werte basierend auf der Anzahl der Werte in Spalte B wie im linken Screenshot gezeigt mehrmals wiederholen. Wie können Sie dies in Excel erreichen?

 

Wiederholen Sie die Zellwerte X-mal mit der Formel und der Hilfsspalte

Um die Zellenwerte X-mal zu wiederholen, können Sie einige Hilfsspalten einfügen und dann eine einfache Formel anwenden. Führen Sie die folgenden Schritte aus:

1. Fügen Sie eine Spalte links von Spalte A ein und geben Sie 1 in Zelle A2 ein, siehe Screenshot:

2. Dann setzen Sie diese Formel = A2 + C2 in A3 und ziehen Sie den Füllgriff in die Zelle A6, siehe Screenshot:

3. Geben Sie dann 1 in Zelle D2 ein und geben Sie die Zahl ein, indem Sie die automatische Füllung auf 12 ziehen. Dies ist die Gesamtzahl der Zeiten in Spalte C (siehe Abbildung):

4. Geben Sie dann diese Formel ein = VLOOKUP (D2, $ A $ 1: $ B $ 6,2) In Zelle E2 und nach unten kopieren erhalten Sie folgendes Ergebnis:

  • Anmerkungen:
  • 1. In dieser Formel D2 gibt die erste Zelle an, in der Sie mit der Zahlenfolge gefüllt sind, und A1: B6 steht für den Bereich der ersten Hilfsspalte und die ursprünglichen Zellenwerte, die Sie wiederholen müssen.
  • 2. Nachdem Sie die wiederholten Werte erhalten haben, können Sie sie kopieren und als Werte an eine andere Stelle einfügen.

Kopieren und fügen Sie Zeilen X-mal basierend auf einer bestimmten Anzahl einfach 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!


Wiederholen Sie die Zellenwerte X-mal mit VBA-Code

Wenn Sie der Meinung sind, dass die erste Methode schwer zu verstehen ist, kann ich Ihnen hier auch VBA-Code zur Lösung vorstellen.

1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen-Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.

VBA-Code: Zellenwerte X-mal wiederholen

Sub CopyData()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
For Each Rng In InputRng.Rows
    xValue = Rng.Range("A1").Value
    xNum = Rng.Range("B1").Value
    OutRng.Resize(xNum, 1).Value = xValue
    Set OutRng = OutRng.Offset(xNum, 0)
Next
End Sub
3. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, den Bereich auszuwählen, der die Werte und die wiederholten Zeiten enthält (siehe Abbildung):

4. Und klicken Sie auf OKEin weiteres Eingabeaufforderungsfeld wird angezeigt, in dem Sie eine Zelle für das Ergebnis auswählen können (siehe Abbildung):

5. Dann klick OKund Sie erhalten das Ergebnis, dass Ihre ausgewählten Werte nach Bedarf zu bestimmten Zeiten wiederholt wurden.


Kopieren und fügen Sie Zellenwerte X-mal mit einer fantastischen Funktion ein

Manchmal müssen Sie die Zellenwerte x-mal basierend auf der spezifischen Nummer kopieren und einfügen. Kutools for Excel's Doppelte Zeilen / Spalten basierend auf dem Zellenwert kann Ihnen helfen, die Zeilen basierend auf der von Ihnen angegebenen Nummer schnell zu kopieren und einzufü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. Klicken Sie Kutoolen > Insert > Doppelte Zeilen / Spalten basierend auf dem Zellenwert, siehe Screenshot:

2. 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 Kopieren und Einfügen 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.
kte tab 201905

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!
officetab unten
Kommentare (45)
Bewertet 5 aus 5 · 1 Bewertungen
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank dafür, sehr einfach zu machen und zu verstehen. Früher habe ich das manuell mit 2600 Zellen gemacht.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gibt es eine Möglichkeit, dass sich das Makro das Eingabe- und Ausgabeziel merkt, sodass Sie das nächste Mal, wenn das Makro ausgeführt wird, nicht erneut auswählen müssen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Der VBA-Code wird unterbrochen, wenn in der Spalte „Anzahl der Male“ der Wert 0 steht. Passen Sie die For Each-Schleife wie folgt an: For Each Rng In InputRng.Rows xValue = Rng.Range("A1").Value xNum = Rng.Range("B1").Value If xNum > 0 Then OutRng.Resize(xNum, 1).Value = xValue Set OutRng = OutRng.Offset(xNum, 0) End If Next
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke, Mann!! Viel Zeit gespart. :-)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe den ersten Ansatz verwendet, es hat einwandfrei funktioniert, danke.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke, Mann ..!! Das funktioniert und hat mir viel Zeit gespart.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank!! Hat mir jede Menge Zeit gespart. Cleverer Einsatz von vlookup!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gibt es wie bei #John Said eine Möglichkeit, einen festgelegten Bereich zu haben, sodass Sie nicht auswählen müssen. Ich versuche auch, jeden einzelnen Wert in eine eigene Spalte einzufügen. Ich habe die Zeile Set OutRng=OutRng.offset(xNum,0) in Set OutRng=OutRng.offset(xNum,1) geändert, um sie in Spalten zu bringen. Ich scheine einen Fehler in der Zeile OutRng.Resize(xNum ,1).value=xValue, auch wenn ich den Code von dieser Seite kopiere und einfüge. Jede Hilfe wäre sehr willkommen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank !!!! VB Macro hat für mich funktioniert und meine 1-wöchige Zeit gespart ... Nochmals vielen Dank ...
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, funktioniert der vorgeschlagene VBA-Code im Artikel, wenn die Zellen mit der Anzahl nicht neben den Zellen mit dem Wert stehen? Wenn nicht, gibt es eine Möglichkeit, die VBA zu ändern, damit es funktioniert?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank. :)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich habe eine Frage: Basisdaten: Kunde Land Gesamtergebnis: Kunde1 Kunde2 Kunde3 (falls vorhanden) Land1 Land2 usw. (falls vorhanden) Gesamt1 Gesamt2 usw. (falls vorhanden) Bitte jeder Lösen Sie dies, indem Sie die Formel in Excel so schnell wie möglich verwenden
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Fantastisch! Vielen Dank!!!!!!!!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Speichern von Projekten im Jahr 2017! Vielen Dank dafür! :-)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank Alter, du hast einen tollen Job gemacht.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gibt es eine Möglichkeit, den Code so zu ändern, dass es 2 Spalten mit Daten und 1 Spalte mit der Anzahl der Wiederholungen gibt? dh A1 = x B2 = y C3 = 2 das Makro würde dann A1 zweimal und b2 zweimal in den Cels auf der rechten Seite wiederholen. Jede Hilfe geschätzt. Vielen Dank.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dies war sehr hilfreich und praktisch, um eine Tabelle für die Arbeit zu erstellen
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sir
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Die VBA oder die Formel. Keiner von beiden arbeitet für mich. Es gibt "anwendungsdefinierten oder objektdefinierten Fehler" Fehler 1004. Kann jemand helfen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Der VBA-Code funktioniert nicht, wenn Sie Kutools nicht haben. Es gibt mir den Fehler "Variable nicht definiert"
Es sind noch keine Kommentare vorhanden
Mehr laden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL