Как да транспонирам клетки отляво надясно в 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. кликване OK. Сега селекцията е транспонирана отляво надясно.
Транспонирайте клетки отляво надясно или отгоре надолу с Kutools за Excel
Ако сте инсталирали Kutools за Excel, можете бързо да транспонирате клетки отляво надясно или отгоре надолу с неговите помощни програми Flip Vertical Range и Flip Horizontal Range, както ви е необходимо.
Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. |
След инсталиране Kutools за Excel, моля, направете следното:(Безплатно изтегляне Kutools за Excel сега!)
Изберете клетките, които искате да транспонирате отляво надясно или отгоре надолу, щракнете Kutools > Обхват > Обръщане на хоризонталния диапазон/Обръщане на вертикалния диапазон > Всички or Само обръщане на стойности. Вижте екранни снимки:
Обръщане на хоризонтален диапазон > Всички: |
Обръщане по хоризонтала > Само обръщане на стойности: |
Обръщане на вертикалния диапазон > Всички: |
Обръщане на вертикален диапазон > Само обръщане на стойности:
|
Обърнете данните
Може да се интересувате от:
- Как да транспонирам препратка при автоматично попълване надолу/надясно в Excel?
- Как да транспонирам и свързвам стойности в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!