Hoe gegevens van kolom naar één enkele cel transponeren in Excel?

Wanneer u een lijst met gegevens in een werkblad naar één enkele cel moet transponeren, kunt u normaal gesproken de functie Concateneren gebruiken om de lijst met cellen samen te voegen in één cel. Maar dit wordt complex als er veel gegevens moeten worden gecombineerd. In dit artikel zal ik het hebben over enkele snelle trucs om deze taak in Excel op te lossen.

Gegevens van kolom naar één enkele cel transponeren met een door de gebruiker gedefinieerde functie

Gegevens van kolom naar één enkele cel transponeren met Kutools voor Excel

Gegevens van kolom naar één enkele cel transponeren met een door de gebruiker gedefinieerde functie

Behalve de functie Concateneren om een lijst met celwaarden samen te voegen, kunt u de volgende VBA-code gebruiken om het resultaat zo snel mogelijk te krijgen.

1. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.

2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: Gegevens van kolom naar één enkele cel transponeren

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. Sla vervolgens deze code op en sluit deze, ga terug naar het werkblad, en voer deze formule in: =transposerange(A1:A10) in een lege cel om het resultaat te plaatsen, en druk op Enter. U krijgt alle celwaarden in een kolom die zich in één cel bevinden, zie screenshot:

Opmerking: In bovenstaande code is A1:A10 het bereik van de lijst dat u wilt transponeren naar één enkele cel, en ook kunt u de samengevoegde inhoud scheiden met andere scheidingstekens, zoals komma, streepje, spatie, etc., door alleen de komma in het script xStr = xStr & xCell.Value & "," te wijzigen.

Gegevens van kolom naar één enkele cel transponeren met Kutools voor Excel

Als u Kutools voor Excel heeft, kunt u met zijn krachtige tool-Samenvoegen, gegevens in een kolom, rij of bereik combineren tot één cel.

Nadat u Kutools voor Excel hebt geïnstalleerd, doe dan het volgende:

1. Selecteer de datakolom die u wilt combineren in één cel.

2. Klik op Kutools > Samenvoegen & Opsplitsen > Rijen/kolommen/cellen combineren en waarden behouden, zie screenshot:

3. In het pop-up dialoogvenster selecteert u Samenvoegen tot één cel onder Het geselecteerde bereik samenvoegen op de volgende manier, en specificeer vervolgens een scheidingsteken om de samengevoegde inhoud te scheiden, zie screenshot:

4. Klik vervolgens op OK of Toepassen-knop, en u krijgt het volgende resultaat zoals u nodig hebt:

Download en probeer Kutools voor Excel nu gratis uit!