Перейти до основного матеріалу

Як вибрати кожен n-й стовпець у Excel?

Наприклад, у вас є великий аркуш із сотнями стовпців даних. А тепер потрібно скопіювати дані кожного 3-го стовпця та вставити їх на інший новий аркуш. Виділення кожного n-го стовпця по одному буде трудомістким, і чи є простий спосіб це зробити?

Виділіть кожен n-й стовпець з VBA

Виберіть кожен n-й стовпець за допомогою Kutools для Excel


стрілка синя права міхур Виділіть кожен n-й стовпець з VBA

Здається, це не простий спосіб, окрім коду VBA, вирішити цю проблему. Будь ласка, виконайте такі дії:

1. Виділіть діапазон, який потрібно вибрати для кожного n-го стовпця.

2.Click Розробник > Візуальний Бейсік або натисніть Alt + F11, новий Microsoft Visual Basic для програм відобразиться вікно, натисніть Insert > Модулі ввести наступний код в Модуль:

 

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 Потім натисніть  натисніть кнопку для запуску коду, і з'явиться підказка з нагадуванням про вибір діапазону для роботи. Дивіться знімок екрана:

 

4. клацання OK, а потім введіть кількість інтервалів у іншому діалоговому вікні, що вискакує. У цьому випадку введіть 3 у полі. Дивіться знімок екрана:

5. клацання OK. Тепер він виділяє кожен 3-й стовпець у виділенні. Дивіться знімок екрана:

примітки: Ви можете вказати номер у другому Kutools для Excel діалогове вікно, щоб задовольнити ваші потреби.

Але іноді потрібно вибрати дві колонки з двома інтервалами. Наведений вище код не може працювати, як це робити?


Виберіть кожен n-й стовпець за допомогою Kutools для Excel

Kutools для Excel: з більш ніж 300 зручними надбудовами Excel, спробуйте безкоштовно без обмежень протягом 30 днів. Отримайте зараз.

з Kutools для Excel, ви можете вибрати певну кількість стовпців через певні проміжки часу. Будь ласка, виконайте такі дії:

1.Click Кутулс > Виберіть Інструменти > Виберіть Рядки / Стовпці інтервалу, див. скріншот:

2. Виберіть Рядки / Стовпці інтервалу з'явиться діалогове вікно. Потім клацніть , щоб вибрати діапазон, який вам потрібен, виберіть Колони від Виберіть розділ, і вкажіть номер, який ви хочете в Інтервал та Колони випадаючий список, тут ми обираємо два стовпці в кожному стовпці 3td. Дивіться знімок екрана:

3.Click OK. Він виділить два стовпці з двома інтервалами у виділенні. Дивіться знімок екрана:

примітки: Якщо ви перевірите Виділіть цілі стовпці у спливаючому діалоговому вікні він виділить цілі стовпці на аркуші. Дивіться знімок екрана:


Відносні статті:

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

 

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