Excel две колонки на одном листе

 О том, как при помощи несложного макроса VBA в программе «Эксель» можно разместить данные из таблицы в две колонки для распечатки на принтере.

Приведенный в статье макрос  является альтернативой опции «колонки» используемой в настройках «разметки страницы» программы 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:= _

        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _

        , 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.

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

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

Приведенный в статье макрос  является альтернативой опции «колонки» используемой в настройках «разметки страницы» программы 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:= _

        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _

        , 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.

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

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

В разделе Программное обеспечение на вопрос Как разделить в экселе строку на две колонки? заданный автором Дмитрий Барташевич лучший ответ это моё предложение копируй эту строку в Ворд, там при помощи «рисовать таблицу» дели столбец на две колонки, потом копируй обратно.
Геморно, но это хоть какой то выход. Ну или ручками переноси 🙂 . Удачи

Ответ от

22 ответа

Привет! Вот подборка тем с ответами на Ваш вопрос: Как разделить в экселе строку на две колонки?

Ответ от Demoniqus
Сервис — Текст по столбцам — там выбираешь либо фиксированной ширины, либо с разделителем. Другой способ — писать скрипт.

Ответ от Павел Гордеев
Разделить колонку на две, естессно просто, но чтоб при этом текст также разделился на две части, это совсем не просто. Может быть макросы бы тут и справились, но поверь, лучше вручную, чем искать способ решения такой задачи.

При работе в программе Excel иногда наступает необходимость объединения двух и более столбцов. Некоторые пользователи не знают, как это сделать. Другие знакомы только с самыми простыми вариантами. Мы же обсудим все возможные способы объединения этих элементов, ведь в каждом отдельном случае рационально использовать различные варианты.

Процедура объединения

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

Способ 1: объединение с помощью контекстного меню

Самый распространенный способ объединения столбцов – это использование инструментов контекстного меню.

1. Выделяем первый сверху ряд ячеек колонок, которые мы хотим объединить. Кликаем по выделенным элементам правой кнопкой мыши. Открывается контекстное меню. Выбираем в нем пункт «Формат ячеек…».
2. Открывается окно форматирования ячеек. Переходим во вкладку «Выравнивание». В группе настроек «Отображение» около параметра «Объединение ячеек» ставим галочку. После этого жмем на кнопку «OK».
3. Как видим, мы объединили только верхние ячейки таблицы. Нам же нужно объединить все ячейки двух столбцов построчно. Выделяем объединенную ячейку. Находясь во вкладке «Главная» на ленте кликаем по кнопке «Формат по образцу». Данная кнопка имеет форму щетки и расположена в блоке инструментов «Буфер обмена». После этого, просто выделяем всю оставшуюся область, в пределах которой нужно объединить столбцы.
4. После проведения форматирования по образцу столбцы таблицы будут объединены в один.

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

Способ 2: объединение с помощью кнопки на ленте

Также объединение столбцов можно провести при помощи кнопки на ленте. Этим способом удобно пользоваться, если вы хотите объединить не просто колонки отдельной таблицы, а листа в целом.

1. Для того, чтобы объединить столбцы на листе полностью, их нужно сперва выделить. Становимся на горизонтальную панель координат Excel, в которой записаны наименования колонок буквами латинского алфавита. Зажимаем левую копку мыши и выделяем те колонки, которые хотим объединить.
2. Переходим во вкладку «Главная», если в данный момент находимся в другой вкладке. Жмем на пиктограмму в виде треугольника, остриём направленного вниз, справа от кнопки «Объединить и поместить в центре», которая расположена на ленте в блоке инструментов «Выравнивание». Открывается меню. Выбираем в нем пункт «Объединить по строкам».

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

Способ 3: объединение с помощью функции

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

1. Выделяем любую ячейку в пустом столбце на листе Excel. Для того, чтобы вызвать Мастер функций, кликаем по кнопке «Вставить функцию», расположенной около строки формул.
2. Открывается окно с перечнем различных функций. Нам нужно среди них найти наименование «СЦЕПИТЬ». После того как находим, выделяем этот пункт и нажимаем на кнопку «OK».
3. После этого открывается окно аргументов функции СЦЕПИТЬ. Её аргументами являются адреса ячеек, содержимое которых нужно объединить. В поля «Текст1», «Текст2» и т.д. нам нужно внести адреса ячеек самого верхнего ряда объединяемых столбцов. Сделать это можно вписав адреса вручную. Но, гораздо удобнее поставить в поле соответствующего аргумента курсор, а затем выделить ячейку, подлежащую объединению. Точно таким же образом поступаем и с другими ячейками первой строки объединяемых колонок. После того, как координаты появились в полях «Тест1», «Текст2» и т.д., жмем на кнопку «OK».
4. В ячейке, в которую выводится результат обработки значений функцией, отобразились объединенные данные первой строки склеиваемых столбцов. Но, как видим, слова в ячейке с результатом слиплись, между ними нет пробела.

   Для того, чтобы разъединить их, в строке формул после точки с запятой между координатами ячеек вставляем следующие символы:

   " ";

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

   =СЦЕПИТЬ(B3;C3)

   была изменена на следующую:

   =СЦЕПИТЬ(B3;" ";C3)

   Как видим, между словами появляется пробел, и они больше не являются слипшимися. При желании вместе с пробелом можно поставить запятую или любой другой разделитель.

