Как да вмъкнете конкретен брой колони на фиксирани интервали в Excel?

При ежедневната си употреба на Excel може да попаднете в ситуация, от която се нуждаете добавете още колони между съществуващите колони. Можете, разбира се, да вмъкнете колоните една по една с помощта на функцията Insert. Но когато сте изправени пред големи данни и трябва да вмъкнете три колони след всяка втора или n-та колона, функцията Insert очевидно не е ефективна. И така, как можете бързо да завършите задачата? В този урок ще говорим за два лесни метода за решаване на проблема.

Вмъкнете определен брой празни колони в диапазона от данни на фиксирани интервали с VBA код

Вмъкнете определен брой празни колони в диапазона от данни на фиксирани интервали с невероятна функция

Можем да използваме по-долу VBA код за вмъкване на определен брой празни колони след всяка n-та колона. Моля, направете следното.

1. Натисни Alt + F11 клавиши в Excel и отваря Microsoft Visual Basic за приложения прозорец.

2. кликване Поставете > Модули и поставете следния макрос в Модули Window.

VBA код: Вмъкнете определен брой колони в данни на фиксирани интервали

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. Натисни F5 ключ за изпълнение на този код. Изскача поле за подкана, което ви напомня да изберете обхват на данни в които искате да вмъкнете празни колони.

4. Щракнете върху OK бутон. Изскача друго поле за подкана, моля, въведете броя на интервалите на колоните в Въведете интервал на колона кутия.

5. Продължете да щраквате върху OK бутон. Изскача третото поле за подкана, моля, посочете броя на колоните, които искате да вмъкнете на всеки интервал в кутията.

6. Щракнете върху OK бутон, за да получите резултата.

Ако не искате да използвате метода на VBA код, Вмъкване на празни редове и колони функция на Kutools за Excel е идеалното решение за вас. С тази функция можете да вмъкнете определен брой колони в диапазон от данни на фиксирани интервали само с няколко кликвания.

Преди да кандидатствате Kutools за Excel, моля, първо го изтеглете и инсталирайте.

1. Първо изберете съществуващия диапазон от данни. След това щракнете Kutools > Поставете > Вмъкване на празни редове и колони.

2. В Вмъкване на празни редове и колони изскача диалогов прозорец. Можете да видите диапазона от данни, който сте избрали в стъпка 1, показан в полето Диапазон. Избери Празни колони опция в Въведете типа раздел. И уточни номерата на интервалите на колоните намлява колони, които искате да вмъкнете на всеки интервал. Тук въвеждам 1 и 3 отделно.

3. Щракнете върху OK бутон, за да завършите настройката и да получите резултата.

Забележка: Ако искате да имате безплатна пробна версия (30 дни) на тази помощна програма, моля, щракнете, за да я изтеглите, и след това отидете, за да приложите операцията според горните стъпки.

---

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

Kutools за Excel решава повечето от вашите проблеми и увеличава вашата производителност с 80%

• Супер Формула Бар (лесно редактиране на няколко реда текст и формула); Оформление за четене (лесно четене и редактиране на голям брой клетки); Поставяне във филтриран диапазон...
• Обединяване на клетки/редове/колони и съхраняване на данни; Съдържание на разделени клетки; Комбинирайте дублиращи се редове и сума/средно... Предотвратяване на дублиращи се клетки; Сравнете диапазони...
• Изберете Дублиран или Уникален редове; Изберете Празни редове (всички клетки са празни); Super Find и Fuzzy Find в много работни тетрадки; Произволен избор...
• Точно копие Множество клетки без промяна на референтната формула; Автоматично създаване на препратки към множество листа; Вмъкване на куршуми, квадратчета за отметка и други...
• Любими и бързо вмъкнати формули, диапазони, диаграми и снимки; Шифроване на клетки с парола; Създаване на пощенски списък и изпращайте имейли...
• Извличане на текст, Добавяне на текст, Премахване по позиция, Премахване на пространството; Създаване и отпечатване на междинни суми за пейджинг; Конвертиране на съдържание и коментари между клетки...
• Супер филтър (запазване и прилагане на филтърни схеми към други листове); Разширено сортиране по месец/седмица/ден, честота и други; Специален филтър с удебелен шрифт, курсив...
• Комбинирайте работни тетрадки и работни листове; Обединяване на таблици въз основа на ключови колони; Разделете данните на няколко листа; Пакетно конвертиране на xls, xlsx и PDF...
• Групиране на обобщена таблица по номер на седмицата, ден от седмицата и други... Показване на отключени, заключени клетки с различни цветове; Маркирайте клетки, които имат формула/име...

Прочети повече ... Пълни функции 30-дневен безплатен пробен период... Покупка... 

---

Раздел Office - предоставя интерфейс с раздели в Office и прави работата ви много по-лесна

• Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
• Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
• Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!

Прочети повече ... Пълни функции 30-дневен безплатен пробен период... Покупка...