Programación reticular
SubMillimeter()
Etiqueta I como un número entero
Dim x As Long
x = 1
Hacer
Para i = 1 a Len(Cells(x, 1))
Si Mid(Cells(x, 1), I, 1) >= 0 y Mid(Cells(x, 1), i , 1) <= 9 entonces Celdas(x, 2) = Celdas(x, 2) & Mid(celdas (x, 1), i, 1)
Siguiente i
x = x 1
Ciclo hasta celda(x, 1) = " "
Conector final