কলামে ডেটা সাজানোর জন্য ম্যাক্রো

Question

আমার কাছে এতে পণ্যের দামের তথ্য সহ ফাইলগুলির তালিকা রয়েছে, আমি পিডিএফ ফাইলগুলিকে এক্সএলএক্সএক্স ফর্ম্যাটে রূপান্তরিত করি যখন ডেটা স্থানান্তরিত হয়, দামের তথ্য জে, কে, এল কলামগুলিতে ছড়িয়ে দেওয়া হয়, সেখানে এক্সেলের কোনও ম্যাক্রো থাকে যা $ চিহ্নটি দেখতে পারে এবং কে কলামে সমস্ত মূল্য ডেটা সাজান

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

উত্পাদন করবে: