Note: The other languages of the website are Google-translated. Back to English

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ą


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

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.
doc wstawiaj kolumny w odstępach 1

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

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.
doc wstawiaj kolumny w odstępach 3

6. Kliknij OK przycisk, aby uzyskać wynik.
doc wstawiaj kolumny w odstępach 4


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

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.
doc wstawiaj kolumny w odstępach 5

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.
doc wstawiaj kolumny w odstępach 6

3. Kliknij OK przycisk, aby zakończyć ustawienie i uzyskać wynik.
doc wstawiaj kolumny w odstępach 7

Uwagi: 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.


Inne operacje (artykuły)

Jak szybko wstawić linię na podstawie bieżącej daty w programie Excel?
Przypuśćmy, że istnieje arkusz zawierający wiersz z datami, a teraz chcę wstawić wiersz bezpośrednio do bieżącej daty, która będzie się automatycznie zmieniać podczas otwierania skoroszytu każdego dnia. Czy jest jakaś sztuczka, którą można rozwiązać w programie Excel?

Jak zawsze wstawiać pusty wiersz poniżej zamiast powyżej w programie Excel?
Jak wszyscy wiemy, podczas wstawiania pustego wiersza w arkuszu roboczym, pusty wiersz będzie zawsze wstawiany powyżej wybranego wiersza lub komórki. Ale czasami może być konieczne wstawienie wiersza poniżej wybranej komórki lub wiersza. Jak możesz rozwiązać tę pracę w programie Excel?

Jak automatycznie wstawić pusty nowy wiersz za pomocą przycisku polecenia w programie Excel?
W wielu przypadkach może być konieczne wstawienie pustego nowego wiersza w określonej pozycji arkusza. W tym artykule pokażemy, jak automatycznie wstawić pusty nowy wiersz, klikając przycisk polecenia w programie Excel.

Jak wstawić 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?


  • 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ę...
karta kte 201905
  • 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!
officetab dół
Sortuj komentarze według
Komentarze (0)
Brak ocen. Oceń jako pierwszy!
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL