Исходные данные: Дана огромная таблица в Excel с большим количеством строк и столбцов.

Задача: собрать все значения всех колонок в один столбец.

 

Решение: для решения задачи потребуется помощь макросов. Ниже приведен код макроса для решения задачи.

 

Sub CopyFilledRows()
    On Error Resume Next
    r = 1
    With Sheets(2)
        For Each c In Intersect(Selection, ActiveSheet.UsedRange).Cells
            If c <> "" Then
                .Cells(r, 1) = c
                r = r + 1
            End If
        Next
    End With
End Sub

 

Для того, чтобы макрос сработал, выполните следующие шаги:

1. Добавть макрос в книгу (Разработчик – Visual Basic, в открывшемся редакторе вставьте код)

2. Выделите на листе диапазон данных, которые нужно собрать в один столбец;

3. Запустите макрос (Разработчик – Макросы – Выполнить)

 

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