Jak powtórzyć wiersze określoną liczbę razy na podstawie innej kolumny w programie Excel?
Czy kiedykolwiek próbowałeś powtórzyć wiersz na podstawie innej wartości kolumny, jak pokazano na zrzucie ekranu? W tym artykule przedstawię metodę rozwiązywania tego zadania w programie Excel.
Powtórz wiersze na podstawie innej wartości kolumny z VBA
Powtórz wiersze na podstawie innej wartości kolumny przez Kutools for Excel
Powtarzaj wiersze ze stałym czasem przez Kutools for Excel
Powtórz wiersze na podstawie innej wartości kolumny z VBA
Tutaj mam kod, który może szybko powtórzyć wiersze na podstawie wartości ostatnich kolumn.
1. naciśnij Alt + F11 klucze do włączenia Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > Moduł, a następnie skopiuj poniższy kod i wklej go do nowego Moduł skrypt.
VBA: powtórz wiersze na podstawie wartości innej kolumny
Sub CopyRow()
'UpdatebyExtendoffice20181011
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the number value", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub
3. naciśnij F5 klawisz, pojawi się okno dialogowe, wybierz listę numerów, na podstawie której będą powtarzane wiersze.
4. Kliknij OK, wiersze zostały powtórzone w oparciu o wybraną wartość kolumny.
Powtórz wiersze na podstawie innej wartości kolumny przez Kutools for Excel
Jeśli nie jesteś dobry w używaniu VBA, możesz spróbować Kutools dla programu Excel'S Powiel wiersze/kolumny na podstawie wartości komórki funkcja, która wymaga tylko dwóch kroków.
| Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. |
1. kliknij Kutools > wstawka > Powiel wiersze/kolumny na podstawie wartości komórki.
2. W wyświetlonym oknie dialogowym wybierz Skopiuj i wstaw wiersze opcja w Rodzaj Nieruchomości sekcji, a następnie wybierz zakres, dla którego chcesz powtórzyć Wstaw zakrese pole tekstowe i wybierz kolumnę, która decyduje o czasach powtórzeń do Powtórz razy pole tekstowe. Kliknij Ok.
Następnie wiersze zostaną powtórzone przez wybraną kolumnę.
Powtarzaj wiersze ze stałym czasem przez Kutools for Excel
Jeśli chcesz powtarzać wiersze ze stałym czasem bez wstawiania wierszy jeden po drugim, możesz spróbować użyć rozszerzenia Wstaw puste wiersze i kolumny i Wypełnij puste komórki narzędzia Kutools dla programu Excel szybko poradzić sobie z tą pracą.
Po zainstalowaniu Kutools dla programu Excel, wykonaj poniższe czynności:（Bezpłatne pobieranie Kutools dla programu Excel teraz!)
1. Wybierz zakres danych, w którym chcesz powtarzać wiersze, kliknij Kutools > wstawka > Wstaw puste wiersze i kolumny. Następnie w Wstaw puste wiersze i kolumny okno dialogowe, sprawdź Puste wiersze opcję, a następnie wpisz 1 najnowszych Interwał of pole tekstowe i wpisz liczbę, w której chcesz powtarzać wiersze Wydziwianie pole tekstowe.
2. kliknij Ok, puste wiersze zostały wstawione pod każdym wierszem.
3. Pozostaw wybrany zakres, kliknij Kutools > wstawka > Wypełnij puste komórki, w Wypełnij puste komórki okno dialogowe, sprawdź Na podstawie wartości i Pobierz opcje.
4. kliknij Ok. Teraz puste komórki zostały wypełnione powyższą wartością.
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!
