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!
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen