Przejdź do głównej zawartości

Jak szybko wstawić pustą kolumnę między każdą inną kolumną w programie Excel?

Kiedy obsługujemy arkusz roboczy, czasami musimy wstawić kolumny między istniejącymi kolumnami. Ale wstawienie pustej kolumny między wychodzące kolumny danych będzie żmudnym zadaniem, jeśli wstawisz każdą kolumnę osobno. Czy są jakieś szybkie sposoby rozwiązania tego problemu?

Wstaw puste kolumny z kodem VBA

Szybko wstawiaj puste kolumny za pomocą Kutools for Excel


strzałka niebieski prawy bąbelek Wstaw puste kolumny z kodem VBA

Proszę spojrzeć na poniższy zrzut ekranu, po każdej kolumnie chcę wstawić pustą kolumnę, aby zapisać inne informacje, mogę użyć krótkiego kodu VBA, aby zakończyć to zadanie.

1. Wybierz zakres, w którym chcesz wstawić puste kolumny między danymi.

2. kliknij Deweloper > Visual Basic, Nowy Microsoft Visual Basic dla aplikacji zostanie wyświetlone okno, kliknij wstawka > Modułi wprowadź następujący kod do modułu:

Sub insert_column_every_other ()
Dla colx = 2 do 30 Krok 2
Kolumny (colx). Wstaw Shift: = xlToRight
Następna
End Sub

3. Następnie kliknij  doc-pomnóż-obliczenie-3 przycisk, aby uruchomić kod. Alternatywne puste kolumny zostały wstawione do istniejących kolumn.

Uwaga: Ten VBA może wstawić tylko jedną pustą kolumnę między każdą pierwszą kolumną.

Jeśli chcesz wstawić jedną pustą kolumnę z dwoma odstępami, powyższy kod nie zadziała. Jak możesz szybko wstawić puste kolumny w określonych odstępach czasu?


strzałka niebieski prawy bąbelek Szybko wstawiaj puste kolumny za pomocą Kutools for Excel

Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni. Zdobądź to teraz.

Dzięki Kutools dla programu Excel, możesz łatwo rozwiązać ten problem. Wykonaj następujące czynności:

1. Zaznacz zakres, w którym chcesz wstawić puste kolumny.

2. kliknij Kutools > Narzędzia do wstawiania > Wstaw puste wiersze / kolumny… Patrz zrzut ekranu:

puste-kolumny-dokumentacji2

3. I Wstaw puste wiersze / kolumny pojawi się okno dialogowe. Kliknij Puste kolumny opcja z Wstaw typ. I wprowadź 2 cale Przedział czasu, wejście 1 in Kolumna. Zobacz zrzut ekranu:

4. Następnie kliknij OK. I wstawisz pustą kolumnę co dwa interwały. Zobacz zrzut ekranu:

Z Wstaw puste wiersze / kolumny można również wstawić określoną liczbę pustych wierszy z określonymi odstępami czasu między wyjściowymi danymi. Tutaj wstawiamy dwa puste wiersze między co drugą kolumną, patrz zrzut ekranu:

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

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

Opis


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!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how to copy coloumns from sl no 1 to 10 and paste to merged rows at a time from sl no 1 to 10 copy and paste in rows ab merge cd merge
This comment was minimized by the moderator on the site
Sadly this Kutools does not work on sheets where multiple tables are used above each other. It would be great if you could update the tool to enable this annoying limitation of Excel. I want to add a new column in the middle of ALL my tables within the document but it doesn't seem to be possible.
This comment was minimized by the moderator on the site
Is there a way to make the height of the blank row different from the height of the alternate row?
This comment was minimized by the moderator on the site
After running the macro You can also insert another column by putting 3 after Step
This comment was minimized by the moderator on the site
Can you please tell me the codes for multiple insertions and deletion of columns ?
This comment was minimized by the moderator on the site
This is related to the VB code modification in the excel where macro is there. Instead of doing change in code can i do it directly in the excel that is adding additional column details in excel between two columns
This comment was minimized by the moderator on the site
This is awesome! it works. great! thanks Asif
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations