Hogyan kombinálhat több oszlopot egy listába az Excelben?
Több oszlop egyesítéséhez vagy egyesítéséhez egy hosszú listába általában másolhatja és beillesztheti az oszlopok adatait egyenként a megadott oszlopba. De itt bemutathatok néhány gyors trükköt ennek a feladatnak az Excelben történő megoldására.
Egyesítsen több oszlopot egy listába a VBA kóddal
Kombináljon több oszlopot egy listába a Kutools for Excel segítségével
Egyesítsen több oszlopot egy listába a VBA kóddal
Az oszlopadatok másolásának és beillesztésének megismétlése nélkül a következő VBA-kód segíthet a feladat gyors és egyszerű kezelésében.
1. Tartsa lenyomva a Alt + F11 kulcsokat az Excelben, és megnyitja a Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modulok Ablak.
VBA kód: Több oszlop egyesítése vagy egyesítése egy listába
Sub CombineColumns1()
'updateby Extendoffice
Dim xRng As Range
Dim i As Integer
Dim xLastRow As Integer
Dim xTxt As String
On Error Resume Next
xTxt = Application.ActiveWindow.RangeSelection.Address
Set xRng = Application.InputBox("please select the data range", "Kutools for Excel", xTxt, , , , , 8)
If xRng Is Nothing Then Exit Sub
xLastRow = xRng.Columns(1).Rows.Count + 1
For i = 2 To xRng.Columns.Count
Range(xRng.Cells(1, i), xRng.Cells(xRng.Columns(i).Rows.Count, i)).Cut
ActiveSheet.Paste Destination:=xRng.Cells(xLastRow, 1)
xLastRow = xLastRow + xRng.Columns(i).Rows.Count
Next
End Sub
3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt arra, hogy válassza ki az adattartományt, amelyet csak egy oszlopba kíván kombinálni, lásd a képernyőképet:
4. Kattintson a gombra OK gombra, és a kijelölt oszlopokat csak egy oszlopba egyesítették a következő képernyőképek szerint:
 |
 |
 |
tippek: A VBA futtatása után a tartomány eredeti adatai törlődnek, jobb, ha először másolja és menti őket egy másik helyre.
Kombináljon több oszlopot egy listába a Kutools for Excel segítségével
Ha telepítve van Kutools az Excel számára, annak Átalakítási tartomány segédprogram segítségével több oszlopot egyetlen oszlopba vagy egy sorba egyesíthet.
| Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. |
Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:
1. Válassza ki az összesíteni kívánt oszlopadatokat egyetlen listába.
2. Ezután kattintson Kutools > Választék > Átalakítási tartomány, lásd a képernyőképet:
3. Az Átalakítási tartomány párbeszédpanelen válassza ki Tartomány egyetlen oszlopig opciót, és kattintson rá Ok gomb, lásd a képernyőképet:
4. A következőkben kiugrott Átalakítási tartomány mezőben kattintson egy cellára, ahová ki szeretné adni az eredményt, lásd a képernyőképet:
5. Ezután kattintson OK gombra, a kiválasztott oszlopokat egyetlen oszlopba egyesítettük a kívánt helyen. Lásd a képernyőképet:
Letöltés és ingyenes próbaidőszak Kutools az Excelhez most!
Demo: Kombináljon több oszlopot egy listába a Kutools for Excel segítségével
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!
