用于将数据排列成列的宏

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

将产生：