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