Przejdź do głównej zawartości

Jak wybrać każdą n-tą kolumnę w programie Excel?

Na przykład masz duży arkusz z setkami kolumn danych. A teraz musisz skopiować dane z każdej trzeciej kolumny i wkleić je do innego nowego arkusza roboczego. Wybieranie kolejno każdej n-tej kolumny będzie czasochłonne i czy jest na to łatwy sposób?

Wybierz każdą n-tą kolumnę za pomocą VBA

Wybierz każdą n-tą kolumnę za pomocą Kutools for Excel


strzałka niebieski prawy bąbelek Wybierz każdą n-tą kolumnę za pomocą VBA

Wydaje się, że nie jest to prosty sposób, z wyjątkiem kodu VBA, aby rozwiązać ten problem. Wykonaj następujące czynności:

1. Podświetl zakres, który chcesz zaznaczyć w każdej n-tej kolumnie.

2.Click Deweloper > Visual Basic lub naciśnij Alt + F11, Nowy Microsoft Visual Basic dla aplikacji zostanie wyświetlone okno, kliknij wstawka > Moduł aby wprowadzić następujący kod do modułu:

 

Sub EveryOtherColumn()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xInterval As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xInterval = Application.InputBox("Enter column interval", xTitleId, Type:=1)
For i = 1 To InputRng.Columns.Count Step xInterval + 1
    Set rng = InputRng.Cells(1, i)
    If OutRng Is Nothing Then
        Set OutRng = rng
    Else
        Set OutRng = Application.Union(OutRng, rng)
    End If
Next
OutRng.EntireColumn.Select
End Sub

3. Następnie kliknij  , aby uruchomić kod, a pojawi się okno zachęty przypominające o wybraniu zakresu do pracy. Zobacz zrzut ekranu:

 

4. kliknij OK, a następnie wprowadź liczbę interwałów w innym wyskakującym oknie dialogowym. W takim przypadku wpisz 3 w polu. Zobacz zrzut ekranu:

5. kliknij OK. Teraz wybiera co trzecią kolumnę w zaznaczeniu. Zobacz zrzut ekranu:

Note: Możesz określić liczbę w sekundach Kutools dla programu Excel aby spełnić Twoje potrzeby.

Ale czasami musisz wybrać dwie kolumny z dwoma interwałami. Powyższy kod nie może działać, jak powinieneś to zrobić?


Wybierz każdą n-tą kolumnę za pomocą Kutools for Excel

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

Z Kutools dla programu Excel, możesz wybrać określoną liczbę kolumn w określonych odstępach czasu. Wykonaj następujące kroki:

1.Click Kutools > Wybierz Narzędzia > Wybierz Wiersze / kolumny przedziałówzobacz zrzut ekranu:

2. Wybierz Wiersze / kolumny przedziałów pojawi się okno dialogowe. Następnie kliknij aby wybrać żądany zakres, wybierz kolumny od Wybierz sekcjęi określ liczbę, którą chcesz umieścić w pliku Przedział czasu i kolumny lista rozwijana, tutaj wybieramy dwie kolumny w każdych kolumnach 3td. Zobacz zrzut ekranu:

3.Click OK. Wybierze dwie kolumny z dwoma interwałami w zaznaczeniu. Zobacz zrzut ekranu:

Note: Jeśli sprawdzisz Wybierz całe kolumny w wyskakującym oknie dialogowym wybierze całe kolumny w arkuszu. Zobacz zrzut ekranu:


Względne artykuły:

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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have one issue in excel, for example, in a row first five sells are numbered as 1,2,3, 4,5. in the second row also numbered as 1,2,3,4,5 in each sell. then to the third row need to paste the values of above two rows alternatively. means i need answer in each sells in third row 1,1,2,2,3,3,4,4,5,5. how can I do easily in excel? I am waiting for your response because I need to complete big datasheet.
This comment was minimized by the moderator on the site
i need to copy from f18 to h19, then f21 to h22, and it goes on till 500 values and before the value in h column need to add text also

like f18 = 345

in h19 I should get = tdg 345

for 500 values in h column.

please help me someone
This comment was minimized by the moderator on the site
This macro sucks dont waste your time
This comment was minimized by the moderator on the site
For some reason this does not work if only one row is selected.
This comment was minimized by the moderator on the site
Excel 2010 - Select interval column command does not work. There is no any raction after clicking - ok
This comment was minimized by the moderator on the site
I always get an error: invalid procedure... How can I solve it. I want to select every 4th column in my dataset
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations