Стовпець вставки VBA - Як вставити стовпчик у Excel VBA?

• Excel VBA Вставка стовпця

Excel VBA Вставка стовпця

У excel, якщо ми хочемо вставити стовпчик, то існує кілька способів зробити це. Ми можемо клацнути правою кнопкою миші та вибрати рядок Вставити стовпчик зі спадного списку або разом використовувати клавішу Ctrl + Shift + Plus (+). Але що робити, якщо ми також автоматизуємо цей процес, створивши макрос через VBA? Це дуже корисно, коли ми працюємо над створенням макросу величезної структури кодування або додаванням стовпчика або декількох стовпців, що також є завданням для виконання. VBA має функцію "Цілий стовпець", а для вставки нового стовпця використовується функція "Вставка".

Як вставити стовпчик у Excel VBA?

Ми дізнаємось, як вставити стовпчик у excel, використовуючи код VBA з кількома прикладами.

Ви можете завантажити цей шаблон вкладеного стовпця VBA тут - VBA Insert Column Excel Шаблон

Приклад №1 - Вставка стовпця VBA

У нас є таблиця з 2 стовпців і 11 рядків, як показано нижче. Тепер ми автоматизуємо процес вставки стовпців різними способами.

Для цього виконайте наступні кроки:

Крок 1: Спочатку вставіть новий модуль у VBA, з пункту меню Вставка, як показано нижче.

Крок 2: Тепер запустіть підкатегорію в назві виконуваної функції, наприклад, стовпець Вставка VBA або в будь-якому іншому імені, як показано нижче.

Код:

 Sub VBAColumn1 () Кінець Sub 

Крок 3: Спочатку вибираємо діапазон комірок або повних стовпців, куди ми хочемо вставити стовпчик, а потім команду Вставити, як показано нижче. Команда Вставка дозволить вставити будь-який рядок або стовпець або комірок у вибраний стовпчик діапазону чи комірки.

Код:

 Sub VBAColumn1 () Діапазон (): "B: B". Вставте кінець Sub 

Крок 4: Тепер виберіть діапазон комірок як орієнтир, звідки ми хочемо вставити стовпчик, як показано нижче.

Код:

 Sub VBAColumn1 () Діапазон (): B: B). Вставте діапазон ("B4") Кінець Sub 

Крок 5 : Як обговорюється в поясненні, ми будемо використовувати весь стовпчик з функцією Вставити, як показано нижче. Це дозволить вставити стовпець.

Код:

 Sub VBAColumn1 () Діапазон ("B: B"). Вставте діапазон ("B4"). EntireColumn.Insert End Sub 

Крок 6: Тепер скомпілюйте код, натиснувши функціональну клавішу F8, а потім натисніть кнопку Відтворити, щоб запустити повний код, який знаходиться під рядком меню, як показано нижче. Ми помітимо між колоною1 та стовпцем2, два нові порожні стовпці будуть вставлені, як показано нижче.

Приклад №2 - Вставка стовпця VBA

Існує ще один спосіб вставлення стовпця. Цей спосіб включає комбінацію різних команд.

Крок 1. Вставте новий модуль у меню Вставка.

Крок 2: І напишіть підкатегорію в назві функції, що виконується, як показано нижче або в будь-якому іншому імені.

Код:

 Sub VBAColumn2 () Кінець Sub 

Крок 3: За допомогою розмірної змінної DIM з будь-яким алфавітом або іменем визначте його як Діапазон, нехай скажемо стовпець, як показано нижче.

Код:

 Sub VBAColumn2 () Темний стовпчик як діапазон Кінець Sub 

Крок 4: Тепер слідуючи за діапазоном, використовуйте функцію Set із стовпцем із визначеними розмірами, як показано нижче, а потім знаком рівності («=»).

Код:

 Sub VBAColumn2 () Темний стовпець у діапазоні: Встановити стовпець = Кінець підряд 

Крок 5: Тепер використовуйте функцію Application, яка є вбудованою VBA з визначеним діапазоном повного стовпця B.

Код:

 Sub VBAColumn2 () Темний стовпець у діапазоні: Встановити стовпець = Application.Range ("B: B") Кінець Sub 

Крок 6: Тепер використовуйте змінну стовпців з функцією Вставка, як показано нижче.

Код:

 Sub VBAColumn2 () Темний стовпець у діапазоні: Встановити стовпець = Application.Range ("B: B") Column.Insert End Sub 

Крок 7: Ми можемо переключитися, щоб вставити стовпчик вправо або вліво за допомогою команди Shift. Зазвичай стовпець вставляється в правильний напрям завжди з опорної вибраної комірки або стовпця.

