Extraer datos usando VBA en Excel

1. Va precedido de caracteres chinos y seguido de números. Puede utilizar las funciones MID, min y find para extraer los números del interior. Como se muestra en la figura: ingrese "=MID(a 1, min(find({0, 1, 2, 3, 4, 5, 6, 7, 8, 9}, a 1 & "0123456789")), 20 )"

2. Muestra todos los números de la celda. Puedes usar macros. Primero abra el editor VBA. Herramientas-Macros-Editor Visual Basic

3. Haga clic en Insertar-Módulo en el editor. Ingrese el siguiente código en el módulo:

Función zzsz(xStr As String) Como String dim I Como entero para I = 1 To Len(xStr) Si es numérico(Mid(xStr, I, 1)) , Luego zzsz = zzsz & ampmid (xStr, I, 1) siguiente función final

4. Regrese a la hoja de trabajo e ingrese "=zzsz(A2)" en la celda B2. Puede usar VBA para extraer todos los números en la celda A2 como se muestra en la imagen.

¿Cómo extraer solo los números de la tabla en Excel?

5. Especifique la matriz que se extraerá. Es decir, entre esos números no consecutivos, extraiga el número de apariciones de la matriz. Además, ingrese el siguiente código en el módulo:

Función GetNums(rCell As Range, num As Integer) As String dim arr 1() As String dim chr As String, Str As StringDim i As Integer, j Como entero en error Ir a la línea 1

Str = rCell. texto para I = 1 A Len (Str) chr = Mid (Str, I, 1) Si (Asc (chr) "48 O Asc (chr) " 57) entonces Str = Reemplazar (Str, chr, "") Fin IfNext

arr 1 = Dividir (Recortar (Str)) ReDim arr 2 (UBound (arr 1)) For I = 0 To UBound (arr 1) Si arr 1 (I) "" Entonces arr 2 (j 1 (I 1) end If next

GetNums = IIf (num "= j, arr 2 (num-1)") línea 1: Finalizar función

6. Ingrese "= getnums(a3, 2)" para extraer la primera aparición de la matriz, como se muestra en la figura.