แมโครสำหรับการจัดเรียงข้อมูลลงในคอลัมน์

ฉันมีรายการไฟล์ที่มีข้อมูลราคาผลิตภัณฑ์อยู่ฉันได้แปลงไฟล์ pdf เป็นรูปแบบ xlsx ในขณะที่การแปลงข้อมูลไม่ได้ปันส่วนข้อมูลราคาจะกระจัดกระจายในคอลัมน์ J, K, L มีแมโครใน excel ที่สามารถดูสัญลักษณ์ $ ได้ และจัดเรียงข้อมูลราคาทั้งหมดลงในคอลัมน์ K

เริ่มต้นด้วยข้อมูลเช่น:

เรียกใช้แมโครนี้:

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

จะผลิต: