макрос для размещения данных в столбце

Question

У меня есть список файлов с данными о ценах на товары, я конвертировал pdf файлы в формат xlsx, а конвертируемые данные дислоцируются, данные о ценах разбросаны по столбцам J, K, L, есть ли макрос в excel, который может смотреть на символ $ и разместите все данные о ценах в колонке K

Answer 1

Начиная с таких данных, как:

Запуск этого макроса:

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

будет производить: