Ugrás a tartalomra

Hogyan lehet egyszerűen és gyorsan átültetni a tartomány- és veremadatokat az Excel-be?

Például néhány adat csoportosan jelenik meg, és most át akarom ültetni a tartományt, és az egyes oszlopokba halmozni az adatokat az alábbi képernyőképen. Ebben a cikkben bemutatom a feladat módszereit az Excel programban.
doc átültetni és verem 1

Transzponálja és halmozza az adatokat a VBA segítségével

Az adatok átültetése és egymásra helyezése a táblázat átültetése dimenzióval jó ötlet3


Transzponálja és halmozza az adatokat a VBA segítségével

Alkalmazhat VBA kódot az adatok átültetésére és egymásra helyezésére.

1. Válassza ki az adatokat, kivéve az oszlopfejléceket, és nyomja meg a gombot Alt + F11 gombokat az engedélyezéshez Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok, és illessze be a kód alatt a Modulok.

VBA: Adatok átvitele és halmozása

Sub ConvertTableToList()
'UpdatebyExtendoffice20161121
Const TEST_COLUMN As String = "A"
Dim i As Long, j As Long
Dim iLastRow As Long
Dim iLastCol As Long
Application.ScreenUpdating = False
With ActiveSheet
iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 2 Step -1
iLastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
For j = iLastCol To 3 Step -1
.Rows(i + 1).Insert
.Cells(i + 1, 2).Value = .Cells(i, j).Value
.Cells(i, j).Value = ""
Next j
Next i
.Rows(1).Delete
End With
Application.ScreenUpdating = True
End Sub

doc átültetni és verem 2

3. nyomja meg F5 kulcsot, majd az adatokat átültették és egymásra helyezték. Lásd a képernyőképet:
doc átültetni és verem 3

Jegyzet: A VBA-kódban A jelzi, hogy az átültetési adatokat az aktív lap A oszlopába helyezi, és az eredeti adatokat az A oszlopba cseréli.


Az adatok átültetése és egymásra helyezése a táblázat átültetése dimenzióval

Ha gyorsan és egyszerűen szeretné átadni a tartomány- és veremadatokat VBA-kód nélkül, alkalmazhatja Kutools az Excel számára'S Tegye át a táblázat méretét hasznosság.

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!)

1. Válassza ki a használt adatokat, kattintson a gombra Kutools > Választék > Tegye át a táblázat méreteit. Lásd a képernyőképet:
doc átültetni és verem 4

2. A párbeszédpanelen ellenőrizze Keresztasztal a felsoroláshoz opciót, és válassza ki azt a cellát, amelybe az átültetett adatokat el szeretné helyezni Eredménytartomány (egycellás) szövegdoboz. Lásd a képernyőképet:
doc átültetni és verem 5

3. kettyenés Ok. Most a tartományt átültették és oszlopokba rakták.
doc átültetni és verem 6



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