¿Cómo poner números y caracteres chinos de la misma celda en dos celdas en Excel?

En tu ejemplo, los números están al frente y los caracteres chinos se concentran en la parte posterior. Puedes hacer esto:

C1=SUSTITUTO(SUSTITUTO(SUSTITUTO(SUSTITUTO(SUSTITUTO). (SUSTITUIR(SUSTITUIR( SUSTITUIR(SUSTITUIR(SUSTITUIR(A1,"0",""),"1",""),"2",""),"3",""),"4"," "),"5 ",""),"6",""),"7",""),"8",""),"9","")

B1 =SUSTITUIR(A1, C1,"")

Seleccione B1:C1

Desplegable

Como se muestra en la figura:

El principio de este método es que en el carácter original Reemplace los números en la cadena con "", y el resto es una cadena de caracteres chinos.

Supongamos que todos los caracteres chinos de la cadena original están concentrados juntos. En la cadena original, reemplace los caracteres chinos concentrados con "", y el resto es una cadena numérica.

Utilizando el siguiente programa VBA, los números y los caracteres chinos se pueden separar incluso si están mezclados. Para no borrar las fórmulas en las columnas B y C, coloco los resultados en ejecución en las columnas D y E:

Sub Números y caracteres chinos separados ()

Dim rng As Rango, a$, b$, i%

Para cada rng en Intersect(UsedRange, Range("A:A"))

a$ = "'"

b$ = ""

Para i% = 1 A Len(rng.Value)

Si Mid(rng.Value, i%, 1) Como "[ 0 -9]" Entonces

a$ = a$ & Mid(rng.Value, i%, 1)

End If

If Asc(Mid ( rng.Value, i%, 1)) < 0 Entonces

b$ = b$ & Mid(rng.Value, i%, 1)

Fin si

Siguiente i%

rng.Offset(, 3).Value = a$

rng.Offset(, 4).Value = b$

Siguiente

Fin Sub