Как сделать колонку в excel

Корпорация "Центр"

Как в офисе.

Приведенный в статье макрос является альтернативой опции «колонки» используемой в настройках «разметки страницы» программы Word .

Рассмотрим для примера таблицу с перечнем товаров хранящихся на складах. В данной таблице существует 4 столбца: номер подпункта, наименование товара, артикулярный номер товара на складе и место хранения (наименование склада).

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

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

Если в программе Word есть функция во вкладке «Разметка страницы» называемая «Колонки», которая позволяет делить текст на несколько колонок, то в Excel такой опции найти не удается.

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

Макрос выглядит следующим образом:

Sub DveKolonki()

Dim sheetActive As Worksheet, sheetNoviy As Worksheet ‘добавляем переменные, как листы

Dim Vsego As Long, Perviy As Long ‘добавляем переменные для определения границ таблицы

Set sheetActive = ActiveSheet ‘присваиваем переменной активный лист

Vsego = sheetActive.Cells.Find(What:="?", LookIn:=xlValues, LookAt:= _

, SearchFormat:=False).Row — 1 ‘определяем диапазон

Perviy = Application.WorksheetFunction.RoundUp(Vsego / 2, 0) ‘делим диапазон

Set sheetNoviy = Sheets.Add(, Sheets(Sheets.Count)) ‘определяем новый лист

sheetNoviy.Range("A1:E1").Value = sheetActive.Range("A1:E1").Value

sheetNoviy.Range("F1:J1").Value = sheetActive.Range("A1:E1").Value

sheetNoviy.Range("A2").Resize(Perviy, 5).Value = sheetActive.Range("A2").Resize(Perviy, 5).Value

sheetNoviy.Range("F2").Resize(Vsego — Perviy, 5).Value = _

sheetActive.Range("A" & Perviy + 2).Resize(Vsego — Perviy, 5).Value ‘делим таблицу

End Sub

Необходимо в панели разработчика открыть просмотр кода и добавить код макроса в книгу Excel.

Запускать макрос можно из перечня макросов (книги макросов) или присвоить его активному элементу, например, кнопке или чекбоксу.

Подробнее о присвоение макроса кнопке далее по ссылке.

Корпорация "Центр"

Вставка и удаление строк и столбцов

В этом курсе:

  • Вставка и удаление строк и столбцов
    Статья
  • Выделение содержимого ячеек в Excel
    Статья
  • Закрепление областей окна для блокировки строк и столбцов
    Статья
  • Скрытие и отображение строк и столбцов
    Статья
  • Фильтр уникальных значений или удаление повторяющихся значений
    Статья
  • Разделение текста на столбцы с помощью мастера распределения текста по столбцам
    Статья
  • Создание списка последовательных дат
    Статья

Вставка или удаление строк и столбцов

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

Примечание: В Microsoft Excel установлены следующие ограничения на количество строк и столбцов: 16 384 столбца в ширину и 1 048 576 строк в высоту.

Вставка и удаление столбца

Выделите любую ячейку в столбце, а затем выберите Главная > Вставить > Вставить столбцы на лист или Удалить столбцы с листа.

Можно также щелкнуть правой кнопкой мыши в верхней части столбца и выбрать Вставить или Удалить.

Вставка и удаление строки

Выделите любую ячейку в строке, а затем выберите Главная > Вставить > Вставить строки листа или Удалить строки листа.

Можно также щелкнуть правой кнопкой мыши номер строки и выбрать Вставить или Удалить.

Параметры форматирования

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

Изображение кнопки

Если кнопка "Параметры вставки" не отображается, выберите Файл > Параметры > Дополнительно и в группе Вырезание, копирование и вставка установите флажок Отображать кнопку параметров вставки.

Вставка строк

Чтобы вставить одну строку: щелкните правой кнопкой мыши всю строку, над которой требуется вставить новую, и выберите Вставить строки.

Чтобы вставить несколько строк:выделите столько же строк, сколько хотите добавить сверху. Щелкните выделенные строки правой кнопкой мыши и выберите Вставить строки.

Вставка столбцов

Чтобы вставить один столбец: щелкните правой кнопкой мыши весь столбец, справа от которого хотите добавить новый, и выберите Вставить столбцы.

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

Удаление ячеек, строк и столбцов

Если вам больше не нужны какие-либо ячейки, строки или столбцы, вот как удалить их:

Выделите ячейки, строки или столбцы, которые вы хотите удалить.

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

При удалении строк или столбцов следующие за ними строки и столбцы автоматически сдвигаются вверх или влево.

Совет: Если вы передумаете сразу после того, как удалите ячейку, строку или столбец, просто нажмите клавиши CTRL+ Z, чтобы восстановить их.

Вставка ячеек

Чтобы вставить одну ячейку

Щелкните правой кнопкой мыши ячейку, над которой нужно вставить новую.

Нажмите Вставить и выберите Ячейки со сдвигом вниз.

Чтобы вставить несколько ячеек

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

Щелкните выделенные ячейки правой кнопкой мыши и выберите Вставить > Ячейки со сдвигом вниз.

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.

Корпорация "Центр"

Ссылка на основную публикацию