VBA Вставить столбец - Как вставить столбец в Excel VBA?

• Excel VBA Вставить столбец

Excel VBA Вставить столбец

В Excel, если мы хотим вставить столбец, есть несколько способов сделать это. Мы можем щелкнуть вправо и выбрать «Вставить столбец» в раскрывающемся списке меню или одновременно использовать клавиши Ctrl + Shift + Plus (+). Но что если мы автоматизируем этот процесс, создав макрос через VBA? Это очень полезно, когда мы работаем над созданием макроса с огромной структурой кодирования или добавлением столбца или нескольких столбцов, что также является задачей для выполнения. В VBA есть весь столбец, а функция Вставка используется для вставки нового столбца.

Как вставить столбец в Excel VBA?

Мы научимся вставлять столбец в Excel с использованием кода VBA на нескольких примерах.

Вы можете скачать этот шаблон Excel для вставки столбцов VBA здесь - Шаблон Excel для вставки столбцов VBA

Пример № 1 - VBA Вставить столбец

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

Для этого выполните следующие шаги:

Шаг 1: Сначала вставьте новый модуль в VBA из пункта меню «Вставка», как показано ниже.

Шаг 2: Теперь запустите подкатегорию в названии выполняемой функции, например VBA Insert Column, или в любое другое имя, как показано ниже.

Код:

 Sub VBAColumn1 () End Sub 

Шаг 3. Сначала выберите диапазон ячеек или полных столбцов, в которые мы хотим вставить столбец, а затем команду Вставить, как показано ниже. Команда Вставить позволит вставить любую строку или столбец или ячейку в выбранный столбец или ячейку диапазона.

Код:

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

Шаг 4: Теперь выберите диапазон ячеек в качестве ссылки, откуда мы хотим вставить столбец, как показано ниже.

Код:

 Sub VBAColumn1 () Range ("B: B"). Вставить диапазон ("B4") End Sub 

Шаг 5 : Как обсуждалось в объяснении, мы будем использовать весь столбец с функцией Вставка, как показано ниже. Это позволит вставить столбец.

Код:

 Sub VBAColumn1 () Range ("B: B"). Вставить диапазон ("B4"). CompleteColumn.Insert End Sub 

Шаг 6: Теперь скомпилируйте код, нажав функциональную клавишу F8, а затем нажмите кнопку Play, чтобы запустить полный код, который находится под строкой меню, как показано ниже. Мы заметим, что между column1 и column2 будут вставлены два новых пустых столбца, как показано ниже.

Пример № 2 - VBA Вставить столбец

Есть еще один способ вставки столбца. Этот метод включает в себя комбинацию различных команд.

Шаг 1: Вставьте новый модуль из меню «Вставка».

Шаг 2: И напишите подкатегорию в названии функции «Выполнено», как показано ниже, или в любом другом имени.

Код:

 Sub VBAColumn2 () End Sub 

Шаг 3: С помощью размерной переменной DIM с любым алфавитом или именем определите его как Range let 'скажем Column, как показано ниже.

Код:

 Sub VBAColumn2 () Dim Column As Sub End Sub 

Шаг 4: Теперь следуя за Range, используйте функцию Set с столбцом определенного размера, как показано ниже, за которым следует знак равенства («=»).

Код:

 Sub VBAColumn2 () Dim Column As Range: Установить столбец = Конец Sub 

Шаг 5: Теперь используйте функцию Application, встроенную в VBA с определенным диапазоном полного столбца B.

Код:

 Sub VBAColumn2 () Dim Column As Range: Установить столбец = Application.Range ("B: B") End Sub 

Шаг 6: Теперь используйте переменную Column с функцией Insert, как показано ниже.

Код:

 Sub VBAColumn2 () Dim Column As Range: Установить Column = Application.Range ("B: B") Column.Insert End Sub 

Шаг 7: Мы можем сдвинуть, чтобы вставить столбец вправо или влево с помощью команды Shift. Обычно столбец вставляется в правое направление всегда от выбранной ячейки или столбца.

Код:

 Sub VBAColumn2 () Dim Column As Диапазон: Установить Column = Application.Range ("B: B") Column.Insert Shift: = xlShiftToRight, End Sub 

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

Код:

 Sub VBAColumn2 () Dim Column As Диапазон: Установите Column = Application.Range ("B: B") Column.Insert Shift: = xlShiftToRight, CopyOrigin: = xlFormatFromRightOrBelow End Sub 

Шаг 9: Теперь все готово. Мы можем скомпилировать код и запустить его. Мы увидим новый столбец между Colum1 и Column2, который будет добавлен, как показано ниже.

Пример № 3 - VBA Вставить столбец

Этот пример - еще один самый простой способ вставить столбец в VBA.

Шаг 1: Вставьте новый модуль

Шаг 2: Добавьте подкатегорию в название столбца вставки VBA, как показано ниже.

Код:

 Sub VBAColumn3 () End Sub 

Шаг 3: Сначала выберите ссылку на столбец или ячейку, куда мы хотим добавить столбец, с помощью Select, как показано ниже.

Код:

 Sub VBAColumn3 () Столбцы ("B: B"). Выберите End Sub 

Шаг 4: Во второй строке используйте команду «Выделение» вместе с функцией «Вставка», как показано ниже.

Код:

 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 () End Sub 

Шаг 3: Теперь используйте DIM для определения переменной с любым именем. Мы использовали столбец как целое число (в случае использования чисел)

Код:

 Sub VBAColumn4 () Dim Column As Integer End Sub 

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

Код:

 Sub VBAColumn4 () Тусклый столбец в виде целочисленных столбцов (2). Выберите End Sub 

Шаг 5: Откройте цикл For-Next, где мы напишем условия для вставки столбца друг за другом, как показано.

Код:

 Sub VBAColumn4 () Тусклый столбец в виде целочисленных столбцов (2). Выберите для следующего конца Sub 

Шаг 6: Поскольку в наших образцах данных есть только 2 столбца, мы можем добавить только новый столбец из этих столбцов. Таким образом, мы используем диапазон от 0 до 2 столбцов последовательности.

Код:

 Sub VBAColumn4 () Тусклый столбец в виде целочисленных столбцов (2). Выберите для столбца = от 0 до 2 Next End Sub 

Шаг 7: С помощью функции ActiveCell используйте FullColumn для вставки, как показано ниже.

Код:

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

Шаг 8: С помощью функции ActiveCell используйте Offset, чтобы разместить вновь добавленный столбец. Мы используем 0 и 2- ^ю позицию.

Код:

 Sub VBAColumn4 () Затемнять столбец в виде целочисленных столбцов (2). Выбрать для столбца = от 0 до 2 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2). Выбрать следующий конец Sub 

Шаг 9: Теперь скомпилируйте код и запустите его, если ошибки не найдены. Мы увидим, что после column1 и column2 добавляются новые столбцы.

Плюсы Excel VBA Вставить столбец

• Это полезно, так как быстро добавляет новый столбец в любой диапазон ячеек.
• Это легко реализовать, даже если структура кода огромна.
• Если мы работаем над огромным кодом, для завершения кода потребуется новая колонка, использование приведенных выше примеров облегчит задачу.

То, что нужно запомнить

• Если вы используете пример 4, не забудьте выбрать диапазон столбцов, пока таблица не будет применима.
• Сохранение файла в макросе enable excel, сохранение кода.
• Вставьте только применимые и обязательные столбцы, чтобы избежать добавления ненужных столбцов.

Рекомендуемые статьи

Это руководство по вставке столбца VBA. Здесь мы обсуждаем, как вставить столбец в Excel с использованием кода VBA, а также с практическими примерами и загружаемым шаблоном Excel. Вы также можете просмотреть наши другие предлагаемые статьи -

1. VBA VLOOKUP Функция
2. Функция DCOUNT в Excel
3. VBA Copy Paste
4. Функция COMBIN в Excel