Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe transponeer je gegevens uit de kolom in één enkele cel in Excel?

Wanneer u een lijst met gegevens in een enkele cel in een werkblad moet transponeren, kunt u normaal gesproken de Concatenate functie om de lijst met cellen in één cel samen te voegen, maar het zal complex zijn als er enorme gegevens moeten worden gecombineerd. In dit artikel zal ik het hebben over enkele snelle trucjes om deze taak in Excel op te lossen.

Transponeer gegevens van de kolom in een enkele cel met de door de gebruiker gedefinieerde functie

Transponeer gegevens van de kolom in een enkele cel met Kutools voor Excel


Transactie of combineer gegevens van één kolom in één enkele cel:

Kutools for Excel's Combineren functie kan u helpen snel meerdere celinhoud te combineren in één enkele cel wanneer u dit nodig heeft.

doc transponeren cellen in één cel 6

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!



Met uitzondering van de functie Samengevoegd om een ​​lijst met celwaarden samen te voegen, kunt u de volgende VBA-code toepassen om het resultaat zo snel mogelijk te krijgen.

1. Houd de toets ingedrukt ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA-code: transponeer gegevens van kolom in één enkele cel

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

3. Sla deze code vervolgens 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 invoeren sleutel, krijgt u alle celwaarden in een kolom in één cel geplaatst, zie screenshot:

doc transponeren cellen in één cel 1

Notes: In de bovenstaande code, A1: A10 is het lijstbereik dat u in een enkele cel wilt transponeren, en ook kunt u de samengevoegde inhoud scheiden met andere scheidingstekens, zoals komma, streepje, spatie, enz. door gewoon de komma in het script te veranderen xStr = xStr & xCell.Value & ",".


Als je Kutools for Excel, met zijn krachtige tool-Combineren, kunt u gegevens in een kolom, rij of bereik combineren in één cel.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis om zonder beperking te proberen in 60-dagen.

Na het installeren van Kutools for Excel, doe als volgt :( Download nu Kutools voor Excel! )

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

2. Klikken Kutools > Combinerenzie screenshot:

doc transponeren cellen in één cel 2

3. In de Kolom of rijen combineren dialoogvenster, selecteer Combineer in een enkele cel onder de Om geselecteerde cellen te combineren op basis van de volgende optiesen geef vervolgens een scheidingsteken op om de samengevoegde inhoud te scheiden, zie screenshot:

doc transponeren cellen in één cel 3

4. Dan klikken Ok or Van toepassing zijn knop, en je krijgt het volgende resultaat als je nodig hebt:

doc transponeren cellen in één cel 4  2 doc transponeren cellen in één cel 5

Download en proef Kutools nu voor Excel!


Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen 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.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sophie · 1 years ago
    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
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hello,Sophie,
      Could you give an example for your need, you can insert a screenshot here.
  • To post as a guest, your comment is unpublished.
    Eric · 1 years ago
    Thanks, this was very helpful.