Jak wstawić określoną liczbę wierszy w ustalonych odstępach czasu w programie Excel?
W arkuszu programu Excel możesz wstawić pusty wiersz między istniejącymi wierszami za pomocą funkcji Wstaw. Ale jeśli masz duży zakres danych i musisz wstawić dwa puste wiersze po co trzecim drugim wierszu, jak możesz szybko i wygodnie zakończyć tę pracę?
- Wstaw określoną liczbę pustych wierszy do zakresu danych w stałych odstępach czasu z kodem VBA
- Wstaw określoną liczbę pustych wierszy do zakresu danych na podstawie wartości komórek z kodem VBA
- Wstaw określoną liczbę pustych wierszy do zakresu danych w stałych odstępach czasu z przydatną funkcją
- Kopiuj i wstawiaj wiersze wiele razy na podstawie określonych liczb z kodem VBA
- Kopiuj i wstawiaj wiersze wiele razy na podstawie określonych liczb z niesamowitą funkcją
Wstaw określoną liczbę pustych wierszy do zakresu danych w stałych odstępach czasu z kodem VBA
Poniższy kod VBA może pomóc wstawić określoną liczbę wierszy po każdym n-tym wierszu w istniejących danych. Wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klucze w programie Excel i otwiera plik Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: wstaw określoną liczbę wierszy do danych w stałych odstępach czasu
Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
Application.Selection.EntireRow.Insert
xNum1 = xNum1 + xNum2
Next
End Sub
3. Po wklejeniu tego kodu naciśnij F5 Aby uruchomić ten kod, pojawi się okienko zachęty przypominające o wyborze zakresu danych, do którego chcesz wstawić puste wiersze, patrz zrzut ekranu:
4. Kliknij OK przycisk, pojawi się kolejne okno zachęty, wprowadź liczbę odstępów między wierszami, patrz zrzut ekranu:
5. Kliknij dalej OK przycisk, w następnym wyskakującym okienku zachęty wprowadź liczbę pustych wierszy, które chcesz wstawić, patrz zrzut ekranu:
6. Następnie kliknij OK, a puste wiersze zostały wstawione do istniejących danych w regularnych odstępach czasu, patrz zrzuty ekranu:
 |
 |
 |
Wstaw określoną liczbę pustych wierszy do zakresu danych na podstawie wartości komórek z kodem VBA
Czasami może być konieczne wstawienie pustych wierszy na podstawie listy wartości komórek, w tym przypadku poniższy kod VBA może wyświadczyć ci przysługę, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klucze w programie Excel i otwiera plik Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: wstaw określoną liczbę pustych wierszy na podstawie listy liczb:
Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub
3. Po wklejeniu tego kodu naciśnij F5 Aby uruchomić ten kod, w wyskakującym oknie dialogowym wybierz listę liczb, na podstawie których chcesz wstawić puste wiersze, zobacz zrzut ekranu:
4. Następnie kliknij OK, a otrzymasz potrzebne wyniki, jak pokazano na poniższych zrzutach ekranu:
 |
|
 |
Wstaw określoną liczbę pustych wierszy do zakresu danych w stałych odstępach czasu z przydatną funkcją
Jeśli nie znasz powyższego kodu VBA, Kutools dla programu Excel też może ci pomóc, jego Wstaw puste wiersze i kolumny Funkcja może szybko i łatwo wstawiać określoną liczbę wierszy lub kolumn do istniejących danych w ustalonych odstępach czasu.
Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności:
1. Wybierz zakres danych, w którym chcesz wstawiać puste wiersze w odstępach czasu.
2. Kliknij Kutools > wstawka > Wstaw puste wiersze i kolumnyzobacz zrzut ekranu:
3, w Wstaw puste wiersze i kolumny okno dialogowe, wybierz Puste wiersze opcja z Wstaw typ, a następnie określ liczbę interwałów i pustych wierszy, których chcesz użyć, jak pokazano na poniższym zrzucie ekranu:
4. Następnie kliknij OK przycisk, a puste wiersze zostały wstawione do wybranego zakresu w określonych odstępach czasu, jak pokazano na poniższym zrzucie ekranu:
|
|
|
Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!
Kopiuj i wstawiaj wiersze wiele razy na podstawie określonych liczb z kodem VBA
Przypuśćmy, że masz zakres tada, a teraz chcesz skopiować każdy wiersz i wkleić je wiele razy do następnego wiersza na podstawie listy liczb, jak pokazano poniżej. Jak można rozwiązać to zadanie w arkuszu programu Excel?
 |
|
 |
Aby poradzić sobie z tą pracą, wprowadzę dla Ciebie przydatny kod, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klucze w programie Excel i otwiera plik Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: Kopiuj i wstawiaj wiersze wiele razy na podstawie określonych liczb:
Sub CopyRows()
'UpdatebyExtendoffice
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 list of numbers to copy the rows based on: ", "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. Po wklejeniu tego kodu naciśnij F5 klucz do uruchomienia tego kodu, w wyskakującym oknie dialogowym wybierz listę liczb, które chcesz skopiować i wstaw wiersze danych na podstawie, patrz zrzut ekranu:
4. Następnie kliknij OK przycisk, a określona liczba wierszy została skopiowana i wklejona pod każdym oryginalnym wierszem, patrz zrzuty ekranu:
|
|
|
Kopiuj i wstawiaj wiersze wiele razy na podstawie określonych liczb z niesamowitą funkcją
Jeśli Kutools dla programu Excel, Z siedzibą w Zduplikowane wiersze / kolumny na podstawie wartości komórki funkcja, możesz szybko i łatwo wstawiać wiersze lub kolumny na podstawie listy numerów.
Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności:
1. Kliknij Kutools > wstawka > Zduplikowane wiersze / kolumny na podstawie wartości komórkizobacz zrzut ekranu:
2, 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 listę wartości, na podstawie których chcesz skopiować wiersze, zobacz zrzut ekranu:
4. Następnie kliknij Ok or Aplikuj przycisk, otrzymasz taki wynik, jak potrzebujesz:
|
|
|
Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!
Więcej artykułów względnych:
- Kopiuj i wstaw wiersz wiele razy lub powiel wiersz X razy
- 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?
- Wstaw puste wiersze po zmianie wartości w programie Excel
- Przypuśćmy, że masz zakres danych, a teraz chcesz wstawić puste wiersze między danymi po zmianie wartości, abyś mógł oddzielić sekwencyjne te same wartości w jednej kolumnie, jak pokazano na poniższych zrzutach ekranu. W tym artykule omówię kilka sztuczek, które pomogą Ci rozwiązać ten problem.
- Wstaw pusty wiersz po określonym tekście w programie Excel
- Jeśli chcesz wstawić puste wiersze po określonym tekście, jak pokazano na zrzucie ekranu, jak sobie z tym poradzić szybko i łatwo bez ręcznego wstawiania ich jeden po drugim?
- Skopiuj wiersze z wielu arkuszy roboczych na podstawie kryteriów do nowego arkusza
- Przypuśćmy, że masz skoroszyt z trzema arkuszami roboczymi, które mają takie samo formatowanie, jak pokazano na poniższym zrzucie ekranu. Teraz chcesz skopiować wszystkie wiersze z tych arkuszy, w których kolumna C zawiera tekst „Ukończono”, do nowego arkusza. Jak możesz szybko i łatwo rozwiązać ten problem bez kopiowania i wklejania ich ręcznie jeden po drugim?
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!
