VBA вмъкваща колона - Как да вмъкнете колона в Excel VBA?

• Excel VBA колона за вмъкване

Excel VBA колона за вмъкване

В excel, ако искаме да вмъкнем колона, тогава има множество начини за това. Можем да кликнем надясно и да изберем Вмъкване на колона от падащото меню или да използваме Ctrl + Shift + Plus (+) заедно. Но какво ще стане, ако автоматизираме и този процес, като създадем макрос чрез VBA? Това е много полезно, когато работим върху създаването на макрос с огромна кодираща структура или добавяне на колона или няколко колони, което също е задача за изпълнение. VBA има цяла колона, а функцията Insert се използва за вмъкване на нова колона.

Как да вмъкнете колона в Excel VBA?

Ще научим как да вмъкваме колона в excel, използвайки VBA код с няколко примера.

Можете да изтеглите този шаблон на VBA Insert Column Excel тук - VBA Insert Column Excel шаблон

Пример №1 - Вмъкнете колона VBA

Имаме таблица от 2 колони и 11 реда, както е показано по-долу. Сега ще автоматизираме процеса на поставяне на колони по различни начини.

За това следвайте стъпките по-долу:

Стъпка 1: Първо вмъкнете нов модул във VBA от опцията за меню Вмъкване, както е показано по-долу.

Стъпка 2: Сега стартирайте подкатегория в името на изпълняваната функция като VBA Insert Column или в друго име, както е показано по-долу.

Код:

 Sub VBAColumn1 () Край Sub 

Стъпка 3: Първо, изберете обхвата на клетките или пълните колони, в които искаме да вмъкнете колона, последвана от команда Insert, както е показано по-долу. Командата Insert ще позволи да се вмъкне всеки ред или колона или клетка в избраната колона или клетка от диапазон.

Код:

 Sub VBAColumn1 () Обхват ("B: B"). Поставете края Sub 

Стъпка 4: Сега изберете диапазона на клетките като ориентир, откъдето искаме да вмъкнем колона, както е показано по-долу.

Код:

 Под VBAC колона1 () Обхват ("B: B"). Вмъкване на обхват ("B4") Край Sub 

Стъпка 5 : Както е разгледано в обяснението, ще използваме Цялата колона с функция Вмъкване, както е показано по-долу. Това ще даде възможност колоната да се вмъкне.

Код:

 Под VBAColumn1 () Обхват ("B: B"). Вмъкнете диапазон ("B4"). EntireColumn.Insert End Sub 

Стъпка 6: Сега компилирайте кода, като натиснете функционалния клавиш F8 и след това щракнете върху бутона Възпроизвеждане, за да стартирате пълния код, който е под лентата с менюто, както е показано по-долу. Ще забележим между колона1 и колона2, ще се вмъкнат две нови празни колони, както е показано по-долу.

Пример №2 - Вмъкнете колона VBA

Има и друг метод за поставяне на колона. Този метод включва комбинация от различни команди.

Стъпка 1: Поставете нов модул от менюто Вмъкване.

Стъпка 2: И напишете подкатегория в името на изпълняваната функция, както е показано по-долу или във всяко друго име.

Код:

 Sub VBAColumn2 () Край Sub 

Стъпка 3: С помощта на променлива за размер DIM с всяка азбука или име го дефинирайте като диапазон, нека да кажем колона, както е показано по-долу.

Код:

 Sub VBAColumn2 () Dim колона като диапазон край Sub 

Стъпка 4: Следвайки диапазона, използвайте функция Set с колона с дефиниран размер, както е показано по-долу, последвана от знак за равенство („=“).

Код:

 Sub VBAColumn2 () Dim колона в диапазон: Задайте колона = End Sub 

Стъпка 5: Сега използвайте Приложната функция, която е вградена VBA с определен диапазон от пълна колона B.

Код:

 Под VBAColumn2 () Dim колона в диапазон: Задайте колона = Application.Range ("B: B") Край Sub 

Стъпка 6: Сега използвайте променлива на колоната с функция Вмъкване, както е показано по-долу.

Код:

 Под VBAColumn2 () Dim колона в диапазон: Задайте колона = Application.Range ("B: B") Column.Insert End Sub 

Стъпка 7: Можем да се преместим, за да вмъкнем колона вдясно или наляво с помощта на командата Shift. Обикновено колоната се вмъква в правилната посока винаги от референтната избрана клетка или колона.

Код:

 Под VBAColumn2 () Dim колона в диапазон: Задайте колона = Application.Range ("B: B") Колона. Вмъкване Shift: = xlShiftToRight, End Sub 

Стъпка 8: Най-сетне изберете оригиналния формат за произход отдясно или отдолу, който е за колона или ред, в зависимост от вида на вмъкването.

Код:

 Под VBAColumn2 () Dim колона в диапазон: Задайте колона = Application.Range ("B: B") Колона. Вмъкване Shift: = xlShiftToRight, CopyOrigin: = xlFormatFromRightOrBelow End Sub 

Стъпка 9: Сега тя е завършена. Можем да компилираме кода и да го изпълним. Ще видим нова колона между Colum1 и Column2 ще бъде добавена, както е показано по-долу.

Пример # 3 - VBA Вмъкнете колона

Този пример е друг най-лесен начин за поставяне на колона във VBA.

Стъпка 1: Поставете нов модул

Стъпка 2: Добавете подкатегория в името на VBA Insert Column, както е показано по-долу.

Код:

 Sub VBAColumn3 () Край Sub 

Стъпка 3: Първо изберете референтната колона или клетка, където искаме да добавим колона с помощта на Select, както е показано по-долу.

Код:

 Под VBAColumn3 () Колони ("B: B"). Изберете End Sub 

Стъпка 4: Във втория ред използвайте командата за избор заедно с функцията Вмъкване, както е показано по-долу.

Код:

 Под VBAColumn3 () Колони ("B: B"). Изберете Selection.Insert End Sub 

Стъпка 5: Най-сетне изберете позицията, където искаме да изместим поставената нова колона, отдясно или отляво с помощта на Shift функция. Изборът на поставяне на нова колона зависи изцяло от изискванията на индивида.

Код:

 Под VBAColumn3 () Графи ("B: B"). Изберете Selection.Insert Shift: = xlToRight End Sub 

Стъпка 6: Това завършва нашия код. Сега можем да компилираме кода, за да открием дали има някаква грешка. Ако няма намерена грешка, стартирайте кода. Ще видим нова колона ще бъде добавена между колона1 и колона2, както е показано по-долу.

Пример №4 - VBA Вмъкнете колона

В този пример ще научим как да добавяме нови колони след всяка вече стояща колона.

Стъпка 1: Сега поставете модул от менюто за вмъкване.

Стъпка 2: След това добавете подкатегория в името на VBA Insert Column с поредица от числа.

Код:

 Sub VBAColumn4 () Край Sub 

Стъпка 3: Сега използвайте DIM, за да определите променлива в което и да е име. Използвахме колона като цяло число (в случай на числа се използват)

Код:

 Sub VBAColumn4 () Dim колона като цяло число Край Sub 

Стъпка 4: Към колона след всяка стояща запълнена колона ще изберем и използваме колона (2), за да добавим нова колона, както е показано по-долу.

Код:

 Под VBAColumn4 () Dim колона като цели колони (2). Изберете край Sub 

Стъпка 5: Отворете контура For-Next, където ще напишем условията за вмъкване на колона една след друга, както е показано.

Код:

 Под VBAColumn4 () Dim колона като целочислени колони (2) .Изберете за следващия край Sub 

Стъпка 6: Тъй като в нашите примерни данни имаме само 2 колони, така че можем да добавим само нова колона само от тези колони. Така че използваме 0 до 2 диапазона от колони за последователност.

Код:

 Под VBAColumn4 () Dim колона като цели колони (2) .Изберете за колона = 0 до 2 Следващ край Sub 

Стъпка 7: С помощта на функцията ActiveCell използвайте EntireColumn за вмъкване, както е показано по-долу.

Код:

 Под VBAColumn4 () Dim колона като цели колони (2) .Изберете за колона = 0 до 2 ActiveCell.EntireColumn.Insert Next End Sub 

Стъпка 8: С помощта на функцията ActiveCell използвайте Offset, за да поставите ново добавената колона. Използваме 0 и 2 позиция.

Код:

 Под VBAColumn4 () Dim колона като цели колони (2). Изберете за колона = 0 до 2 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2). Изберете Next End Sub 

Стъпка 9: Сега компилирайте кода и го стартирайте, ако не е намерена грешка. Ще видим, след колона1 и колона2 се добавят нови колони.

Плюсове на Excel VBA Insert Column

• Полезно е бързо добавяне на нова колона във всеки диапазон от клетки.
• Лесно се изпълнява, дори ако структурата на кода е огромна.
• Ако работим върху огромен код, нова колона се превръща в необходимост от попълване на кода, като се използват горните примери, ще направи задачата лесна.

Неща, които трябва да запомните

• Ако използвате пример-4, тогава не забравяйте да изберете диапазона на колоните, докато таблицата е приложима.
• Записването на файла в макрос активира excel, записва кода.
• Поставете само приложими и задължителни колони, за да избегнете ненужни колони за добавяне.

Препоръчителни статии

Това е ръководство за VBA Insert Column. Тук обсъждаме как да вмъкнете колона в Excel, използвайки VBA код, заедно с практически примери и шаблон за Excel за изтегляне. Можете да разгледате и другите ни предложени статии -

1. VBA VLOOKUP функция
2. DCOUNT Функция в Excel
3. VBA Копие Паст
4. COMBIN функция в Excel