Extraer datos de un texto sin importar donde se encuentren ubicados.
Necesito extraer datos de un texto en una celda, y que lo pegue en diferentes columnas, esto es porque los textos son capturados a veces mal y no ponen la información en el misma ubicación.
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro para extraer.
Sub Extraer()
'Por.Dante Amor
u = Range("B" & Rows.Count).End(xlUp).Row
Range("C3:F" & u).ClearContents
For i = 3 To u
For j = 2 To Range("j" & Rows.Count).End(xlUp).Row
c = InStr(1, UCase(Cells(i, "B")), Cells(j, "J"))
If c > 0 Then
cad = ""
For k = 1 To c
If (IsNumeric(Mid(Cells(i, "B"), k, 1)) And _
Mid(Cells(i, "B"), k, 1) <> "") Or _
Mid(Cells(i, "B"), k, 1) = "." Then
cad = cad & Mid(Cells(i, "B"), k, 1)
End If
Next
Select Case j
Case 2, 3: col = 3
Case 4, 5: col = 4
Case 6, 7: col = 5
End Select
Cells(i, col) = cad
Exit For
End If
Next
c1 = InStrRev(Cells(i, "B"), " ")
c2 = Mid(Cells(i, "B"), c1)
C3 = Replace(c2, "B", "")
Cells(i, "F") = C3
Next
MsgBox "fin"
End Subsal u dos
