Как транспонировать ячейки слева направо в Excel?
Когда мы вводим значения в лист Excel, мы обычно вводим их слева направо, но в некоторых случаях вы, возможно, захотите транспонировать ячейки слева направо направо налево, как показано на скриншоте ниже. В Excel нет встроенной функции, которая могла бы помочь вам быстро решить эту проблему, но в этой статье я расскажу о некоторых хитростях, которые помогут вам.
Перенести ячейки слева направо с помощью VBA
Перенести ячейки слева направо или вверх вниз с помощью Kutools for 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. Нажмите OK. Теперь выделение перенесено слева направо.
Перенести ячейки слева направо или вверх вниз с помощью Kutools for Excel
Если у вас установлен Kutools for Excel, вы можете быстро транспонировать ячейки слева направо или вверх вниз с помощью утилит Flip Vertical Range и Flip Horizontal Range по мере необходимости.
Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. |
После установки Kutools for Excel, пожалуйста, сделайте, как показано ниже :(Скачать бесплатно Kutools for Excel сейчас!)
Выберите ячейки, которые нужно транспонировать слева направо или вверх вниз, нажмите Кутулс > Диапазон > Отразить горизонтальный диапазон/Отразить вертикальный диапазон > Все or Только перевернуть значения. Смотрите скриншоты:
Отразить горизонтальный диапазон> Все: |
Отразить по горизонтали> Отразить только значения: |
Отразить вертикальный диапазон> Все: |
Отразить вертикальный диапазон> Отразить только значения:
|
Перевернуть данные
Вас может заинтересовать:
- Как перенести ссылку при автоматическом заполнении вниз / вправо в Excel?
- Как транспонировать и связывать значения в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!