Вписать все столбцы на одну страницу excel vba

Обновлено: 01.07.2024

В каждой из этих ситуаций потребуется свой метод вставки столбца.

Примечание: все методы, показанные в этом руководстве, также будут работать, если вы хотите вставить новые строки.

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

В этом руководстве я расскажу о следующих методах / сценариях вставки новых столбцов в Excel:

  • Вставить один новый столбец (с помощью сочетания клавиш или параметров на ленте)
  • Добавить несколько новых столбцов
  • Добавляйте несмежные столбцы за один раз
  • Вставлять новые столбцы после каждого второго столбца
  • Вставить новый столбец в таблицу Excel

Вставить новый столбец (сочетание клавиш)

Предположим, у вас есть набор данных, как показано ниже, и вы хотите добавить новый столбец слева от столбца B.

Ниже показано сочетание клавиш для вставки столбца в Excel:

Control Shift + (удерживайте клавиши Control и Shift и нажмите клавишу плюс)

Command + I, если вы используете Mac

Ниже приведены инструкции по использованию этого сочетания клавиш для добавления столбца слева от выбранного столбца:


  • Выберите ячейку в столбце, слева от которого вы хотите добавить новый столбец
  • Используйте сочетание клавиш Control Shift +
  • В открывшемся диалоговом окне «Вставка» выберите параметр «Весь столбец» (или нажмите клавишу C).
  • Щелкните OK (или нажмите клавишу Enter).

Вышеупомянутые шаги немедленно добавят новый столбец слева от выбранного столбца.

Он сразу же добавит новый столбец.

Ниже показано сочетание клавиш для выбора всего столбца (после выбора ячейки в столбце):

Control + пробел (удерживайте клавишу Control и нажмите клавишу пробела)

Выбрав столбец, вы можете использовать Control Shift +, чтобы добавить новый столбец.

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


Это вставит столбец слева от столбца, в котором вы выбрали ячейку.

Добавить несколько новых столбцов (смежных)

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

Предположим, у вас есть набор данных, как показано ниже, и вы хотите добавить два столбца слева от столбца B.

Ниже приведены шаги для этого:


Вышеупомянутые шаги мгновенно вставили бы два столбца слева от столбца B.

Если вы хотите вставить любое другое количество столбцов (скажем, 3, 4 или 5 столбцов), вы выбираете это количество для начала.

Добавить несколько новых столбцов (несмежных)

Приведенный выше пример является быстрым, когда вы хотите добавить новые соседние столбцы (т. е. Блок из 3 смежных столбцов, как показано выше).

Но что, если вы хотите вставить столбцы, но они не являются смежными.

Например, предположим, что у вас есть набор данных, показанный ниже, и вы хотите вставить один столбец перед столбцом B и один перед столбцом D.


Хотя вы можете делать это по одному, есть способ лучше.

Ниже приведены шаги по добавлению нескольких несмежных столбцов в Excel:

  • Выберите столбцы, в которые вы хотите вставить новый столбец.
  • Щелкните правой кнопкой мыши в любом месте выделения
  • Щелкните Вставить.


Вышеупомянутые шаги мгновенно вставят столбец слева от выбранных столбцов.


Вставлять новые столбцы после каждого другого столбца (с использованием VBA)

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

Приведенный выше код пройдет по каждому столбцу в выделенном фрагменте и вставит столбец справа от выбранных столбцов.

Вы можете добавить этот код в обычный модуль, а затем запустить этот макрос оттуда.

Или, если вам необходимо использовать эту функцию регулярно, вы также можете рассмотреть возможность добавления ее в личную книгу макросов, а затем добавить ее на панель быстрого доступа. Таким образом, у вас всегда будет доступ к этому коду и вы сможете запустить его одним щелчком мыши.

Примечание. Приведенный выше код также работает, если данные отформатированы как таблица Excel.

Добавить столбец в таблицу Excel

Когда вы конвертируете набор данных в таблицу Excel, вы теряете часть гибкости, которая есть у вас есть с обычными данными, когда дело доходит до вставки столбцов.

Например, вы не можете выбрать несмежные столбцы и вставить столбцы рядом с ними за один раз. Вам придется делать это по одному.

Предположим, у вас есть таблица Excel, как показано ниже.

Чтобы вставить столбец слева от столбца B, выберите любую ячейку в столбце, щелкните правой кнопкой мыши, перейдите к параметру «Вставить» и нажмите «Столбцы таблицы слева».


Это вставит столбец слева от выбранной ячейки.

Если вы выберете ячейку в столбце B и одну в столбце D, вы заметите, что опция «Столбцы таблицы слева» неактивна. В этом случае вам придется вставлять столбцы только по одному.

Что удивительно, это работает, когда вы выбираете несмежные строки, но не со столбцами.

Итак, это некоторые из методов, которые вы можете использовать для вставки новых столбцов в Excel. Все методы, описанные в этом руководстве, также будут работать, если вы хотите вставить новые строки (хотя код VBA потребует некоторой модификации).

Иногда при распечатке документов Excel возникают ситуации, при которых не все элементы таблицы помещаются в границах распечатанной страницы. К примеру, если данные не умещаются по ширине, они будут распечатаны на другом листе, что значительно затруднит дальнейшее соотнесение данных, относящихся к одной строчке. Однако, столкнувшись с подобной проблемой, не стоит отчаиваться, поскольку существуют способы их решения. Давайте рассмотрим несколько методов, которые позволяют распечатывать таблицу таким образом, чтобы она могла уместиться на одном стандартном листе.

Распечатка таблицы на одном листе

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

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

Изменение ориентации страницы

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

  1. Первое, что мы должно понять – это вмещаются ли все данные на одном стандартном листе или нет. Переходим в режим просмотра “Разметка страницы”. Попасть сюда можно двумя способами:
    • с помощью пиктограммы, расположенной внизу с правой стороны строки состояния программы.
    • через вкладку «Вид». В разделе режимов просмотра книги кликаем по кнопке “Разметка страницы”.
  2. После перехода в режим разметки документ отобразится в таком же виде, как и при распечатке. Он поможет понять, помещается ли таблица в рамках одного листа или нет. Что касается таблицы, рассматриваемой в нашем примере, она разделена на две отдельные страницы по горизонтали, что не совсем хорошо.
  3. В этой ситуации переходим во вкладку “Разметка страницы”. Здесь в разделе “Параметры страницы” нажимаем на кнопку “Ориентация” и в выпадающем списке нажимаем на вариант “Альбомная”.

Помимо рассмотренного выше метода, существуют и другие способы изменения ориентации страниц:

  1. Первый реализуется через параметры печати:
    • кликаем по меню “Файл”.
    • в вертикальном списке с левой стороны окна находим раздел, отвечающий за настройки печати. Здесь же показываются предварительный просмотр документа, его ориентация и прочие параметры.
    • нажимаем по текущей ориентации и выпадающем списке нажимаем по той опции, которая нам нужна. В данном случае – это альбомная ориентация. Смотрим в область предварительного просмотра документа и убеждаемся том, что благодаря внесенным изменениям нам удалось разместить таблицу в пределах одного стандартного листа.
  2. Также стоит отметить способ изменения ориентации с использованием окна параметров страницы:
    • оставаясь в том же окне (Файл – Печать), в настройках внизу щелкаем по «Параметрам страницы». Есть еще несколько вариантов, которые позволяют открыть эти параметры, но они подробно рассмотрены дальше.

Благодаря этим нехитрым действиям нам удалось решить проблему с размещением таблицы на одной странице.

Настройка границ столбцов и строк

В некоторых случаях таблица не умещается в пределах одного листа из-за нерационального использования места. Например, когда некоторые столбцы остаются пустыми или их ширина/длина намного больше, чем того требует содержимое в них. Это ведет к увеличению размеров таблицы по ширине и длине, а это в свою очередь приводит к тому, что документ не умещается на одном листе. В подобных случаях обычно прибегают к уменьшению размеров ячеек.

Для начала давайте посмотрим, как меняется ширина столбцов:

Настройка границ столбцов и строк

  1. Ставим курсор с правой стороны от уменьшаемого столбца на координатной панели. Он должен буть установлен прямо по границе соседних столбцов. Если все сделано правильно, то вид курсора сменится на крестик с разнонаправленными стрелками. Затем, зажав левую кнопку мыши, передвигаем границу влево. Сдвигать ее следует таким образом, чтобы не перекрыть данные наиболее заполненной ячейки.
  2. Данную процедуру выполняем и для всех оставшихся столбцов. Благодаря этим действиям таблица поместилась на одной странице, потому что нам удалось сделать ее более компактной.

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

При необходимости данный метод можно применять и к строкам.

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

Параметры печати

Повлиять на расположение данных можно с помощью корректировки параметров печати. Сразу стоит отметить, что этот вариант предусматривает работу с размером самих данных.

  1. Заходим в меню Файл, затем кликаем по пункту “Печать”.
  2. Переводим взгляд на центральную область окна, в которой представлены настройки масштабирования. Кликаем по текущему варианту и выбираем опцию, которая нам нужна – “Вписать лист на одну страницу”.
  3. Данное действие преобразовало таблицу, вписав ее в рамки одного листа, в чем мы можем убедиться, взглянув на область предварительного просмотра документа справа.

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

Здесь же помимо варианта “Вписать лист на одну страницу”, есть еще и другие опции:

  • вписать все столбцы на одну страницы
  • вписать все строки на одну страницу
  • настройка параметров масштабирования

Установка параметров страницы

Есть также возможность уместить таблицу на 1-ой странице, установив необходимые параметры страницы.

Примечание: Если требуется вписать в границы одного листа только данные по ширине при отсутствии ограничений касающихся высоты, в параметрах страницы также ставим отметку напротив значения «разместить не более чем на:». Но теперь в первом поле (отвечающем за ширину) указываем цифру 1, а во втором (отвечающем за высоту) оставляем пустое значение.

Установка параметров страницы

Заключение

Мы часто печатаем вещи в своей работе и вручную устанавливаем некоторые параметры, например, горизонтальную или вертикальную печать. Разберитесь в свойствах PageSetup, задайте параметры печати с помощью нескольких коротких строк кода, затем вы можете установить их один раз, использовать постоянно, удобно и эффективно.

Объект PageSetup представляет инструкции по настройке страницы. Содержит все свойства настроек страницы (левое поле, нижнее поле, размер бумаги и т. Д.).

В следующем примере устанавливается альбомная ориентация печати, а затем выполняется печать рабочего листа.


Атрибуты Описание
FirstPageNumber Вернуть или установить номер первой страницы при печати указанного рабочего листа. Если установлено значение xlAutomatic, Microsoft Excel использует номер первой страницы. Значение по умолчанию - xlAutomatic. Длинный шрифт, читаемый и записываемый.
FitToPagesTall Верните или установите высоту страницы, используемую для масштабирования листа при его печати. Применяется только к рабочим листам. Тип варианта, читаемый и записываемый.
FitToPagesWide Верните или установите ширину страницы, используемую для масштабирования рабочего листа при его печати. Применяется только к рабочим листам. Тип варианта, читаемый и записываемый.
Orientation Возвращает или задает значение XlPageOrientation, которое представляет портретный или альбомный режим печати.
Pages Возвращает или задает количество страниц в коллекции Pages.
PaperSize Верните или установите размер бумаги. Может читать и писать XlPaperSize.
PrintQuality Вернуть или установить качество печати. Тип варианта, читаемый и записываемый.
Zoom Возвращает или задает значение Variant, которое представляет собой процентное значение от 10% до 400%. Этот процент представляет собой коэффициент масштабирования, когда Microsoft Excel печатает рабочий лист. Это свойство применяется только к листам. Если для этого атрибута установлено значениеFalse, ЗатемFitToPagesWide с участием FitToPagesTallАтрибуты определяют способ масштабирования листа. При любом увеличении сохраняется соотношение сторон исходного документа.

В этом примере Sheet1 настраивается для печати в альбомной ориентации.

2. Свойства, соответствующие вкладке «Поля».


Установление и возврат маржи в пунктах. быть полезнымInchesToPoints Метод преобразования дюймов в фунты, вы также можете использоватьCentimetersToPoints Метод перевода сантиметров в точки.

Точка: относится к единице измерения высоты печатаемых символов. Фунт равен 1/72 дюйма или примерно равен 1/28 сантиметра. )

Атрибуты Описание
BottomMargin Возвращает или задает размер нижнего поля в пунктах. Двойной тип, читаемый и записываемый.
CenterHorizontally Если указанный рабочий лист напечатан в центре страницы по горизонтали, значение атрибута равно True. Логический тип, доступный для чтения и записи.
CenterVertically Если указанный рабочий лист напечатан в центре страницы по вертикали, значение атрибута равно True. Логический тип, доступный для чтения и записи.
FooterMargin Вернуть или установить расстояние от нижнего колонтитула до низа страницы в пунктах. Двойной тип, читаемый и записываемый.
HeaderMargin Вернуть или установить расстояние от верха страницы до верхнего колонтитула в пунктах. Двойной тип, читаемый и записываемый.
LeftMargin Возвращает или задает размер левого поля в пунктах. Двойной тип, читаемый и записываемый.
RightMargin Возвращает или задает размер правого поля в пунктах. Двойной тип, читаемый и записываемый.
TopMargin Возвращает или задает размер верхнего поля в пунктах. Двойной тип, читаемый и записываемый.

В следующем примере устанавливаются все поля первого листа.

Эти два свойства аналогичны настройке содержимого ячейки по центру по горизонтали и вертикали.

3. Свойства, соответствующие вкладке «Верхний / нижний колонтитул».


Атрибуты Описание
AlignMarginsHeaderFooter Если Excel выравнивает верхний и нижний колонтитулы с полями, заданными в параметрах настройки страницы, он возвращает True. Чтение / запись логического типа.
CenterFooter Отцентрируйте информацию нижнего колонтитула в объекте PageSetup. Чтение / запись типа String.
CenterFooterPicture Возвращает графический объект, который представляет изображение в средней части нижнего колонтитула. Используется для установки атрибутов, связанных с изображением.
CenterHeader Выровняйте информацию заголовка по центру объекта PageSetup. Чтение / запись типа String.
CenterHeaderPicture Возвращает графический объект, который представляет изображение в средней части заголовка. Используется для установки атрибутов, связанных с изображением.
DifferentFirstPageHeaderFooter Истинно, если на первой странице используется другой верхний или нижний колонтитул. Чтение / запись логического типа.
LeftFooter Возвращает или задает выравнивание текста в левом нижнем колонтитуле книги или раздела.
LeftFooterPicture Возвращает графический объект, который представляет изображение в левой части нижнего колонтитула. Используется для установки атрибутов, связанных с изображением.
LeftHeader Возвращает или задает выравнивание текста в левом заголовке книги или раздела.
LeftHeaderPicture Возвращает графический объект, который представляет изображение в левой части заголовка. Используется для установки атрибутов, связанных с изображением.
OddAndEvenPagesHeaderFooter Если нечетные и четные страницы указанного объекта PageSetup имеют разные верхние и нижние колонтитулы, значение этого атрибута равно True. Логический тип, доступный для чтения и записи.
RightFooter Возвращает или задает расстояние (в пунктах) между правым краем страницы и правым краем нижнего колонтитула. Чтение / запись типа String.
RightFooterPicture Возвращает графический объект, который представляет изображение в правой части нижнего колонтитула. Используется для установки атрибутов изображения.
RightHeader Вернуть или установить правую часть заголовка. Чтение / запись типа String.
RightHeaderPicture Укажите графическое изображение, которое должно отображаться в правом заголовке. Только чтение.
ScaleWithDocHeaderFooter Возвращает или задает, будут ли масштабироваться верхний и нижний колонтитулы вместе с документом при изменении размера документа. Чтение / запись логического типа.

4. Свойства, соответствующие вкладке «Рабочий лист»


Атрибуты Описание
BlackAndWhite Если элементы в указанном документе напечатаны черно-белыми, значение атрибута равно True. Логический тип, доступный для чтения и записи.
Draft Если графика на листе не печатается при печати, значение атрибута равно True. Логический тип, доступный для чтения и записи.
Order Возвращает или задает значение XlOrder, которое представляет порядок, который Microsoft Excel использует для нумерации страниц при печати большого рабочего листа.
PrintArea Верните или установите область для печати в виде строки, которая использует ссылку стиля A1 макроязыка. Тип строки, доступный для чтения и записи.
PrintComments Вернуть или установить способ печати комментариев на листе. Тип XlPrintLocation, доступный для чтения и записи. Вы можете распечатать комментарии в виде текстовых полей или концевых сносок.
PrintErrors Устанавливает или возвращает константу XlPrintErrors, которая указывает тип отображаемой ошибки печати. Эта функция позволяет пользователям отменять отображение ошибок при печати рабочего листа. Могу читать и писать.
PrintGridlines Если линии сетки ячеек напечатаны на странице, значение равно True. Применяется только к рабочим листам. Логический тип, доступный для чтения и записи.
PrintHeadings Если заголовки строк и столбцов печатаются одновременно при печати этой страницы, значение равно True. Применяется только к рабочим листам. Логический тип, доступный для чтения и записи.
PrintNotes Если при печати рабочего листа комментарии к ячейкам печатаются вместе как концевые сноски, значение равно True. Применяется только к рабочим листам. Логический тип, доступный для чтения и записи.
PrintTitleColumns Возвращает или задает столбец, содержащий ячейки, которые повторно появляются в левой части каждой страницы, выраженные строкой на языке макросов в стиле A1. Тип строки, доступный для чтения и записи. Установите для этого атрибута значениеFalseИли пустая строка (""), строка заголовка будет закрыта.
PrintTitleRows Возвращает или задает те строки, которые содержат ячейки, которые многократно появляются в верхней части каждой страницы, выраженные в нотации стиля A1 с помощью строк макроязыка. Тип строки, доступный для чтения и записи.


Комментарий будет напечатан на новой странице.


5. Атрибуты, не соответствующие вкладкам

Атрибуты Описание
Application Если идентификатор объекта не используется, это свойство возвращает объект Application, представляющий приложение Microsoft Excel. Если используется идентификатор объекта, это свойство возвращает объект Application, представляющий создателя указанного объекта (вы можете использовать это свойство в объекте автоматизации OLE, чтобы вернуть приложение объекта). Только чтение.
Creator Возвращает 32-битное целое число, указывающее приложение, создавшее объект. Только чтение Длинный тип.
EvenPage Возвращает или задает выравнивание текста на четных страницах книги или раздела.
FirstPage Возвращает или задает выравнивание текста на первой странице книги или раздела.
Parent Возвращает родительский объект указанного объекта. Только чтение.

Range.PrintOut метод

Этот метод эквивалентен нажатию кнопки печати в Excel для выполнения операции печати. Этот метод позволяет указать принтер для печати.

Выражение выглядит следующим образом.

.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)

