Cómo obtener el número después de una cadena en vba

'Simplemente use esta función para escribir una función directamente

'Llame al método, temperatura de columna = número de intersección ("aaa123aaa") y obtenga el valor temporal del resultado es 123

'función de función para encontrar caracteres El primer dígito que aparece en la cadena e interceptar el último dígito desde el primer dígito

'Número de intercepción ("123aaa") Número de intersección ("aaa123a111aa") El resultado obtenido es 123

Número de intercepción de función (char) como variante

s = 1

Para s = 1 a Len(char)

temp = Mid( char, s, 1)

Si es numérico (temp) entonces

Salir para

Finalizar si

Siguiente

Para e = s a Len(char)

temp = Mid( char, e, 1)

Si no es numérico(temp) entonces

Salir Para

Finalizar si

Siguiente

Interceptar numérico = Medio(char, s, e - s)

Función final