Как преобразовать кросс-таблицу (двумерную таблицу) в список в Excel?
Вы знаете, как преобразовать кросс-таблицу (двумерную таблицу) в таблицу-список (одномерную таблицу) в Microsoft Excel? По некоторым причинам вам может потребоваться преобразовать таблицу (с заголовками строк и заголовков столбцов) в плоский список в Excel. Следующие приемы помогут легко и быстро преобразовать кросс-таблицу в плоский список:
- Преобразование кросс-таблицы в список в Excel с помощью VBA
- Преобразование кросс-таблицы в список в Excel с помощью Kutools for Excel
Предположим, у вас есть кросс-таблица, и вам нужно преобразовать ее в список следующим образом.
 |
|
 |
| Перекрестная таблица (с заголовками строк и столбцов) | Таблица списка (одномерная таблица) |
Преобразование кросс-таблицы в список в Excel с помощью VBA
Следующий макрос VBA может помочь вам быстро преобразовать все перекрестные таблицы на активном листе в плоские списки.
Шаг 1: Удерживайте другой + F11 ключей в Excel, и откроется окно Microsoft Visual Basic для приложений.
Шаг 2: нажмите Вставить > Модулии вставьте следующий макрос в окно модуля.
VBA при транспонировании кросс-таблицы в список:
Подложка ConvertTableToList ()
Константа TEST_COLUMN как String = "A"
Dim i до тех пор, j до тех пор
Уменьшить iLastRow как можно дольше
Dim iLastCol до тех пор
Приложение.ScreenUpdating = False
С ActiveSheet
iLastRow = .Cells (.Rows.Count, TEST_COLUMN) .End (xlUp) .Row
Для i = iLastRow To 2 Step -1
iLastCol = .Cells (i, .Columns.Count) .End (xlToLeft) .Column
Для j = iLastCol To 3 Step -1
.Rows (i + 1) .Insert
.Cells (i + 1, 2) .Value = .Cells (i, j) .Value
.Cells (i, j) .Value = ""
Следующий j
Затем я
.Rows (1) .Удалить
Конец с
Application.ScreenUpdating = True
End Sub
Шаг 3: нажмите F5 ключ для запуска этого макроса.
Затем вы увидите преобразованный список, показанный на следующем снимке экрана:
Примечание:
1. Этот макрос VBA теряет некоторые данные исходной таблицы, такие как заголовки или другие. В этом случае заголовки (имя, оценка и класс) теряются.
2. Вы можете изменить As String = "A", чтобы удовлетворить ваши потребности. Например, если кросс-таблица указана в столбце E, вы должны вместо «E» вместо «A».
3. И если на листе есть другие данные, иногда данные в списке будут неправильными после преобразования кросс-таблицы.
Преобразование перекрестных таблиц в списки в Excel с помощью Kutools for Excel
Если вы только что Kutools for Excel установлен, вы можете использовать его Перенести размеры таблицы инструмент для быстрого преобразования кросс-таблиц в плоский список.
Kutools for Excel включает более 300 удобных инструментов Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Получить сейчас.
Шаг 1: Выберите таблицу, которую вы преобразуете в список.
Шаг 2: нажмите Кутулс >Изменить > Перенести размер таблицы. См. Следующий снимок экрана:
Шаг 3. В диалоговом окне «Транспонировать размеры таблицы» установите флажок Перекрестная таблица в список вариант и выберите Диапазон результатов нажав на 
.
Шаг 4: нажмите OK .
Затем вы увидите, что исходная таблица преобразована в плоский список, как на следующем снимке экрана:
Перенести размеры таблицы также можно преобразовать список в таблицу кросс-таблицы. Для получения дополнительной информации перейдите на Перенести размеры таблицы.
Относительные статьи:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