название Описание
From Номер начальной страницы для печати. Если этот параметр не указан, печать начнется с начальной позиции.
To Номер конечной страницы печати. Если этот параметр не указан, печать будет до последней страницы.
Copies Количество копий для печати. Если этот параметр не указан, будет напечатана только одна копия.
Preview Если этоTrue, Microsoft Excel вызовет предварительный просмотр перед печатью объекта. Если этоFalse(Или опустите этот параметр), объект будет немедленно напечатан.
ActivePrinter Задайте имя активного принтера.
PrintToFile Если этоTrue, Затем распечатайте в файл. Если не указаноPrToFileName, Microsoft Excel предложит пользователю ввести имя файла вывода, который будет использоваться.
Collate Если этоTrue, Печать нескольких копий с подборкой.
PrToFileName в случае PrintToFileУстановить какTrue, Параметр указывает имя файла для печати.

Заметка:From с участием ToОписанная «страница» относится к странице, которая будет напечатана, а не ко всем страницам в указанном листе или книге.

Публичный аккаунт WeChat: VBA168

Обратите внимание на общедоступную учетную запись WeChat и каждый день получайте объяснения классических примеров Excel VBA.

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

Распечатать выбранные столбцы вместе с кодом VBA

Вы можете распечатать несколько выбранных столбцов вместе на одной странице с кодом VBA. Пожалуйста, сделайте следующее.

1. Нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модуль. Затем скопируйте и вставьте следующий код VBA в окно модуля.

Код VBA: печать выбранных столбцов вместе

3. нажмите F5 ключ для запуска кода. Потом Kutools for Excel появится диалоговое окно, выберите столбцы, которые нужно напечатать один за другим, удерживая Ctrl ключ. И, наконец, нажмите кнопку OK кнопка. Смотрите скриншот:


4. После этого откроется окно предварительного просмотра печати, щелкните значок печать кнопку, чтобы начать печать.

Примечание. Если некоторые из выбранных столбцов находятся не на одной странице, в окне предварительного просмотра следует щелкнуть «Следующая страница», чтобы просмотреть другие выбранные элементы. И они будут распечатаны на отдельных страницах как свои собственные.

Легко печатайте выбранные столбцы вместе с удивительным инструментом

Если вам сложно обрабатывать код VBA, вы можете попробовать Мастер печати множественного выбора полезности Kutools for Excel. С помощью этой утилиты Вы можете легко распечатать несколько выбранных столбцов вместе на одной странице всего в несколько кликов.

Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.

1. Выберите столбцы один за другим, удерживая Ctrl ключ. Затем нажмите Kutools Plus > печать > Мастер печати множественного выбора.


2. в Мастер печати множественных выделений - шаг 1 из 3 диалоговом окне, все выбранные вами столбцы перечислены в поле списка, нажмите Завершить кнопку.


3. Затем все выбранные столбцы извлекаются как объекты и помещаются на пустой рабочий лист (по умолчанию все выбранные столбцы помещаются в столбец, вы можете расположить их по своему усмотрению). Затем начните распечатывать рабочий лист.


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


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


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

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

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

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

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

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

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

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


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

Код:


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

Код:


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

Код:


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

Код:


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

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

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

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


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

Код:


Код:


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

Код:


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

Код:


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

Код:


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

Код:


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

Код:


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

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

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

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


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

Код:


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

Код:


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

Код:


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

Код:


Шаг 6: Это завершает наш код. Теперь мы можем скомпилировать код, чтобы найти, есть ли какая-либо ошибка. Если ошибки не найдены, запустите код. Мы увидим, что новый столбец будет добавлен между столбцами 1 и 2, как показано ниже.

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

В этом примере мы узнаем, как добавлять новые столбцы после каждого уже стоящего столбца.

Шаг 1: Теперь вставьте модуль из меню вставки.


Шаг 2: После этого добавьте подкатегорию в название VBA Insert Column с последовательностью чисел.

Код:


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

Код:


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

Код:


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

Код:


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

Код:


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

Код:


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

Код:


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

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

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

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

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

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

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

Читайте также: