Ajustar macro “Extraer Números de una columna (A) y colocarlos en las columnas B y C respectivamente”
Para Dante Amor
De la Columna A se extrae los números y se colocan en las columnas B y C (ver anexo) como valores numéricos. Favor ver correo que le envié
1 Respuesta
Respuesta de Dante Amor
2
Te anexo la macro
Sub Separar()
'Por.Dante Amor
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
If InStr(1, Cells(i, "A"), "//") > 0 Then
Call extrae("//", i)
ElseIf InStr(1, Cells(i, "A"), "/") > 0 Then
Call extrae("/", i)
ElseIf InStr(1, Cells(i, "A"), "-") > 0 Then
Call extrae("-", i)
ElseIf InStr(1, Cells(i, "A"), " de ") > 0 Then
Call extrae(" de ", i)
End If
Next
MsgBox "Fin"
End Sub
'
Sub extrae(texto, i)
datos = Split(Cells(i, "A"), texto)
For n = 0 To 1
num = ""
una = False
For j = 1 To Len(datos(n))
If IsNumeric(Mid(datos(n), j, 1)) Then
num = num & Mid(datos(n), j, 1)
una = True
Else
If una Then Exit For
End If
Next
If num <> "" Then
Cells(i, n + 2) = IIf(IsNumeric(num), CDbl(num), num)
End If
Next
End Subsal u dos
Dam muchas ¡Gracias!
Te faltó valorar
