Як транспонувати клітинки зліва направо в Excel?
Коли ми вводимо значення в аркуші Excel, ми зазвичай вводимо їх зліва направо, але в деяких випадках вам може знадобитися перенести клітинки зліва направо направо наліво, як показано на знімку екрана нижче. В Excel немає вбудованої функції, яка допоможе вам швидко її вирішити, але в цій статті я представляю деякі трюки, щоб зробити вам послугу.
Транспонуйте клітинки зліва направо за допомогою VBA
Транспонуйте клітинки зліва направо або вгору вниз за допомогою Kutools для Excel
Транспонуйте клітинки зліва направо за допомогою VBA
Щоб швидко транспонувати клітинки зліва направо без формул, ви можете використовувати код VBA.
1. прес Alt + F11 клавіші для ввімкнення Microsoft Visual Basic для додатків вікна.
2. клацання Insert > Модулі, вставте код нижче в порожній сценарій.
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, ви можете швидко транспонувати комірки зліва направо або вгору вниз за допомогою утиліт Flip Vertical Range і Flip Horizontal Range.
Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. |
після установки Kutools для Excel, виконайте наведені нижче дії:(Безкоштовно завантажте Kutools для Excel зараз!)
Виділіть клітинки, які потрібно транспонувати, зліва направо або вгору вниз, клацніть Кутулс > Діапазон > Перевернути горизонтальний діапазон/Перевернути вертикальний діапазон > ВСІ or Тільки перевернути значення. Дивіться скріншоти:
Перевернути горизонтальний діапазон> Усі: |
Перевернути по горизонталі> Тільки значення перевертання: |
Перевернути вертикальний діапазон> Усі: |
Вертикальний діапазон перевертання> Тільки значення перевертання:
|
Перевернути дані
Ви можете зацікавитись:
- Як транспонувати посилання під час автоматичного заповнення вниз / праворуч у Excel?
- Як транспонувати та зв’язувати значення в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!