Saltar al contenido principal

¿Cómo convertir una cadena de texto separada por comas en una lista o filas en Excel?

doc convierte valores de coma a la lista 1

Supongamos que tiene una lista de valores de celda que están separados por comas, ahora, debe convertir estas cadenas de texto separadas por comas en varias filas o una columna como se muestra en la siguiente captura de pantalla. ¿Cómo se pueden dividir varios valores de celda en filas según el delimitador de coma a la vez en Excel?

Convierta cadenas de texto separadas por comas en filas con código VBA

Convierta cadenas de texto separadas por comas en filas con Kutools para Excel


Convierta cadenas de texto separadas por comas en filas con código VBA

El siguiente código VBA puede ayudarlo a convertir múltiples valores de celda separados por comas en una columna, haga lo siguiente:

1. Mantenga pulsado el Alt + F11 claves en Excel, y abre el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue la siguiente macro en el Módulo Ventana.

Código VBA: convierta cadenas de texto separadas por comas en filas o listas

Sub RedistributeCommaDelimitedData()
'Updateby Extendoffice
    Dim xArr() As String
    Dim xAddress As String
    Dim Rg As Range
    Dim Rg1 As Range
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)
    If Rg Is Nothing Then Exit Sub
    Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
    If Rg1 Is Nothing Then Exit Sub
    xArr = Split(Join(Application.Transpose(Rg.Value), ","), ",")
    Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)
    Rg1.Parent.Activate
    Rg1.Resize(UBound(xArr) + 1).Select
End Sub

3. Entonces presione F5 para ejecutar este código, en el cuadro de diálogo emergente, seleccione el rango de datos que desea convertir, vea la captura de pantalla:

doc convierte valores de coma a la lista 2

4. Y haga clic en OK, en el siguiente cuadro de diálogo, especifique una celda donde desea generar el resultado, vea la captura de pantalla:

doc convierte valores de coma a la lista 3

5. Hacer clic OK , los valores de celda separados por comas seleccionados se han convertido en una lista de filas. Ver captura de pantalla:

doc convierte valores de coma a la lista 4


Convierta cadenas de texto separadas por comas en filas con Kutools para Excel

Si tiene Kutools for Excel, Con su Células partidas utilidad, puede dividir rápidamente los valores de celda separados por comas en varias filas o columnas según el delimitador de coma que necesite.

Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. 

Después de instalar Kutools for Excel, siga los siguientes pasos:

1. Seleccione los valores de celda que desea convertir en filas según el separador de coma.

2. Luego haga clic Kutools > Fusionar y dividir > Células partidas, ver captura de pantalla:

3. En la Células partidas cuadro de diálogo, seleccione Dividir en filas Bajo el Tipo de Propiedad sección, y luego de la Especificar un separador sección, verificar Otro casilla de verificación y luego ingrese la coma en el cuadro de texto, vea la captura de pantalla:

doc convertir valores de coma a la lista 6 6

4. Luego haga clic Ok, y aparecerá otro cuadro de diálogo para recordarle que seleccione una celda para poner el resultado, vea la captura de pantalla:

doc convierte valores de coma a la lista 7

5. Y luego haz clic Ok , las celdas separadas por comas se han dividido en varias filas según el delimitador de coma, vea la captura de pantalla:

doc convierte valores de coma a la lista 8

Haga clic para obtener más información sobre esta función de celdas divididas ...

¡Descargue y pruebe Kutools para Excel ahora!


Demostración: convierta cadenas de texto separadas por comas en filas con Kutools para Excel

Kutools for Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. ¡Descarga y prueba gratis ahora!

Artículos relacionados:

¿Cómo dividir celdas en múltiples columnas o filas por retorno de carro?

¿Cómo dividir los valores de celda en varias columnas en Excel?

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción


Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
update to work for a single input cell (mentioned by Sid posted before me). Probably a way to do this for both scenarios, but this worked for me, I had the same issue.

Sub RedistributeCommaDelimitedData_singleCell()

'Updateby Extendoffice 201592

Dim xArr() As String

Dim xAddress As String

Dim Rg As Range

Dim Rg1 As Range

On Error Resume Next

xAddress = Application.ActiveWindow.RangeSelection.Address

Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)

If Rg Is Nothing Then Exit Sub

Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)

If Rg Is Nothing Then Exit Sub

Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)

If Rg1 Is Nothing Then Exit Sub



' xArr = Split(Join(Application.Transpose(Rg.value), ","), ",") -------- need this if you have multiple input cells in your input range (Rg)

' replace with this for single input cell for Rg:

xArr = Split(Rg.value, ",")

Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)

Rg1.Parent.Activate

Rg1.Resize(UBound(xArr) + 1).Select



End Sub
This comment was minimized by the moderator on the site
I have a cell with 667 characters, of which 119 are commas.With this VBA code I can't split. Can you help me please?Thank you very much!
This comment was minimized by the moderator on the site
Hi, I have a single row but this formula do not work for single row while it works for multiple rows could you guide on that would be a great help Thanks
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations