Com convertir la llista de columnes a la llista separada per comes en Excel?

Si voleu convertir una llista de columnes de dades a una llista separada per coma o altres separadors, i generar el resultat en una cel·la tal com es mostra a continuació, podeu fer-ho per la funció CONCATENATE o executar un VBA a Excel.

Convertiu la llista de columnes a la llista separada per comes amb la funció CONCATENATE

Converteix la llista de columnes en una llista separada per comes amb VBA

Convertiu la llista de columnes a la llista separada per comes amb Kutools per a Excel

Inverteu concatenar i convertir una cel·la (una llista serrà de coma) a una llista de files / columnes a Excel

Convertiu la llista de columnes a la llista separada per comes amb la funció CONCATENATE

Increïble! Ús de fitxes eficients a Excel com Chrome, Firefox i Safari.

En Excel, la funció CONCATENATE pot convertir la llista de columnes en una llista en una cel·la separada per comes. Feu el següent:

1. Seleccioneu una cel·la buida adjacent a les primeres dades de la llista, per exemple, la cel·la C1 i escriviu aquesta fórmula = CONCATENATE (TRANSPOSE (A1: A7) & ",") (A1: A7 és la columna que convertiu a la llista serrada de coma "," indica el separador que voleu separar la llista). Mostra la captura de pantalla a continuació:

2. Ressalteu el TRANSPOSE (A1: A7) & "," a la fórmula, i premeu la tecla F9 clau

3. Traieu les aixelles arrissades {i } de la fórmula, i premeu la tecla Enter clau

Ara, podeu veure que tots els valors de la llista de columnes s'han convertit una llista en una cel·la i es separen per comes. Mostra la captura de pantalla a dalt.

Converteix la llista de columnes en una llista separada per comes amb VBA

Si la funció CONCATENATE és una mica tediosa per a vostè, podeu utilitzar un VBA per convertir ràpidament la llista de columnes a una llista d'una cel·la.

1. Espera ALT botó i premeu F11 al teclat per obrir un Microsoft Visual Basic per a aplicacions finestra.

2. clic Insereix > Mòduls, i copieu el VBA al mòdul.

VBA: converteix la llista de columnes a la llista separada per comes

Sub ChangeRange()
'Updateby20140310
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
outStr = ""
For Each rng In InputRng
    If outStr = "" Then
        outStr = rng.Value
    Else
        outStr = outStr & "," & rng.Value
    End If
Next
OutRng.Value = outStr
End Sub

3. clic Correr botó o premeu F5 per executar el VBA.

4. Apareix un quadre de diàleg a la pantalla i podeu seleccionar la llista de columnes que vulgueu convertir. Mostra la captura de pantalla:

5. clic OK, llavors apareix un altre quadre de diàleg per seleccionar una cel·la. Mostra la captura de pantalla:

6. clic OK, i tots els valors de la llista de columnes s'han convertit a una llista separada per coma en una cel·la.

Punta: A la VBA anterior, "," indica el separador que necessiteu, i podeu canviar-lo segons necessiteu.

Convertiu la llista de columnes a la llista separada per comes amb Kutools per a Excel

Demostració: converteu la llista de columnes a la llista separada per comes en Excel

Articles relatius:

• Converteix el nom del mes al número en Excel
• Converteix el temps militar en temps estàndard
• Converteix una cel·la en diverses cel·les / files en Excel