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

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

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:

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 & ",".

Az oszlop adatait egyetlen cellába helyezze át a Kutools for Exce segítségével

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.

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ás > Kombiná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:

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

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

Bemutató: Az oszlop adatait egyetlen cellába helyezze át a Kutools for Exce segítségével