Как транспонировать ячейки слева направо в Excel?
При вводе данных на лист Excel мы обычно заполняем ячейки слева направо, но в некоторых случаях может понадобиться транспонировать их — то есть расположить сверху вниз, как показано на скриншоте ниже. Хотя в Excel нет встроенной функции для быстрого выполнения этой задачи, в данной статье я покажу вам несколько эффективных приёмов, которые помогут легко с ней справиться.
Транспонирование ячеек слева направо с помощью VBA
Транспонирование ячеек слева направо или сверху вниз с помощью Kutools для Excel 
Транспонирование ячеек слева направо с помощью VBA
Чтобы быстро транспонировать ячейки слева направо без использования формул, воспользуйтесь кодом VBA.
1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Выберите пункт Вставка > Модуль и вставьте приведённый ниже код в пустое окно редактора.
VBA: Транспонирование слева направо
Sub RearrangeColumns()
'UpdatebyExtenoffice20161125
Dim xLng, i As Long, LastRow As Long, Letters As Variant, NewLetters As Variant
Dim strTemp As String
On Error Resume Next
strTemp = Application.InputBox _
(Prompt:="Enter the column you want to transpose with comma separate", _
Title:="Kutools For Excel", Type:=2)
For i = Len(strTemp) To 1 Step -1
NewOrder = NewOrder + Mid(strTemp, i, 1)
Next i
LastRow = Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row
Letters = Split(NewOrder, ",")
ReDim NewLetters(1 To UBound(Letters) + 1)
Application.ScreenUpdating = False
For xLng = 0 To UBound(Letters)
NewLetters(xLng + 1) = Columns(Letters(xLng)).Column
Next
Application.ScreenUpdating = True
Range("A1").Resize(LastRow, UBound(Letters) + 1) = _
Application.Index(Cells, Evaluate("ROW(1:" & LastRow & ")"), NewLetters)
End Sub
3. Нажмите клавишу F5, чтобы запустить код. Появится диалоговое окно, в котором нужно указать буквы столбцов для транспонирования. Разделяйте буквы запятыми, как показано на скриншоте ниже.
4. Нажмите кнопку ОК. Теперь выделенный диапазон будет транспонирован слева направо.
Транспонирование ячеек слева направо или сверху вниз с помощью Kutools для Excel
Если у вас установлен Kutools для Excel, вы можете мгновенно транспонировать ячейки — слева направо или сверху вниз — с помощью утилит «Повернуть диапазон по вертикали» и «Перевернуть диапазон горизонтально».
После установки Kutools для Excel выполните следующие действия: ()Скачать бесплатно Kutools для Excel прямо сейчас!)
Выделите ячейки, которые нужно транспонировать — слева направо или сверху вниз, — и последовательно выберите: Kutools > Диапазон > Перевернуть диапазон горизонтально / Повернуть диапазон по вертикали > Все или Повернуть только содержимое. См. скриншоты:
| Перевернуть диапазон горизонтально > Все: |
 |
| Отразить по горизонтали > Повернуть только содержимое: |
 |
| Повернуть диапазон по вертикали > Все: | Повернуть диапазон по вертикали > Повернуть только содержимое: |
 |  |
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Демонстрация: Транспонирование ячеек слева направо или сверху вниз с помощью Kutools для Excel
Вам также может быть интересно:
Вам также может быть интересно:- Как транспонировать ссылки при автозаполнении вниз или вправо в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек