Ugrás a tartalomra

Hogyan lehet az oszlopból az adatokat egyetlen cellába átvinni az Excelben?

Ha az adatok listáját át kell ültetnie egy munkalap egyetlen cellájába, akkor általában alkalmazhatja a Összekapcsol funkcióval egyesítheti a cellák listáját egy cellába, de bonyolult lesz, ha hatalmas adatokat kell egyesíteni. Ebben a cikkben néhány gyors trükkről fogok beszélni, amelyek segítségével megoldhatja ezt a feladatot az Excel programban.

Az adatokat oszlopból egyetlen cellába helyezze át a felhasználó által definiált funkcióval

Transzponálja az adatokat az oszlopból egyetlen cellába a Kutools for Excel segítségével


A Cella összefűzés funkció kivételével a cellaértékek listájának egyesítéséhez a következő VBA kódot alkalmazhatja az eredmény lehető leggyorsabb eléréséhez.

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA-kód: Az oszlopból származó adatokat egyetlen cellába helyezheti át

Function transposeRange(Rg As Range)
'updateby Extendoffice
    Dim xCell As Range
    Dim xStr As String
    For Each xCell In Rg
        If Not IsEmpty(xCell.Value) Then
            xStr = xStr & xCell.Value & ","
        End If
    Next
    transposeRange = Left(xStr, Len(xStr) - 1)
End Function

3. Ezután mentse el és zárja be ezt a kódot, menjen vissza a munkalapra, és írja be ezt a képletet: = transzpozíciós tartomány (A1: A10) egy üres cellába az eredmény elhelyezéséhez, majd nyomja meg a gombot belép kulcsot, akkor megkapja, hogy az oszlop összes cellájának értéke egyetlen cellában legyen, lásd a képernyőképet:

doc transzponálja a cellákat egy cellába 1

Megjegyzések: A fenti kódban A1: A10 az a listatartomány, amelyet egyetlen cellába szeretne áthelyezni, és az egyesített tartalmat el is különítheti más elválasztókkal, például vesszővel, kötőjellel, szóközzel, csak a vessző megváltoztatásával a szkriptben xStr = xStr & xCell.Value & ",".


Ha van Kutools az Excel számára, erőteljes eszköz-Kombájn, oszlopban, sorban vagy tartományban lévő adatokat egyesíthet egy cellával.

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 :( Ingyenesen töltse le a Kutools for Excel programot most! )

1. Válassza ki az egyetlen oszlopba egyesítendő adatoszlopot.

2. Kattints Kutools > Egyesítés és felosztásKombinálja a sorokat, oszlopokat vagy cellákat adatok elvesztése nélkül, lásd a képernyőképet:

3. A felbukkanó párbeszédpanelen válassza a lehetőséget Egyesítsd egyetlen cellába alatt a A kijelölt cellák egyesítése a következő lehetőségek szerint, majd adjon meg egy elválasztót az egyesített tartalom elválasztásához, lásd a képernyőképet:

doc transzponálja a cellákat egy cellába 3

4. Ezután kattintson Ok or alkalmaz gombra, és a következő eredményt kapja, amire szüksége van:

doc transzponálja a cellákat egy cellába 4 2 doc transzponálja a cellákat egy cellába 5

Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most!


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ó. Töltse le és ingyenes próbaverziót most!

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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Would anybody know how to add a conditional rule to this function? Basically I have an e-mail directory for multiple businesses. There is a column where I list either Yes or No in response to whether the E-mail is the business' main contact. I am hoping adjust the code so that only the main contacts are pulled and listed in one cell. Therefore, the condition would be that the Main Contact Column lists Yes. I have tried using if statements but I am fairly new to all of this. Any help would be much appreciated!
This comment was minimized by the moderator on the site
Hello friend,
Glad to help. Please read this article: https://www.extendoffice.com/documents/excel/2706-excel-vlookup-return-multiple-values-in-one-cell.html. I believe it can solve your problem. Have a nice day.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
This has been ridiculously helpful to me a number of times. Thank you so much!
This comment was minimized by the moderator on the site
Hi,

Thanks a lot! I'm using your following function and it works very well. I would like to include an "if" function in the transposerange. What should I add to the function in VBA? Basically, it would work like a countif. So we would read the formula =transposerangeif(range,criteria).

Thanks in advance!

Function transposeRange(Rg As Range)
'updateby Extendoffice 20151207
Dim xCell As Range
Dim xStr As String
For Each xCell In Rg
If Not IsEmpty(xCell.Value) Then
xStr = xStr & xCell.Value & ","
End If
Next
transposeRange = Left(xStr, Len(xStr) - 1)
End Function
This comment was minimized by the moderator on the site
Hello,Sophie,
Could you give an example for your need, you can insert a screenshot here.
This comment was minimized by the moderator on the site
Thanks, this was very helpful.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations