¿Cómo dividir una palabra o número en celdas separadas en Excel?

Si tienes una lista de números o palabras en una hoja de cálculo, y ahora necesitas dividir el contenido de las celdas en letras en diferentes celdas como se muestra en la siguiente captura de pantalla, ¿cómo puedes manejar esta tarea en Excel?

Dividir una palabra o número en celdas separadas con fórmula

Dividir una palabra o número en celdas separadas con Kutools para Excel

Dividir una palabra o número en celdas separadas con código VBA

Combinar letras o números separados en una palabra o número

Dividir una palabra o número en celdas separadas con fórmula

Con la siguiente fórmula simple, puedes separar rápidamente y de manera conveniente el contenido de las celdas en diferentes celdas.

1. En una celda en blanco junto a tus datos, por ejemplo C1, introduce esta fórmula =EXTRAE($A1; COLUMNAS($A$1:A$1); 1), ver captura de pantalla:

2. Luego arrastra el controlador de relleno hacia las celdas de la derecha hasta que aparezcan celdas en blanco, y el contenido de la celda A1 se habrá dividido en celdas separadas.

3. Y luego sigue arrastrando el controlador de relleno hacia abajo hasta el rango donde deseas aplicar esta fórmula, y todos los datos de la columna A se separarán en diferentes celdas según lo desees. Ver captura de pantalla:

Dividir una palabra o número en celdas separadas con Kutools para Excel

La función Dividir Celdas de Kutools para Excel es una herramienta poderosa que puede ayudarte a dividir el contenido de una celda en columnas o filas separadas con delimitadores específicos, al mismo tiempo que también puede separar el texto y el número en dos columnas.

Después de instalar Kutools para Excel, por favor haz lo siguiente:

1. Selecciona las celdas que deseas dividir.

2. Luego haz clic en Kutools > Combinar y Dividir > Dividir Celdas, ver captura de pantalla:

3. En el cuadro de diálogo Dividir Celdas, selecciona Dividir en Columnas bajo Tipo, luego marca Especificar ancho en la sección Dividir por, e ingresa el número 1 en el cuadro de texto, lo que significa dividir la palabra en celdas separadas por cada carácter. Ver captura de pantalla:

4. Luego haz clic en el botón Aceptar, aparecerá otra ventana emergente para recordarte que selecciones una celda para mostrar el resultado, ver captura de pantalla:

5. Y luego haz clic en Aceptar, y el contenido de las celdas en la selección se habrá dividido en caracteres individuales. Ver captura de pantalla:

¡Descarga y prueba gratis Kutools para Excel ahora!

Dividir una palabra o número en celdas separadas con código VBA

Si te interesa el código VBA, el siguiente código también puede ayudarte.

1. Mantén presionadas las teclas ALT + F11 en Excel para abrir la ventana Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana de Módulo.

Código VBA: Dividir una palabra en celdas separadas

Sub SplitStuff()
'Updateby Extendoffice
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)
Application.ScreenUpdating = False
For Each Rng In InputRng
    xValue = Rng.Value
    xRow = Rng.Row
    For i = 1 To VBA.Len(xValue)
        OutRng.Cells(xRow, i).Value = VBA.Mid(xValue, i, 1)
    Next
Next
Application.ScreenUpdating = True
End Sub

3. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo que te recordará seleccionar el rango de datos que deseas usar, ver captura de pantalla:

4. Haz clic en Aceptar, y aparecerá otro cuadro de diálogo que te pedirá seleccionar una celda para ubicar el resultado.

5. Luego haz clic en Aceptar, y las palabras o números en las celdas seleccionadas se habrán dividido en caracteres individuales. Ver captura de pantalla:

Combinar letras o números separados en una palabra o número

Artículos relacionados:

¿Cómo extraer la primera / última / enésima palabra de una cadena de texto en Excel?

¿Cómo extraer la primera letra de cada palabra de una celda?