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.
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
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
3. nyomja meg F5 kulcsot, majd az adatokat átültették és egymásra helyezték. Lásd a képernyőképet:
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:
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:
3. kettyenés Ok. Most a tartományt átültették és oszlopokba rakták.
Átültetni a tartomány és a verem adatait
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!