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 masz 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 Typ , 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 Zastosuj przycisk, otrzymasz taki wynik, jak potrzebujesz:

Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!

Więcej artykułów względnych:

---

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

• Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
• Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
• Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
• Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
• Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
• Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
• Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
• Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
• Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.

Czytaj więcej... Darmowe pobieranie... Zakup... 

---

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!

Czytaj więcej... Darmowe pobieranie... Zakup...