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
2 respuestas
Respuesta de Dante Amor
1
Te anexo la macro para separar los números en los siguientes casos: Cuando están separados por "/", "-" o " de "
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"), " de ") > 0 Then
Call extrae(" de ", i)
End If
Next
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
Cells(i, n + 2) = num
Next
End SubCopia todo el código y ejecuta la macro "Separar"
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
Respuesta de Programar Excel
Debes usar macro para recorrer ceeldas y extraer cadena de texto. Te paso ejemplos
Recorrer filas
https://www.youtube.com/playlist?list=PLdK9H5dMIfQgtHDNFFm_AV6HUKYpUjrPx
Trabajar o extraer cadenas
http://www.programarexcel.com/2013/06/macro-extrae-cadenas-de-texto-o-string.html
Busca acá otros ejemplod
Las 1000 mejores macros de excel textbox combobox listbox