Собрать все столбцы листа в один

• Ручное копирование столбцов
• Формула для сбора столбцов в один
• VBA-макрос
• Проблемы традиционных подходов
• Бесплатное решение в надстройке !SEMTools
  • Как работает процедура
  • Преимущества использования !SEMTools
  • Вариант 2 – собрать в один только выделенные столбцы
• Заключение

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

Рассмотрим основные способы решения задачи

Ручное копирование столбцов

Самый простой, но крайне неэффективный метод – последовательное копирование каждого столбца. Для таблицы с 10 столбцами и 1000 строками потребуется 10 операций копирования и много времени.

Формула для сбора столбцов в один

Можно использовать комбинацию функций СМЕЩ и ИНДЕКС для динамического объединения столбцов:

=ЕСЛИ(СТРОКА()-1<=СЧЁТ(A:A);A:A; ЕСЛИ(СТРОКА()-1<=СЧЁТ(A:A)+СЧЁТ(B:B);ИНДЕКС(B:B;СТРОКА()-СЧЁТ(A:A)); ЕСЛИ(СТРОКА()-1<=СЧЁТ(A:A)+СЧЁТ(B:B)+СЧЁТ(C:C);ИНДЕКС(C:C;СТРОКА()-СЧЁТ(A:A)-СЧЁТ(B:B));"")))

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

VBA-макрос

Более эффективное, но и технически более сложное решение:


Sub Собрать_Столбцы_в_один()
Dim lastRow As Long, lastCol As Long
Dim i As Long, j As Long, outputRow As Long
Dim ws As Worksheet

Set ws = ActiveSheet
lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
outputRow = 1

For i = 1 To lastCol
lastRow = ws.Cells(ws.Rows.Count, i).End(xlUp).Row
For j = 1 To lastRow
If ws.Cells(j, i).Value <> "" Then
ws.Cells(outputRow, lastCol + 1).Value = ws.Cells(j, i).Value
outputRow = outputRow + 1
End If
Next j
Next i
End Sub


Проблемы традиционных подходов

• Сложность – формулы и VBA-код требуют технических знаний
• Ошибки – легко допустить ошибку в сложных формулах
• Время – ручное копирование отнимает много времени
• Поддержка – код нужно где-то хранить и поддерживать
• Безопасность – VBA-макросы могут быть заблокированы политиками безопасности

Бесплатное решение в надстройке !SEMTools

В надстройке !SEMTools доступна бесплатная процедура “Собрать все столбцы в один”, которая решает все перечисленные проблемы.

Как работает процедура

1. Заходите на лист, для которого хотите произвести объединение
2. Запускаете процедуру из меню !SEMTools
3. Система автоматически определяет все заполненные столбцы
4. Результат размещается в конце листа в виде одельного столбца
5. Пустые ячейки не игнорируются (на всякий случай) :)

Преимущества использования !SEMTools

• Не нужно разбираться в коде – процедура работает в один клик
• Не нужно хранить код – функция встроена в надстройку
• Бесплатно – решение доступно без дополнительной оплаты
• Безопасно – не требует включения макросов
• Быстро – обработка тысяч строк за секунды
• Надежно – протестировано на различных типах данных

Вариант 2 – собрать в один только выделенные столбцы

Не так давно (в 2025) меня попросили добавить альтернативный вариант, где объединялись бы не все столбцы, а только выбранные. Сказано – сделано! Кнопка находится в том же меню:

Заключение

Задача объединения всех столбцов листа в один, которая раньше требовала либо рутинного ручного труда, либо сложного программирования, теперь решается в два клика с помощью бесплатной процедуры в надстройке !SEMTools.