Как быстро преобразовать табличный массив в таблицу-список в Excel?

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

Преобразование табличного массива в таблицу-список с помощью сводной таблицы

Преобразование табличного массива в таблицу-список с помощью VBA

Преобразование табличного массива в таблицу-список с помощью Kutools для Excel

Преобразование табличного массива в таблицу-список с помощью сводной таблицы

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

1. Нажмите Alt + D одновременно, а затем нажмите P клавишу для активации мастера Сводная таблица и сводная диаграмма диалогового окна, и отметьте опции Несколько диапазонов консолидации и Сводная таблица . См. скриншот:

2. Нажмите Далее, чтобы перейти к шагу 2a мастера, и выберите опцию «Я создам поля страницы». См. скриншот:

3. Нажмите Далее чтобы перейти к Шагу 2b мастера, и выберите диапазон массива, добавив его в список Все диапазоны . См. скриншот:

4. Нажмите Далее чтобы перейти к последнему шагу, выберите нужную опцию. См. скриншот:

5. Нажмите Готово и будет создана сводная таблица, затем перейдите к ячейке пересечения Общий итог, дважды щелкните по ней, и вы увидите, что сводная таблица-список создана на новом листе. См. скриншоты:

6. Затем выберите сводную таблицу-список и щелкните правой кнопкой мыши, чтобы выбрать Таблица > Преобразовать в диапазон из контекстного меню. См. скриншот:

Теперь табличный массив был преобразован в таблицу-список.

Преобразование табличного массива в таблицу-список с помощью VBA

Вот пример VBA, который поможет вам преобразовать табличный массив в таблицу-список, выполните следующие действия:

1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Щелкните Вставка > Модуль и вставьте приведенный ниже код VBA в новое окно Модуля.

VBA: Преобразование табличного массива в список

Sub ConvertTableToList()
'UpdatebyEntendOffice20160429
    Dim I As Long
    Dim xCls As Long
    Dim xRg As Range
    Dim xSaveToRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select Array Table:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xSaveToRg = Application.InputBox("Select a range(cell) to put the list table", "Kutools for Excel", , , , , , 8)
    If xSaveToRg Is Nothing Then Exit Sub
    Set xSaveToRg = xSaveToRg.Cells(1)
    xCls = xRg.Columns.Count - 1
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        xSaveToRg.Offset((I - 1) * xCls).Value = xRg.Cells(I, 1).Value
        xSaveToRg.Offset((I - 1) * xCls, 1).Resize(xCls).Value = _
                        Application.WorksheetFunction.Transpose(xRg.Cells(I, 2).Resize(1, xCls))
    Next
    Application.ScreenUpdating = True
End Sub

3. И нажмите F5 клавишу для запуска VBA, и появится диалоговое окно для выбора табличного массива без заголовков. См. скриншот:

4. Нажмите ОК чтобы перейти к следующему диалогу для выбора ячейки для вывода таблицы-списка. См. скриншот:

5. Нажмите ОК, и табличный массив был преобразован в список.

Совет:

Если вы хотите заполнить пустые ячейки на основе значения выше, вы можете сделать следующее:

1. Установите Kutools для Excel — удобный инструмент, затем нажмите Kutools > Вставить > Заполнить пустые ячейки. См. скриншот:

2. В диалоговом окне Заполнить пустые ячейки отметьте опции На основе значений и Вниз . См. скриншот:

3. Нажмите ОК или Применить, и теперь пустые ячейки заполняются на основе значений выше.

Нажмите здесь, чтобы узнать больше о функции Заполнение пустых ячеек.

Преобразование табличного массива в таблицу-список с помощью Kutools для Excel

Если предыдущие методы кажутся вам недостаточно простыми, позвольте представить вам удобный инструмент — Kutools для Excel, его функция Преобразование размеров таблицы позволяет быстро и легко преобразовывать между табличным массивом и таблицей-списком.

После бесплатной установки Kutools для Excel выполните следующие действия:

1. Выберите табличный массив, который хотите преобразовать в список, и нажмите Kutools > Диапазон > Преобразование размеров таблицы. См. скриншот:

2. Затем в диалоговом окне Преобразование размеров таблицы отметьте опцию Преобразовать двумерную таблицу в одномерную таблицу, и затем выберите диапазон для вывода списка таблицы. См. скриншот:

3. Нажмите ОК, теперь табличный массив был преобразован в таблицу-список.

Нажмите здесь, чтобы узнать больше о функции Преобразование размеров таблицы.