Note: The other languages of the website are Google-translated. Back to English
Logga in  \/ 
x
or
x
Registrera  \/ 
x

or

Hur överför jag data från kolumn till en enda cell i Excel?

När du behöver transponera en lista med data i en enda cell i ett kalkylblad kan du normalt använda HOPLÄNKA funktion för att slå samman listan över celler i en cell, men det kommer att vara komplext om det finns enorma data som behöver kombineras. Den här artikeln kommer jag att prata om några snabba knep för dig att lösa denna uppgift i Excel.

Transportera data från kolumn till en enda cell med användardefinierad funktion

Transportera data från kolumn till en enda cell med Kutools för Excel


Förutom funktionen Sammankoppla för att slå samman en lista över cellvärden kan du använda följande VBA-kod för att få resultatet så snabbt du kan.

1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Transportera data från kolumn till en enda cell

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. Spara och stäng sedan den här koden, gå tillbaka kalkylbladet och ange denna formel: = transposerange (A1: A10) in i en tom cell för att lägga resultatet och tryck på ange nyckel, du får alla cellvärden i en kolumn har lokaliserats i en enda cell, se skärmdump:

doc transponera celler i en cell 1

Anmärkningar: I ovanstående kod, A1: A10 är det listaområde du vill transponera till en enda cell, och du kan också separera det sammanslagna innehållet med andra avgränsare, som komma, bindestreck, mellanslag, etc. genom att bara ändra kommatecken i skriptet xStr = xStr & xCell.Value & ",".


Om du har Kutools för Excel, med sitt kraftfulla verktyg-Kombinera, kan du kombinera data i en kolumn, rad eller ett intervall till en cell.

Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar.

När du har installerat Kutools för Excel, gör så här :( Gratis nedladdning Kutools för Excel nu! )

1. Välj den datakolumn som du vill kombinera i en cell.

2. Klicka Kutools > Slå ihop och delaKombinera rader, kolumner eller celler utan att förlora data, se skärmdump:

3. Välj den i dialogrutan som visas Kombinera i en enda cell under Att kombinera valda celler enligt följande alternativ, och ange sedan en separator för att separera det sammanslagna innehållet, se skärmdump:

doc transponera celler i en cell 3

4. Klicka sedan Ok or tillämpas -knappen och du får följande resultat efter behov:

doc transponera celler i en cell 4 2 doc transponera celler i en cell 5

Ladda ner och testa gratis Kutools för Excel nu!


Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Ladda ner och testa gratis nu!

De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2019 och 365. Stöder alla språk. Enkel distribution i ditt företag eller organisation. Fullständiga funktioner 30-dagars gratis provperiod. 60-dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50% och minskar hundratals musklick åt dig varje dag!
officetab botten
Say something here...
symbols left.
You are guest
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 · 2 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 · 2 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 · 3 years ago
    Thanks, this was very helpful.