¿Cómo dividir una celda en el primer número en Excel?

En tareas diarias con Excel, suele ser necesario dividir el contenido de una celda para organizar o analizar los datos de forma más eficaz. Tradicionalmente, los usuarios de Excel segmentan texto mediante delimitadores (como comas o espacios) o especificando un ancho fijo. Sin embargo, existen escenarios en los que sus cadenas de texto contienen tanto texto como números, y necesitan separar la cadena en el punto donde aparece el primer número, tal como se ilustra en la siguiente captura de pantalla.

Al trabajar con este tipo de datos —como códigos de producto, etiquetas combinadas o cadenas de referencia—, extraer el texto anterior al primer número o el número en sí puede facilitar la clasificación, la búsqueda y el procesamiento posterior. A continuación, le presentamos métodos prácticos para dividir una celda en el primer número, incluidas técnicas basadas en fórmulas y una combinación de la función Buscar y reemplazar de Word con la herramienta Texto en columnas de Excel. Cada enfoque tiene sus escenarios ideales y consideraciones, detalladas a continuación para ayudarle a elegir la mejor solución según sus necesidades.

Dividir una celda en el primer número con fórmulas

Si desea dividir el contenido de una celda en el punto donde aparece el primer número, puede hacerlo directamente en Excel mediante fórmulas, sin necesidad de herramientas adicionales. Este método funciona especialmente bien cuando sus datos siguen un patrón consistente y busca una solución automatizada que se actualice al modificar los datos de origen.

1) Seleccione una celda para la parte de texto del resultado de la división (por ejemplo, B1). Introduzca la siguiente fórmula para extraer el texto anterior al primer número de A1:

=TRIM(LEFT(A1, MIN(FIND({0,1,2,3,4,5,6,7,8,9}, A1 & "0123456789")) - 1))

Pulse Intro para confirmar y arrastre el controlador de relleno hacia abajo para aplicar la fórmula al resto de filas, extrayendo así la parte de texto de cada cadena, tal como se muestra a continuación.

2) Para extraer el resto a partir del primer número, seleccione una celda adyacente (por ejemplo,C1) e introduzca:

=TRIM(REPLACE(A1, 1, LEN(B1), ""))

De nuevo, pulse Intro y arrastre el controlador de relleno hacia abajo para aplicar la fórmula al resto de filas. Así obtendrá el número (y cualquier carácter posterior) extraído de cada cadena.

Explicación de los parámetros:

• IZQUIERDA(A1, …): extrae el texto desde la izquierda hasta (sin incluir) el primer dígito.
• MIN(ENCONTRAR({0-9}, A1 & "0123456789")): busca cualquier dígito y devuelve la posición más temprana; al añadir "0123456789" se garantiza una coincidencia, incluso si A1 no contiene dígitos.
• ESPACIOS(…): elimina los espacios sobrantes alrededor de las partes extraídas.
• REEMPLAZAR(A1, 1, LARGO(B1), ""): elimina el texto inicial (cuya longitud coincide con el valor de B1) y devuelve el resto a partir del primer dígito.
• VALOR(…): convierte la cadena numérica extraída en un valor numérico cuando sea necesario para realizar cálculos.

Divida rápidamente una celda en columnas o filas según un delimitador

En Excel, dividir una celda en columnas es tedioso con el Asistente para convertir texto en columnas. Pero con esta utilidad, puede: 1) convertir una celda en columnas o filas según un delimitador; 2) separar una cadena en texto y número; 3) dividir una cadena según un ancho específico… ¡todo con solo unos clics!¡Haga clic para obtener una prueba gratuita de 30 días con todas las funciones!Kutools para Excel's Dividir celdas

Kutools para Excel: con más de 300 complementos útiles para Excel, pruébelos gratis sin limitaciones durante 30 días.

Dividir una celda en el primer número con Word y Texto en columnas

En algunos casos, sus datos pueden contener cadenas más largas o variadas, o bien podría preferir una solución que no dependa de fórmulas, especialmente si necesita realizar un procesamiento puntual o por lotes para un informe. Una solución muy útil combina la función Buscar y reemplazar de Microsoft Word con la herramienta Texto en columnas de Excel. Este enfoque aprovecha las potentes capacidades de comodines (similares a expresiones regulares) de Word para insertar rápidamente un delimitador justo en el punto de división.

