Extraer cadenas usando programación vba
¿Sub? NumSort()
¿Atenuado? n
¿Para qué? ¿I? =?1?¿Adónde ir? Len(ActiveSheet.Range(" A1 "))
n=1
¿Si? ¿Medio(ActiveSheet.Range("A1 "),I,1)? =?"."? Entonces
celda(5, n 1)? =?Mid(ActiveSheet.Range("A1",n,i-n 1)
n?=?i 1
Fin?si
Entonces p>
¿El final? Submarino