Добавление столбца справа от существующего в Excel

При работе с Excel часто возникает необходимость расширить набор данных, добавив новые столбцы рядом с уже существующими — например, вставить столбцы «Премия» и «Налог» сразу после столбца «Зарплата».

Однако Excel не предлагает прямого варианта «вставить справа». По умолчанию новые столбцы всегда добавляются слева от выбранного — что может быть неудобно, если вам нужно именно добавить несколько столбцов справа от существующих данных, особенно при работе с несколькими столбцами одновременно.

В этом руководстве мы рассмотрим практические способы добавления нескольких столбцов справа от существующих в Excel. Начнём с решения на VBA, а затем представим гораздо более простой и эффективный метод с использованием Kutools для Excel.

• Добавление Добавить несколько столбцов справа с помощью VBA
• Добавление Добавить несколько столбцов справа мгновенно с помощью Kutools для Excel

Код VBA для Вставить столбцы справа от выделения

Поскольку Excel не предоставляет встроенной функции для прямой вставки столбцов справа от выделения, VBA предлагает гибкое решение: с помощью короткого макроса вы сможете мгновенно вставлять столбцы справа от выбранных.

Например, в следующей таблице вы можете захотеть добавить новые столбцы, такие как «Премия» и «Налог», справа от столбца «Зарплата». Выполните приведённые ниже шаги, чтобы завершить эту задачу.

Шаг 1: Откройте редактор VBA

Нажмите Alt + F11, чтобы открыть редактор Visual Basic для приложений (VBA).

Шаг 2: Вставьте модуль

В редакторе VBA выберите Вставка>Модуль,затем скопируйте и вставьте следующий код в окно модуля:

Код VBA для Вставить столбцы справа от выделения

Sub InsertColumnsToRight()
'Updated by Extendoffice 20260323
    ' Prompt user to select a range
    Dim rng As Range
    Set rng = Application.InputBox("Select columns:", "Kutools for Excel", Selection.Address, Type:=8) 
    If rng Is Nothing Then Exit Sub
    Dim colCount As Long
    colCount = rng.Columns.Count
    ' Insert columns to the right of the selection
    rng.Columns(rng.Columns.Count).Offset(0, 1).Resize(, colCount).EntireColumn.Insert
End Sub

Шаг 3: Запустите код

1. Нажмите F5, чтобы запустить макрос.
2. В появившемся диалоговом окне выберите столько же столбцов, сколько вы хотите вставить.
   Например, чтобы вставить два столбца справа от столбца «Зарплата», выберите столбец «Зарплата» и один столбец слева от него.
3. Нажмите OK.

   

Результат

Excel автоматически вставит справа от выбранных вами столбцов то же количество новых столбцов.

Хотя VBA — мощный и гибкий инструмент, он требует определённых технических навыков и не всегда удобен для повседневного использования.

Добавить несколько столбцов справа мгновенно с помощью Kutools для Excel

Если вы предпочитаете более быстрое и удобное решение, Kutools для Excel предлагает функцию «одним щелчком», которая позволяет вставлять столбцы сразу справа — без написания кода. Операция полностью соответствует родному поведению Excel при вставке: просто щёлкните правой кнопкой мыши по заголовкам выбранных столбцов, как в Excel, — и всё готово! Это делает функцию интуитивно понятной и не требует дополнительного обучения.

Шаг 1: Выберите столбцы

Выберите количество столбцов, справа от которых нужно вставить новые.

В данном случае я хочу вставить два столбца справа от столбца «Зарплата», поэтому выбираю столбец «Зарплата» и один столбец слева от него.

Шаг 2: Примените функцию «Добавить справа»

Щёлкните правой кнопкой мыши по заголовку выбранного столбца и в контекстном меню выберите Добавить справа.

Результат

Kutools мгновенно вставит справа от выделения то же количество столбцов.

Преимущества использования Kutools для Excel

• Непосредственное Вставить столбцы to the right (no workaround needed)
• Автоматически соответствует количеству выбранных столбцов
• Не требует VBA или формул
• Простая операция правого щелчка, идеально подходящая для ежедневного использования

Этот метод особенно полезен при работе с большими объёмами данных или когда структуру столбцов приходится часто изменять.

Заключение

Добавить несколько столбцов справа от уже существующих в Excel — распространённая задача, но стандартное поведение Excel делает её менее интуитивной, чем ожидалось.

• Метод VBA предлагает гибкое настраиваемое решение и идеально подходит для пользователей, знакомых с макросами.
• Метод Kutools для Excel предлагает самый эффективный и интуитивно понятный способ — выполните задачу всего за несколько щелчков!

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