Si sus cadenas consisten en números seguidos de texto (o viceversa), proceda de la siguiente manera:

1. Copie sus cadenas objetivo en Excel y péguelas en un documento en blanco de Word. A continuación, pulse Ctrl + H para abrir el cuadro de diálogo Buscar y reemplazar.

2. En el cuadro de diálogo Buscar y reemplazar, introduzca ([0-9]{1,}) en el cuadro Buscar, luego escriba \1, en el cuadro Reemplazar con. Haga clic en Más para ampliar las opciones y active la casilla Usar comodines.

Notas sobre los parámetros:
- ([0-9]{1,}) encuentra cualquier grupo de uno o más dígitos (sintaxis de comodines de Word).
- \1, inserta una coma después de cada grupo de números coincidente, actuando como un nuevo delimitador.

3. Haga clic en Reemplazar todo. Si aparecen cuadros de diálogo de confirmación, responda con Sí y Aceptar.

Esto añadirá una coma tras cada número, preparando los datos para dividirlos fácilmente en Excel.

4. Copie el texto modificado desde Word de nuevo en su hoja de cálculo de Excel. A continuación, vaya a Datos > Texto en columnas.

5. En el asistente Texto en columnas, seleccione Delimitado, haga clic en Siguiente y elija Coma como delimitador.

6. Haga clic en Siguiente, elija dónde desea colocar los resultados divididos y, a continuación, haga clic en Finalizar.

Sus datos aparecerán ahora en columnas separadas, divididos en el primer número (suponiendo que cada fila contenga un único grupo numérico).

Sugerencia resumen: Si necesita que el proceso se actualice automáticamente al cambiar los datos, utilice el método basado en fórmulas descrito anteriormente. Esta combinación de Word y Excel es ideal para tareas puntuales de limpieza de datos o cuando las fórmulas resulten demasiado complejas para su caso.

Dividir una celda en el primer número mediante código VBA

Como alternativa potente para dividir cadenas en el primer número, puede emplear una macro de VBA en Excel. Este enfoque está especialmente recomendado para usuarios con experiencia en macros, ya sea al manejar datos de longitud variable o al automatizar tareas repetitivas de división en grandes volúmenes de información. VBA ofrece mayor personalización y flexibilidad que las fórmulas tradicionales, aunque requiere habilitar macros en Excel y realizar algunos ajustes básicos en el código.

1. Abra Excel y pulse Alt + F11 para abrir el editor de VBA. En la interfaz de VBA, haga clic en Insertar > Módulo para crear un nuevo módulo. A continuación, copie y pegue el siguiente código en el módulo:

Option Explicit

Sub SplitAtFirstNumber()
    Dim selRng As Range, c As Range
    Dim sText As String
    Dim i As Long, firstPos As Long
    Dim title As String
    
    title = "KutoolsforExcel"
    
    ' Let user choose the range (safe-cancel)
    On Error Resume Next
    Set selRng = Application.InputBox( _
        Prompt:="Select range to split", _
        Title:=title, _
        Default:=Selection.Address, _
        Type:=8)
    On Error GoTo 0
    
    If selRng Is Nothing Then
        MsgBox "Operation cancelled.", vbInformation
        Exit Sub
    End If
    
    Application.ScreenUpdating = False
    
    For Each c In selRng.Cells
        If Not IsError(c.Value) And Len(c.Value) > 0 Then
            sText = CStr(c.Value)
            firstPos = 0
            
            ' Find the position of the first ASCII digit 0-9
            For i = 1 To Len(sText)
                If Mid$(sText, i, 1) Like "[0-9]" Then
                    firstPos = i
                    Exit For
                End If
            Next i
            
            If firstPos > 0 Then
                c.Offset(0, 1).Value = Left$(sText, firstPos - 1) ' text before the first number
                c.Offset(0, 2).Value = Mid$(sText, firstPos)      ' remainder from the first number
            Else
                c.Offset(0, 1).Value = sText
                c.Offset(0, 2).Value = ""
            End If
        Else
            ' Blank or error cells: copy to text part, keep number part blank
            c.Offset(0, 1).Value = c.Value
            c.Offset(0, 2).Value = ""
        End If
    Next c
    
    Application.ScreenUpdating = True
    MsgBox "Split completed.", vbInformation