5. Но, пока мы видим результат только для одной строки. Чтобы получить объединенное значение столбцов и в других ячейках, нам нужно скопировать функцию СЦЕПИТЬ на нижний диапазон. Для этого устанавливаем курсор в нижний правый угол ячейки, содержащей формулу. Появляется маркер заполнения в виде крестика. Зажимаем левую кнопку мыши и протягиваем его вниз до конца таблицы.
6. Как видим, формула скопирована на диапазон ниже, а соответствующие результаты отобразились в ячейках. Но мы просто вынесли значения в отдельный столбец. Теперь же нужно объединить первоначальные ячейки и вернуть данные в изначальное место расположения. Если просто объединить или удалить исходные столбцы, то формула СЦЕПИТЬ будет нарушена, и мы все равно утратим данные. Поэтому поступим немного по-другому. Выделяем колонку с объединенным результатом. Во вкладке «Главная» жмем на кнопку «Копировать», размещенную на ленте в блоке инструментов «Буфер обмена». Как альтернативное действие, можно после выделения столбца набрать на клавиатуре сочетание клавиш Ctrl+C.
7. Устанавливаем курсор на любую пустую область листа. Кликаем правой кнопкой мыши. В появившемся контекстном меню в блоке «Параметры вставки» выбираем пункт «Значения».
8. Мы сохранили значения объединенного столбца, и они уже не зависят от формулы. Ещё раз копируем данные, но уже с нового места их размещения.
9. Выделяем первый столбец изначального диапазона, который нужно будет объединить с другими колонками. Жмем на кнопку «Вставить» размещенную на вкладке «Главная» в группе инструментов «Буфер обмена». Можно вместо последнего действия нажать на клавиатуре сочетание клавиш Ctrl+V.
10. Выделяем первоначальные столбцы, которые следует объединить. Во вкладке «Главная» в блоке инструментов «Выравнивание» открываем уже знакомое нам по предыдущему способу меню и выбираем в нем пункт «Объединить по строкам».
11. После этого, возможно, несколько раз появится окошко с информационным сообщением о потере данных. Каждый раз жмите на кнопку «OK».
12. Как видим, наконец данные объединены в одном столбце в том месте, в котором это изначально требовалось. Теперь нужно очистить лист от транзитных данных. Таких областей у нас две: колонка с формулами и столбец со скопированными значениями. Выделяем поочередно первый и второй диапазон. Кликаем правой кнопкой мыши по выделенной области. В контекстном меню выбираем пункт «Очистить содержимое».
13. После того, как мы избавились от транзитных данных, форматируем объединенный столбец на свое усмотрение, так как вследствие наших манипуляций его формат обнулился. Тут уже все зависит от целевого назначения конкретной таблицы и остается на усмотрение пользователя.

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

Урок: Мастер функций в Excel

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

Так, большинство пользователей предпочитают использовать объединение через контекстное меню, как наиболее интуитивно понятное. Если же нужно произвести слияние столбцов не только в таблице, но и по всему листу, то тут на помощь придет форматирование через пункт меню на ленте «Объединить по строкам». Если же нужно произвести объединение без потерь данных, то с этой задачей можно справиться, лишь использовав функцию СЦЕПИТЬ. Хотя, если задачи сохранения данных не ставится, а тем более, если объединяемые ячейки пустые, то использовать данный вариант не рекомендуется. Это связано с тем, что он довольно сложный и его реализация занимает относительно много времени.

Мы рады, что смогли помочь Вам в решении проблемы.

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

Помогла ли вам эта статья?

Да Нет

Сегодня давайте рассмотрим как разбить текст по столбцам. Это можно сделать в несколько кликов пользуясь стандартными возможностями разбиения текста в Excel либо можно «вырезать»»разделять» текст в различные столбцы при помощи формул (это мы рассмотрим в последующих статьях).

Как делить текст с помощью формул смотрите в специальной статье

Необходимость разбить текст по столбцам может потребоваться нам, например, при разбиении ФИО на Фамилию Имя и Отчество (в разные ячейки) или в других ситуациях (пример с ФИО самый распространенный случай).

Наши данные для разбиения:

Данные для разбиения

Выделим данные для разбиения по столбцам — можно выделить весь столбец целиком.

Перейдем по ленте на вкладку «Данные» и выберем иконку «Текст по столбцам» — откроется диалоговое окно:

Мастер разбиения

Так как наши ФИО записаны через пробел, то укажем разделителем пробел:

Указываем разделитель

Кликаем «Готово» (в нашем примере можно не переходить далее по всем шагам мастера разбиения). Получили текст разбитый по столбцам:

Результат разбиения текста

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

Очень надеемся, что наша статья помогла Вам в решении Вашей проблемы. Будем благодарны, если Вы нажмете +1 и/или Мне нравится внизу данной статьи или поделитесь с друзьями с помощью кнопок расположенных ниже.

Спасибо за внимание.