Jak wielokrotnie kopiować i wstawiać wiersz lub powielać wiersz x razy w programie Excel?
Czy w swojej codziennej pracy próbowałeś kiedyś skopiować wiersz lub każdy wiersz, a następnie wstawić wiele razy poniżej bieżącego wiersza danych w arkuszu? Na przykład mam zakres komórek, teraz chcę skopiować każdy wiersz i wkleić je 3 razy do następnego wiersza, jak pokazano na zrzucie ekranu. Jak mógłbyś sobie poradzić z tą pracą w Excelu?
- Skopiuj i wstaw wielokrotnie określony wiersz za pomocą kodu VBA
- Skopiuj i wstaw każdy wiersz wiele razy za pomocą kodu VBA
- Skopiuj i wstaw każdy wiersz wiele razy na podstawie określonej liczby z niesamowitą funkcją
Skopiuj i wstaw wielokrotnie określony wiersz za pomocą kodu VBA
Jeśli chcesz zduplikować tylko jeden określony wiersz x razy, następujący kod VBA może Ci pomóc, wykonaj następujące czynności:
1. Określ wiersz, który chcesz skopiować i wstawić wiele razy, a następnie przytrzymaj klawisz ALT + F11 klucze, a następnie otwiera Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Powiel jeden określony wiersz wiele razy:
Sub test()
'Updateby Extendoffice
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
ActiveCell.EntireRow.Copy
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
3. Po wklejeniu kodu naciśnij F5 klucz do uruchomienia tego kodu i pojawi się okno zachęty przypominające o wpisaniu liczby kopii, które chcesz powielić, patrz zrzut ekranu:
4. Następnie kliknij OK przycisk, a trzy nowe skopiowane wiersze zostały wstawione poniżej wybranego wiersza, patrz zrzut ekranu:
Łatwo kopiuj i wstawiaj każdy wiersz wiele razy na podstawie określonej liczby
Zwykle nie ma dobrej metody wielokrotnego kopiowania i wstawiania wierszy, z wyjątkiem ręcznego kopiowania i wstawiania. Ale z Kutools dla programu Excel's Zduplikowane wiersze / kolumny na podstawie wartości komórki możesz z łatwością rozwiązać ten problem. Kliknij, aby pobrać Kutools dla programu Excel!
Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 60 dni. Pobierz i bezpłatną wersję próbną teraz!
Skopiuj i wstaw każdy wiersz wiele razy za pomocą kodu VBA
Aby zduplikować każdy wiersz wiele razy w zakresie, możesz zastosować następujący kod VBA, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klucze, a następnie otwiera Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Powiel każdy wiersz wiele razy:
Sub insertrows()
'Updateby Extendoffice
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Rows(I).Copy
Rows(I).Resize(xCount).Insert
Next
Application.CutCopyMode = False
End Sub
3. A następnie naciśnij F5 klucz do uruchomienia tego kodu i pojawi się okno zachęty przypominające o wprowadzeniu liczby powtórzeń, które chcesz powielić dla każdego rekordu, patrz zrzut ekranu:
4. Następnie kliknij OK, a każdy wiersz został skopiowany i wstawiony 3 razy poniżej aktywnych, patrz zrzut ekranu:
Note: W powyższym kodzie A wskazuje, że zakres danych zaczyna się w kolumnie A, jeśli dane zaczynają się w kolumnie K, proszę zmień A do K jako twoja potrzeba.
Skopiuj i wstaw każdy wiersz wiele razy na podstawie określonej liczby z niesamowitą funkcją
Być może nie znasz kodu VBA lub martwisz się, że kod spowoduje awarię danych. Tutaj przedstawię przydatną funkcję, Kutools dla programu Excel's Zduplikowane wiersze / kolumny na podstawie wartości komórkiza pomocą tego narzędzia można szybko kopiować i wstawiać wiersze na podstawie określonej liczby.
Porady:Aby to zastosować Zduplikowane wiersze / kolumny na podstawie wartości komórki Po pierwsze, należy pobrać plik Kutools dla programu Excel, a następnie szybko i łatwo zastosuj tę funkcję.
Po zainstalowaniu Kutools dla programu Excel, zrób tak:
1. Wprowadź powtarzające się liczby, które chcesz powielić wiersze na liście komórek obok danych, zobacz zrzut ekranu:
2. Kliknij Kutools > wstawka > Zduplikowane wiersze / kolumny na podstawie wartości komórkizobacz zrzut ekranu:
3, w Skopiuj i wstaw wiersze i kolumny okno dialogowe, wybierz Skopiuj i wstaw wiersze opcja w Rodzaj Nieruchomości , a następnie wybierz zakres danych, który chcesz powielić, a następnie określ czas powtarzania, aby zduplikować wiersze, zobacz zrzut ekranu:
4. Następnie kliknij Ok or Dodaj przycisk, otrzymasz taki wynik, jak potrzebujesz:
Kliknij, aby pobrać Kutools dla programu Excel i bezpłatną wersję próbną teraz!
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!