End Sub

2. Para ejecutar la macro, pulse F5 en la ventana de VBA o, en Excel, pulse Alt + F8, seleccione SplitAtFirstNumber y, a continuación, haga clic en Ejecutar. Aparecerá un cuadro de diálogo titulado «Kutools for Excel» que le pedirá que seleccione el rango de celdas que desea procesar; elija sus celdas y confirme. La macro dividirá cada celda seleccionada: colocará la parte de texto anterior al primer número en la columna inmediatamente a la derecha y el resto (número y caracteres posteriores) en la siguiente columna. Si no se encuentra ningún número, todos los datos se escribirán en la columna de texto y la columna de números quedará en blanco.

Descubra la magia de Excel con KUTOOLS AI

• Ejecución inteligente: Realice operaciones en celdas, analice datos y cree gráficos con comandos sencillos.
• fórmulas personalizadas: Cree fórmulas a medida para optimizar sus flujos de trabajo.
• Programación en VBA: Escriba e implemente código VBA con facilidad.
• Interpretación de fórmulas: Entienda las fórmulas complejas con facilidad.
• Traducción de texto: Rompa las barreras del idioma directamente en sus hojas de cálculo.

Potencie sus capacidades en Excel con herramientas impulsadas por inteligencia artificial.Descárguelo ahora¡y experimente una eficiencia como nunca antes!

Las mejores herramientas de productividad para Office

🤖	KUTOOLS AI Asistente: Revolucione Análisis de datos basándose en:Ejecución Inteligente   |  Generar código|  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos|  Invocar Funciones mejoradas…
	Funciones populares:Buscar, resaltar o Marcar duplicados   |  Eliminar filas en blanco   |  Combinar Columnas o celdas sin perder datos   |   Redondeo sin usar fórmulas...
	Super BUSCARV:Búsqueda vertical (VLookup) con múltiples criterios  |  Búsqueda vertical (VLookup) con múltiples valores  |   Búsqueda vertical (VLookup) entre varias hojas   |   Coincidencia difusa....
	Lista desplegable avanzada:Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple....
	Gestor de columnas:Añadir un número específico de columnas|Mover columnas|Alternar el estado de visibilidad de columnas ocultas|Comparar rangos y columnas...
	Funciones destacadas:Cuadrícula de enfoque   |  Vista de diseño   |Barra de fórmulas mejorada   | Gestor de libros y hojas   |  Biblioteca de recursos(Texto automático)|  Selector de Fecha   |  Combinar Hojas de Cálculo  |  Cifrar/Descifrar celdas   | Enviar correos electrónicos desde una lista   |  Super Filtro   |   Filtro especial(Filtrar celdas con fuente en negrita/cursiva/tachado...) ...
	Principales conjuntos de herramientas 15:12 Herramientasde texto(Agregar texto,Eliminar caracteres específicos, ...)|   50+Tiposde gráfico(Diagrama de Gantt, ...)|   40+ Fórmulas prácticas(Calcular la edad basada en la fecha de nacimiento, ...)|   19 Herramientasde inserción(Insertar Código QR,Insertar imagen desde ruta, ...)|   12 Herramientasde conversión(Convertir a palabras,Conversión de moneda, ...)|   7 Herramientasde combinación y división(Combinar filas avanzado,Dividir celdas, ...)|...y muchas más

Use Kutools en su idioma preferido: compatible con inglés, español, alemán, francés, chino y 40+ más idiomas.¡

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

Más información sobre Kutools para Excel...Descarga gratuita...

---

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

• Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
• ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!

Más información sobre Office Tab...Descarga gratuita...

---

Todos los complementos de Kutools en un solo instalador.

Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.

• Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
• Un instalador, una licencia— configuración en minutos (compatible con MSI)
• Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
• Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
• La mejor relación calidad-precio— ahorre frente a la compra individual de complementos

Más información sobre Kutools for Office...Descarga gratuita...