Код:

 Sub VBAColumn2 () Темний стовпець у діапазоні: Встановити стовпець = Application.Range ("B: B") Column.Insert Shift: = xlShiftToRight, End Sub 

Крок 8: Нарешті, виберіть посилання вихідного формату праворуч або внизу, що є для стовпця або рядка, залежно від типу вставки.

Код:

 Sub VBAColumn2 () Темний стовпець у діапазоні: Встановити стовпець = Application.Range ("B: B") Column.Insert Shift: = xlShiftToRight, CopyOrigin: = xlFormatFromRightOrBelow End Sub 

Крок 9: Тепер він завершений. Ми можемо скласти код і запустити його. Ми побачимо, що новий стовпчик між Colum1 та Column2 буде доданий, як показано нижче.

Приклад №3 - Вставка стовпця VBA

Цей приклад - ще один найпростіший спосіб вставити стовпчик у VBA.

Крок 1: Вставте новий модуль

Крок 2: Додайте підкатегорію до імені VBA Insert Column, як показано нижче.

Код:

 Sub VBAColumn3 () Кінець Sub 

Крок 3: Спершу вибираємо посилання стовпця або комірки, куди ми хочемо додати стовпець за допомогою Select, як показано нижче.

Код:

 Sub VBAColumn3 () Стовпці ("B: B"). Виберіть End Sub 

Крок 4: У другому рядку використовуйте команду Selection разом із функцією Вставка, як показано нижче.

Код:

 Sub VBAColumn3 () Стовпці ("B: B"). Виберіть Selection.Insert End Sub 

Крок 5: Нарешті виберіть позицію, куди ми хочемо змістити вставлений новий стовпець, праворуч чи ліворуч за допомогою функції Shift. Вибір місця для розміщення нового стовпця залежить від вимог людини.

Код:

 Sub 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 () Темний стовпець як цілий кінець Sub 

Крок 4: До стовпця після кожного стоячого заповненого стовпця ми виберемо та використаємо стовпець (2), щоб додати новий стовпчик, як показано нижче.

Код:

 Sub VBAColumn4 () Темний стовпець як цілі стовпці (2). Виберіть Кінець Sub 

Крок 5: Відкрийте цикл For-Next, де ми напишемо умови, щоб вставити стовпчик один за одним, як показано.

Код:

 Sub VBAColumn4 () Темний стовпець як цілі стовпці (2). Виберіть для наступного кінця Sub 

Крок 6. Оскільки у наших зразках даних є лише 2 стовпчики, ми можемо додати лише новий стовпчик лише з цих стовпців. Тому ми використовуємо від 0 до 2 діапазонів стовпців послідовностей.

Код:

 Sub VBAColumn4 () Темний стовпець як цілі стовпці (2) .Виберіть для стовпця = 0 до 2 наступний кінець Sub 

Крок 7: За допомогою функції ActiveCell використовуйте EntireColumn для вставки, як показано нижче.

Код:

 Sub VBAColumn4 () Темний стовпець як цілі стовпці (2) .Виберіть для стовпця = 0 до 2 ActiveCell.EntireColumn.Insert Next End Sub 

Крок 8: За допомогою функції ActiveCell використовуйте зміщення для розміщення щойно доданого стовпця. Ми використовуємо 0 і 2 позицію.

Код:

 Sub VBAColumn4 () Темний стовпець як цілі стовпці (2) .Виберіть для стовпця = 0 до 2 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2). Виберіть Next End Sub 

Крок 9: Тепер складіть код і запустіть його, якщо помилки не знайдено. Ми побачимо, після колонки1 та стовпця2 додаються нові стовпці.

Плюси Excel VBA Insert Column

• Це корисно як швидке додавання нового стовпця в будь-який діапазон комірок.
• Це легко реалізувати, навіть якщо структура коду величезна.
• Якщо ми працюємо над величезним кодом, новий стовпець стає необхідним для заповнення коду, використовуючи наведені вище приклади, це полегшить завдання.

Що потрібно пам’ятати

• Якщо ви використовуєте приклад-4, то не забудьте вибрати діапазон стовпців, поки таблиця не застосовується.
• Збереження файлу в макросі дозволяє excel, зберігає код.
• Вставте лише відповідні та потрібні стовпці, щоб уникнути непотрібних стовпців для додавання.

Рекомендовані статті

Це посібник із Вставного стовпчика VBA. Тут ми обговорюємо, як вставити стовпчик в Excel за допомогою коду VBA разом із практичними прикладами та шаблоном Excel, який можна завантажити. Ви також можете ознайомитися з іншими запропонованими нами статтями -

1. Функція VBA VLOOKUP
2. DCOUNT Функція в Excel
3. Вставити копію VBA
4. Функція COMBIN в Excel