Jak powielić wiersze na podstawie wartości komórki w kolumnie?
Na przykład mam zakres danych, który zawiera listę liczb w kolumnie D, a teraz chcę zduplikować całe wiersze kilka razy na podstawie wartości liczbowych w kolumnie D, aby uzyskać następujący wynik. Jak mogę wielokrotnie kopiować wiersze na podstawie wartości komórek w programie Excel?
Zduplikuj wiersze wiele razy na podstawie wartości komórek z kodem VBA
Kopiuj i wstawiaj wiersze określoną liczbę razy za pomocą poręcznego narzędzia - Kutools dla Excela
Zduplikuj wiersze wiele razy na podstawie wartości komórek z kodem VBA
Aby skopiować i powielić całe wiersze wiele razy na podstawie wartości komórek, może Ci pomóc poniższy kod VBA, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Zduplikuj wiersze wiele razy na podstawie wartości komórki:
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. Następnie naciśnij F5 kluczem do uruchomienia tego kodu, całe wiersze zostały zduplikowane wiele razy na podstawie wartości komórki w kolumnie D, zgodnie z potrzebami.
Kopiuj i wstawiaj wiersze określoną liczbę razy za pomocą poręcznego narzędzia - Kutools dla Excela
Jeśli nie znasz kodu VBA i nie możesz samodzielnie zmienić poprawnie parametrów w kodzie. W tym przypadku Kutools dla programu Excel's Zduplikuj wiersze/kolumny na podstawie wartości komórki może pomóc w wielokrotnym kopiowaniu i wstawianiu wierszy na podstawie wartości komórek za pomocą zaledwie trzech kliknięć.
- Kliknij Kutools > wstawka > Powiel wiersze/kolumny na podstawie wartości komórki aby włączyć tę funkcję;
- Następnie wybierz Skopiuj i wstaw wiersze opcję i określ komórki Wstaw zakres i Powtórz razy oddzielnie w oknie dialogowym.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!