Note: The other languages of the website are Google-translated. Back to English

¿Cómo dividir o dividir el número en dígitos individuales en Excel?

Suponiendo que necesita dividir o dividir el número en dígitos individuales como se muestra a continuación, ¿qué puede hacer para lograrlo? Este artículo le proporcionará dos métodos.

Romper o dividir el número en dígitos individuales con fórmula
Divida o divida el número en dígitos individuales con Kutools para Excel


Romper o dividir el número en dígitos individuales con fórmula

Esta sección mostrará una fórmula para dividir las celdas numéricas seleccionadas en dígitos individuales en Excel.

1. Seleccione una celda en blanco (dice celda C1) para ubicar el primer dígito dividido del número en la celda A1, luego ingrese la fórmula = MEDIO ($ A1, COLUMNA () - (COLUMNA ($ C1) - 1), 1) en la barra de fórmulas y luego presione el Enviar clave.

Nota:: En la fórmula, A1 es la celda con el número que necesita dividir en dígitos, y C1 es la celda para ubicar el primer dígito dividido. Cámbielos como necesite.

2. Siga seleccionando la celda C1, luego arrastre el controlador de relleno a las celdas de la derecha hasta que todos los dígitos de la celda A1 se dividan.

3. Mantenga seleccionadas estas celdas de dígitos divididos y arrastre el controlador de relleno hacia las celdas hasta que todos los números se dividan en dígitos separados. Ver captura de pantalla:


Divida o divida el número en dígitos individuales con Kutools para Excel

Programas de Células partidas utilidad de Kutools for Excel le ayuda a dividir fácilmente todas las celdas numéricas seleccionadas en dígitos individuales a la vez. Haz lo siguiente.

Antes de aplicar Kutools for Excel, Por favor descargarlo e instalarlo en primer lugar.

1. Seleccione las celdas con el número que necesita dividir en dígitos, luego haga clic en Kutools > Fusionar y dividir > Células partidas. Ver captura de pantalla:

2. En el Células partidas cuadro de diálogo, seleccione Dividir en columnas opción en el Tipo y en la sección Especificar un separador, seleccione Especificar ancho e ingrese el número 1 en el cuadro de texto. Haga clic en el OK

3. En la siguiente ventana emergente Células partidas cuadro de diálogo, especifique una celda en blanco para ubicar el primer dígito dividido y luego haga clic en OK

Después de hacer clic en el OK , todos los números en las celdas seleccionadas se dividen en dígitos separados inmediatamente como se muestra a continuación.

  Si desea tener una prueba gratuita (30-día) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.


Divida o divida el número en dígitos individuales con Kutools para Excel


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

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!
officetab parte inferior
Comentarios (12)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Hola, avísenme la fórmula para combinar números de varios dígitos con un solo dígito exp: 12345 (dentro de una celda) calcular automáticamente a 1+2+3+4+5 = 6
Este comentario fue minimizado por el moderador en el sitio
Opción explícita
'Función principal
Función NumberToText(ByVal MyNumber)
Cuenta tenue
Resultado tenue
Dim NLongitud
Count = 1
NLongitud = Longitud(MiNúmero) + 1
Do Mientras Cuenta < NLongitud
Resultado = Resultado & GetDigit(Mid(MyNumber, Count, Count)) & Space(1)
Count = Count + 1
Red ISTE Loop
NumberToText = Resultado
Función finales

Función ObtenerDígito(Dígito)
Seleccionar valor de caso (dígito)
Caso 1: GetDigit = "Uno"
Caso 2: GetDigit = "Dos"
Caso 3: GetDigit = "Tres"
Caso 4: GetDigit = "Cuatro"
Caso 5: GetDigit = "Cinco"
Caso 6: GetDigit = "Seis"
Caso 7: GetDigit = "Siete"
Caso 8: GetDigit = "Ocho"
Caso 9: GetDigit = "Nueve"
Caso contrario: GetDigit = "Cero"
Fin Seleccionar
Función finales


Estoy tratando de convertir dígitos en palabras para preparar la hoja de calificaciones. Por ejemplo: 63 => Seis Tres pero esto no funciona con un número de 3 dígitos Por ejemplo: 798 => Siete Cero Ocho ERROR. Por favor ayuda
Este comentario fue minimizado por el moderador en el sitio
Estimada Priya,
La siguiente función definida por el usuario puede ayudarlo.

Función NumberToText(ByVal xNum)
Dim I tan largo
Atenuar xTemp siempre
Dim xStr como cadena
Resultado atenuado como cadena
Para I = 1 a Len(xNum)
xTemp = Medio(xNum, I, 1)
Seleccionar caso xTemp
Caso 1: xStr = "Uno"
Caso 2: xStr = "Dos"
Caso 3: xStr = "Tres"
Caso 4: xStr = "Cuatro"
Caso 5: xStr = "Cinco"
Caso 6: xStr = "Seis"
Caso 7: xStr = "Siete"
Caso 8: xStr = "Ocho"
Caso 9: xStr = "Nueve"
Caso contrario: xStr = "Cero"
Fin Seleccionar
Resultado = Resultado & xStr & Espacio(1)
Siguiente
NumberToText = Resultado
Función finales
Este comentario fue minimizado por el moderador en el sitio
si los datos están en el siguiente formato, ¿qué hará?
DDD 1 2 3 4 5 6 7 8 9 10 11 12 13 14
1,2,3,5,15,12,11
12,10,13,11,5,2,4
1,5,7,4


Necesita el número desde la primera celda hasta el número de encabezado debajo (es decir, si tenemos 1, entonces responda en la celda debajo de 1,5,11)
Este comentario fue minimizado por el moderador en el sitio
Texto Final: COJINETE, BOLAS; TIPO: RANURA PROFUNDA, MATERIAL JAULA: ACERO, CANTIDAD DE FILAS: SIMPLE, DIÁMETRO INTERIOR: 30 MM, DIÁMETRO EXTERIOR: 72 MM, ANCHO: 19 MM, TIPO DE CIERRE: BLINDAJE SIMPLE, CAPACIDAD DE CARGA: DINÁMICA: 29.6, ESTÁTICA: 16 KN, VELOCIDAD: 13000 RPM; NÚMERO DE PIEZA DEL FABRICANTE 63 63 6306 Z SKF

Quiero encontrar el "63 6306 Z SKF" dentro del texto final. ¿Alguien puede guiarme?
Este comentario fue minimizado por el moderador en el sitio
Hola Jagan,
¿El texto final que mostraste arriba está ubicado en una celda? ¿O podría proporcionar una captura de pantalla de su ejemplo que muestre exactamente lo que está tratando de hacer?
Este comentario fue minimizado por el moderador en el sitio
Estimado señor,


factura no factura Fecha Nombre de la parte Nombre del artículo Cantidad real
01 01-04-2019 abc móvil 20


ISKO TWENTIES FILA ME LANA HAI



AMABLEMENTE MADAD KIJIYE MUY MUY IMPORTANTE
Este comentario fue minimizado por el moderador en el sitio
9310B82214332A esto no quiere derramarse en la siguiente columna en este formato 82214332A qué hacer
Este comentario fue minimizado por el moderador en el sitio
¿Hay alguna manera de que la fórmula de números divididos funcione en una celda que recibe datos cambiantes, de modo que los números divididos se actualicen automáticamente cuando cambie la celda de origen?
Este comentario fue minimizado por el moderador en el sitio
Hi

Me gustaría obtener ayuda con lo siguiente:

Una celda los números son [1,1,1,2,2,3,4,1]

Me gustaría dejar que este número solo resulte en otra celda para ilustrar [1,2,3,4]

Esto también significaría que si hay un 0, por ejemplo, [1,1,0,1,4,2]
Entonces me gustaría que se viera como = [1,2,4]

saludos cordiales
SS
Este comentario fue minimizado por el moderador en el sitio
Hola Stefan S,
Aplique la siguiente función definida por el usuario para resolver este problema.
1. Después de agregar el siguiente código en la ventana Módulo (Código).
2. Regrese a la hoja de trabajo, seleccione una celda, ingrese esta fórmula =Eliminar duplicados2(A1) Y pulse el botón Enviar clave para obtener el resultado.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/digits.png
Function RemoveDupes2(txt As String, Optional delim As String = ",") As String
    Dim x
    Dim arr()
    'Updateby Extendoffice 20221128
    Application.Volatile
    On Error Resume Next
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        For Each x In Split(txt, delim)
            If Trim(x) <> "" And Not .Exists(Trim(x)) Then .Add Trim(x), Nothing
        Next
        If .Exists("0") Then .Remove ("0")
        If .Count > 0 Then
            xCount = .Count
            ReDim arr(1 To xCount)
            i = 1
            For Each Key In .Keys
                arr(i) = Key
                i = i + 1
            Next

            For i = 1 To xCount - 1
                For j = i + 1 To xCount
                If arr(i) > arr(j) Then
                        temp = arr(i)
                        arr(i) = arr(j)
                        arr(j) = temp
                    End If
                Next j
            Next i

            RemoveDupes2 = Join(arr, delim)
        End If
    End With
End Function
Este comentario fue minimizado por el moderador en el sitio
Querida Cristal

Gracias por tu comentario. ¡Funciona muy bien! ¡Eres una estrella!

saludos cordiales
SS
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Siganos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL