Как транспонировать ячейки слева направо в Excel?
Когда мы вводим значения в лист Excel, обычно мы вводим их слева направо. Однако в некоторых случаях может потребоваться транспонировать ячейки слева направо, как показано на скриншоте ниже. В Excel нет встроенной функции, которая могла бы помочь вам быстро решить эту задачу, но в этой статье я покажу вам несколько приемов.
Транспонирование ячеек слева направо с помощью VBA
Транспонирование ячеек слева направо или сверху вниз с помощью Kutools для Excel 
Транспонирование ячеек слева направо с помощью VBA
Чтобы быстро транспонировать ячейки слева направо без формул, вы можете использовать код VBA.
1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
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. Нажмите OK. Теперь выделенные ячейки были транспонированы слева направо.
Транспонирование ячеек слева направо или сверху вниз с помощью 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек