Jak wstawić określoną liczbę kolumn w ustalonych odstępach czasu w programie Excel?

Podczas codziennego korzystania z programu Excel możesz napotkać sytuację, w której musisz dodać więcej kolumn między istniejącymi kolumnami. Możesz oczywiście wstawiać kolumny jedna po drugiej za pomocą funkcji Wstaw. Ale kiedy masz do czynienia z dużą ilością danych i musisz wstawić trzy kolumny po każdej drugiej lub n-tej kolumnie, funkcja Wstaw najwyraźniej nie jest skuteczna. Jak więc szybko zakończyć zadanie? W tym samouczku omówimy dwie proste metody rozwiązania problemu.

Wstaw określoną liczbę pustych kolumn do zakresu danych w stałych odstępach czasu za pomocą kodu VBA

Wstaw określoną liczbę pustych kolumn do zakresu danych w stałych odstępach czasu z niesamowitą funkcją

Możemy skorzystać z poniższych Kod VBA aby wstawić określoną liczbę pustych kolumn po każdej n-tej kolumnie. Proszę wykonać następujące czynności.

1. wciśnij Alt + F11 klucze w programie Excel i otwiera plik Microsoft Visual Basic for Applications okno.

2. kliknij wstawka > Moduł i wklej następujące makro w Moduł Okno.

Kod VBA: Wstaw określoną liczbę kolumn do danych w stałych odstępach czasu

Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount 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)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
   Application.Selection.EntireColumn.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. wciśnij F5 klucz, aby uruchomić ten kod. Pojawi się okienko przypominające o wybraniu zakres danych w którym chcesz wstawić puste kolumny.

4. Kliknij OK przycisk. Pojawi się kolejne okno dialogowe, wprowadź liczba interwałów kolumn Wprowadź interwał kolumny pudełko.

5. Kontynuuj klikanie OK przycisk. Pojawi się trzecie okno dialogowe, proszę określić liczba kolumn, które chcesz wstawić w każdym przedziale w pudełku.

6. Kliknij OK przycisk, aby uzyskać wynik.

Jeśli nie chcesz używać metody kodu VBA, Wstaw puste wiersze i kolumny cechą Kutools dla programu Excel to idealne rozwiązanie dla Ciebie. Dzięki tej funkcji możesz wstawić określoną liczbę kolumn do zakresu danych w stałych odstępach za pomocą zaledwie kilku kliknięć.

Przed złożeniem wniosku Kutools dla programu Excel, najpierw pobierz i zainstaluj.

1. Najpierw wybierz istniejący zakres danych. Następnie kliknij Kutools > wstawka > Wstaw puste wiersze i kolumny.

2. Wstaw puste wiersze i kolumny pojawi się okno dialogowe. Możesz zobaczyć zakres danych wybrany w kroku 1 wyświetlany w polu Zakres. Wybierz Puste kolumny opcja w Wstaw typ Sekcja. I sprecyzuj liczba interwałów kolumn i kolumny, które chcesz wstawić w każdym przedziale. Tutaj wprowadzam 1 i 3 osobno.

3. Kliknij OK przycisk, aby zakończyć ustawienie i uzyskać wynik.

Note: Jeśli chcesz mieć bezpłatną wersję próbną (30-dniową) tego narzędzia, kliknij, aby je pobrać, a następnie przejdź do zastosowania operacji zgodnie z powyższymi krokami.

---

Najlepsze narzędzia biurowe

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

• 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 i przechowywanie danych; Podziel zawartość komórek; Połącz zduplikowane wiersze i sumę / średnią... 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 ...
• Ulubione i szybkie wstawianie formuł, Zakresy, wykresy i obrazy; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
• 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...
• Grupowanie tabel przestawnych według numer tygodnia, dzień tygodnia i więcej ... Pokaż odblokowane, zablokowane komórki w różnych kolorach; Podświetl komórki, które mają formułę / nazwę...

Czytaj więcej... Pełne funkcje 30-dniowa bezpłatna wersja próbna... Zakup... 

---

Karta Office - przenosi 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... Pełne funkcje 30-dniowa bezpłatna wersja próbna... Zakup...