Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie dupliziere Zeilen basierend auf 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?

doc dupliziert Zeilen nach Zelle 1

Duplizieren Sie Zeilen mehrmals basierend auf Zellenwerten mit VBA-Code


Pfeil blaue rechte Blase Duplizieren Sie Zeilen mehrmals basierend auf Zellenwerten mit VBA-Code

Um die gesamten Zeilen basierend auf den Zellenwerten mehrmals zu kopieren und zu duplizieren, kann Ihnen der folgende VBA-Code helfen:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Einsatz > Modul, und fügen Sie den folgenden Code in die Modul Fenster.

VBA-Code: Dupliziert Zeilen mehrfach basierend auf dem Zellenwert:

Sub CopyData()
'Updateby Extendoffice 20160922
    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 dem Zellenwert in Spalte D mehrfach dupliziert.

Text: In dem obigen Code der Buchstabe A Gibt die Startspalte Ihres Datenbereichs und den Buchstaben an D ist der Spaltenbuchstabe, auf den Sie die Zeilen kopieren möchten. Bitte ändern Sie sie nach Ihren Bedürfnissen.



Empfohlene Produktivitätswerkzeuge

Office Tab

Goldstern1 Bringen Sie praktische Tabs zu Excel und anderer Office-Software, genau wie Chrome, Firefox und den neuen Internet Explorer.

Kutools for Excel

Goldstern1 Tolle! Steigern Sie Ihre Produktivität in 5 Minuten. Brauche keine besonderen Fähigkeiten, spare zwei Stunden pro Tag!

Goldstern1 300 Neue Funktionen für Excel, machen Excel viel einfacher und leistungsfähiger:

  • Zelle / Zeilen / Spalten zusammenführen, ohne Daten zu verlieren.
  • Kombinieren und konsolidieren Sie mehrere Arbeitsblätter und Arbeitsmappen.
  • Bereiche vergleichen, Mehrere Bereiche kopieren, Text in Datum umwandeln, Einheit und Währungsumrechnung.
  • Zählen nach Farben, Paging-Zwischensummen, Erweiterte Sortierung und Super-Filter,
  • Mehr Auswählen / Einfügen / Löschen / Text / Formatieren / Verknüpfen / Kommentieren / Arbeitsmappen / Arbeitsblätter Werkzeuge ...

Screenshot von Kutools für Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ISRA · 1 months ago
    there is any way we can add to eache repeated cell, a consecutive caracters? example
    KTE+0001

    KTE+0002
  • To post as a guest, your comment is unpublished.
    KAS · 3 months ago
    Is there a way to update the module to only duplicate new data? I'm working on an ongoing document and do not want the code to duplicate data that has been previously duplicated.
  • To post as a guest, your comment is unpublished.
    Gerardo Enrique Heras Araujo · 4 months ago
    hi, for me is no working, I want to remove letters and number duplicate is possible?
  • To post as a guest, your comment is unpublished.
    Naomi · 4 months ago
    This script seems to be exactly what I need, however, when I run it I am getting an error on the line Selection.Insert Shift:=x1Down

    Any suggestions on how I fix this?
  • To post as a guest, your comment is unpublished.
    Manuel F · 4 months ago
    Thanks! it has been a great solution for all my troubles!