Как транспонировать или преобразовать столбцы и строки в один столбец?
При работе с листом Excel нередко возникает задача: как преобразовать или транспонировать диапазон данных в один столбец? (См. снимки экрана ниже.) Сейчас я покажу вам три быстрых способа решения этой задачи.
 |  |  |
Транспонирование/преобразование столбцов и строк в один столбец с помощью формулы
Транспонирование/преобразование столбцов и строк в один столбец с помощью Kutools для Excel 
Транспонирование/преобразование столбцов и строк в один столбец с помощью кода VBA
Транспонирование/преобразование столбцов и строк в один столбец с помощью формулы
Следующая формула поможет быстро транспонировать диапазон данных в столбец. Выполните следующие действия:
1. Сначала задайте имя ячейки для вашего диапазона данных: выделите диапазон, который нужно преобразовать, щёлкните правой кнопкой мыши и выберите в контекстном меню пункт Присвоить имя. В диалоговом окне Новое имя введите нужное вам имя ячейки, затем нажмите ОК. См. снимок экрана:
2. После указания имени ячейки щёлкните по пустой ячейке — в данном примере это ячейка E1 — и введите следующую формулу:=INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1).
Примечание: MyData — это имя ячейки для «Выбрать данные»; при необходимости вы можете изменить его.
3. Затем протяните формулу вниз, пока не появится сообщение об ошибке. Весь диапазон данных будет транспонирован в один столбец. См. снимок экрана:
Транспонирование/преобразование столбцов и строк в один столбец с помощью Kutools для Excel
Возможно, формула слишком длинная и её трудно запомнить, а код VBA имеет определённые ограничения. В такой ситуации не беспокойтесь: я предлагаю вам более простой и многофункциональный инструмент — Kutools для Excel. С помощью функции Transform Range вы сможете быстро и удобно решить эту задачу.
После бесплатной установкиKutools для Excel выполните следующие действия:
1. Выделите диапазон, который вы хотите транспонировать.
2. Нажмите Kutools > Transform Range, см. снимок экрана:
3. В диалоговом окне Transform Range выберите опцию Range to single column, см. снимок экрана:
4. Затем нажмите ОК и укажите ячейку для размещения результата во всплывающем окне.
5. Нажмите ОК, и данные из нескольких столбцов и строк будут транспонированы в один столбец.
Если вы хотите преобразовать столбец в диапазон с помощью фиксированного значения, воспользуйтесь функцией Transform Range — она позволит выполнить эту операцию быстро и легко.
Транспонирование/преобразование столбцов и строк в один столбец с помощью кода VBA
Следующий код VBA также позволяет объединить несколько столбцов и строк в один столбец.
1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
2. Нажмите Вставка > Модуль и вставьте приведённый ниже код в окно Модуль.
Sub ConvertRangeToColumn()
'Updateby20131126
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
Rng.Copy
Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub3. Нажмите клавишу F5, чтобы запустить код — появится диалоговое окно, в котором нужно выбрать диапазон для преобразования. См. снимок экрана:
4. После этого нажмите Ок, и откроется ещё одно диалоговое окно, в котором нужно выбрать ячейку для вывода результата. См. снимок экрана:
5. Нажмите Ок, и содержимое ячеек диапазона преобразуется в список из одного столбца. См. снимок экрана:
Связанные статьи:
Как преобразовать строку в столбец в Excel?
Как транспонировать или преобразовать один столбец в несколько столбцов в Excel?
Как транспонировать или преобразовать столбцы и строки в одну строку?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек