Прескочи на основното съдържание

Как да изберете всяка n-та колона в Excel?

Автор: Xiaoyang Последна промяна: 2014-03-17

Например имате голям работен лист със стотици колони с данни. И сега трябва да копирате данните от всяка трета колона и да ги поставите в друг нов работен лист. Ще отнеме много време да изберете всяка n-та колона една по една и има ли някакъв лесен начин да го направите?

Изберете всяка n-та колона с VBA

Изберете всяка n-та колона с Kutools за Excel


стрелка син десен балон Изберете всяка n-та колона с VBA

Изглежда няма прост начин освен VBA код за решаване на този проблем. Моля, направете следните стъпки:

1. Маркирайте диапазона, който искате да изберете всяка n-та колона.

2.Click Софтуерен Инженер > Visual Basic или натиснете Alt + F11, Нов Microsoft Visual Basic за приложения ще се покаже прозорец, щракнете Поставете > Модули за да въведете следния код в модула:

 

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 Kutools > Изберете Инструменти > Изберете Интервални редове/колони, вижте екранна снимка:

2. В Изберете Интервални редове/колони ще се появи диалогов прозорец. След това щракнете бутон, за да изберете диапазона, от който се нуждаете, изберете Колони от Изберете раздели посочете номера, който искате в Интервал от намлява Колони падащ списък, тук избираме две колони във всеки 3td колони. Вижте екранна снимка:

3.Click OK. Той ще избере две колони с два интервала в селекцията. Вижте екранна снимка:

Забележка: Ако проверите Изберете цели колони в изскачащия диалогов прозорец ще избере целите колони в листа. Вижте екранна снимка:


Сродни статии:

Най-добрите инструменти за продуктивност в офиса

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

Усъвършенствайте уменията си за 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