Ugrás a tartalomra

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.
doc átültetni balról jobbra 1

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 jó ötlet3


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

doc átültetni balról jobbra 2

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.
doc átültetni balról jobbra 3

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:
doc átültetni balról jobbra 4

Vízszintes tartomány átfordítása> Mind:
doc átültetni balról jobbra 9
Vízszintes flip> Csak flip értékek:
doc átültetni balról jobbra 5

 


Függőleges flip tartomány> Mind:
Függőleges flip tartomány> Csak flip értékek:
doc átültetni balról jobbra 6
doc átültetni balról jobbra 7

nyíl kék jobb buborékÉrdekelheti:

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

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...

kte lap 201905


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations