Как транспонировать ячейки слева направо в 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?
• Как транспонировать и связать значения в Excel?