Hogyan lehet transzponálni a cellákat balról jobbra az Excelben?
Amikor beírunk értékeket az Excel munkalapba, általában balról jobbra írjuk be őket, de bizonyos esetekben érdemes áttelepíteni a balról jobbra jobbról balra található cellákat, az alábbi képernyőkép szerint. Az Excel-ben nincs beépített szolgáltatás, amely elősegítené a gyors megoldást, de ebben a cikkben néhány trükköt mutatok be, amelyekkel szívességet tehetünk.
Transzponálja a cellákat balról jobbra a VBA segítségével
Transzponálja a cellákat balról jobbra vagy felfelé lefelé a Kutools for Excel segítségével
Transzponálja a cellákat balról jobbra a VBA segítségével
A cellák balról jobbra történő gyors átültetéséhez képletek nélkül használhat VBA kódot.
1. nyomja meg Alt + F11 gombokat az engedélyezéshez Microsoft Visual Basic for Applications ablak.
2. kettyenés betétlap > Modulok, illessze be a kódot az üres parancsfájlba.
VBA: Átültetés balról jobbra
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. nyomja meg F5 gombot a kód futtatásához, megjelenik egy párbeszédpanel, amelybe beírhatja az átültetni kívánt oszlopbetûket. Kérjük, vessze szét ezeket az oszlopbetűket vesszővel, az alábbi képernyőképen.
4. kettyenés OK. Most a választást átültették balról jobbra.
Transzponálja a cellákat balról jobbra vagy felfelé lefelé a Kutools for Excel segítségével
Ha telepítve van a Kutools for Excel programban, gyorsan áthelyezheti a cellákat balról jobbra vagy felfelé lefelé a Flip Vertical Range és a Flip Horizontal Range segédprogramokkal, szükség szerint.
Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. |
Telepítése után Kutools for Excel, kérjük, tegye az alábbiakat:(Ingyenesen töltse le a Kutools for Excel programot most!)
Jelölje ki azokat a cellákat, amelyeket balról jobbra vagy felfelé lefelé transzponálni szeretne, kattintson a gombra Kutools > Választék > Vízszintes tartomány átfordítása/Fordítsa el a függőleges tartományt > Minden termék or Csak fordított értékek. Képernyőképek megtekintése:
Vízszintes tartomány átfordítása> Mind: |
Vízszintes flip> Csak flip értékek: |
Függőleges flip tartomány> Mind: |
Függőleges flip tartomány> Csak flip értékek:
|
Flip Data
Érdekelheti:
- Hogyan lehet átültetni a referenciát, miközben automatikus kitöltés / jobb az Excel programban?
- Hogyan lehet transzponálni és összekapcsolni az értékeket az Excelben?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!