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 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.
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.
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.
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.
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?
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ę...
- 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!