Как разместить два столбца на одной странице в Excel: от разметки до печати

Работа с таблицами в Microsoft Excel часто требует нестандартных решений для визуализации данных. Одна из самых востребованных задач — размещение двух столбцов на одной странице при печати или экспорте в PDF. Это актуально для создания ведомостей, прайс-листов, расписаний или любых документов, где нужно сэкономить место без ущерба для читаемости.

Многие пользователи ошибочно полагают, что для этого требуется разбивать данные на два отдельных листа или использовать сложные формулы. На самом деле в Excel есть встроенные инструменты, которые позволяют решить задачу за несколько кликов. В этой статье мы разберём 5 рабочих способов — от базовой настройки параметров страницы до продвинутых приёмов с макросами. Особое внимание уделим нюансам, которые влияют на конечный результат: поля страницы, ориентация, масштабирование и совместимость с разными версиями Excel (включая Office 365).

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

Sub SplitIntoTwoColumns()
Dim rng As Range
Dim colCount As Integer
Dim halfCol As Integer
Dim newCol As Integer

Set rng = Selection
colCount = rng.Columns.Count

If colCount < 2 Then
MsgBox "Выделите диапазон минимум с 2 столбцами!", vbExclamation
Exit Sub
End If

halfCol = Int(colCount / 2)
newCol = rng.Column + halfCol

' Копируем вторую половину столбцов вправо
rng.Columns(halfCol + 1 & ":" & colCount).Cut
rng.Cells(1, newCol).PasteSpecial xlPasteAll

' Настраиваем ширину столбцов
rng.EntireColumn.AutoFit
End Sub