Pregunta macro para organizar los datos en una columna


Tengo una lista de archivos con los datos del precio del producto, convertí los archivos PDF a formato xlsx mientras se deslocaban los datos de conversión, los datos del precio se dispersan en columnas J, K, L, ¿hay una macro en Excel que pueda ver el símbolo $? y organizar todos los datos de precios en la columna K


1


origen




Respuestas:


Comenzando con datos como:

enter image description here

Ejecutando esta macro:

Sub qwerty()
    Dim J As Range, L As Range, r As Range
    Set J = Intersect(ActiveSheet.UsedRange, Range("J:J"))
    Set L = Intersect(ActiveSheet.UsedRange, Range("L:L"))

    For Each r In J
        If Left(r.Text, 1) = "$" Then
            r.Copy r.Offset(0, 1)
            r.Clear
        End If
    Next r

    For Each r In L
        If Left(r.Text, 1) = "$" Then
            r.Copy r.Offset(0, -1)
            r.Clear
        End If
    Next r
End Sub

Producirá:

enter image description here


1