নির্দিষ্ট মানের উপর ভিত্তি করে কলামগুলি মার্জ করা

Question

আমি একটি এক্সেল শীট নিয়ে কাজ করছি যেখানে আমার গাড়ির নম্বরগুলিতে ঘরের বেসগুলি একত্রীকরণ করতে হবে। দুটি বা ততোধিক ধারাবাহিক কক্ষে যদি একই যানবাহনের নম্বর থাকে তবে আমার সেলগুলি গাড়ির নম্বরে ডানদিকে একত্রীকরণ করতে হবে। আমার কাছে একটি বিশাল ফাইল রয়েছে যাতে 200 টির মতো গাড়ির নম্বর রয়েছে। সুতরাং প্রতিটি গাড়ির উপর ভিত্তি করে ঘরগুলি মার্জ করা একটি সময় সাধ্যের কাজ। এটি সহজ করার কোনও উপায় আছে কি? আমি আমার এক্সেল শীটের একটি স্ক্রিনশট সংযুক্ত করেছি।

স্ক্রিনশট

Answer 1

আমি আপনার লক্ষ্য অর্জনের জন্য আপনাকে ভিবিএ কোড প্রস্তাব করতে চাই, যেহেতু এটি প্রয়োগের পক্ষে সেরা এবং সহজতম পদ্ধতি।

ডান কলামে সংলগ্ন ঘরগুলি মার্জ করার জন্য আপনি নীচের লিখিত ভিবিএ কোডটি ব্যবহার করতে পারেন, যদি তাদের বামে মানগুলি সদৃশ হয়।

স্ক্রিন শট পরীক্ষা করুন:

Sub MergeSameCell()

Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "Merge Cells In Excel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
    For i = 1 To xRows - 1
        For j = i + 1 To xRows
            If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
                Exit For
            End If
        Next
        WorkRng.Parent.Range(Rng.Cells(i, 2), Rng.Cells(j - 1, 2)).Merge
        WorkRng.Parent.Range(Rng.Cells(i, 3), Rng.Cells(j - 1, 3)).Merge
        WorkRng.Parent.Range(Rng.Cells(i, 4), Rng.Cells(j - 1, 4)).Merge
        i = j - 1

    Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

কোডটি কীভাবে ব্যবহার করবেন:

• ALT + F11 কী ধরে রাখুন এবং এটি মাইক্রোসফ্ট ভিজ্যুয়াল বেসিকের জন্য অ্যাপ্লিকেশন উইন্ডোটি খুলবে।
• সন্নিবেশ করুন ক্লিক করুন তারপরে মডিউল এবং কোডটি আটকান।
• ম্যাক্রো চালান।
• যখন ইনপুট বাক্স উপস্থিত হয় তখন ডেটা সীমাটি নির্বাচন করুন যেখানে সদৃশ মান উপলব্ধ।
• ঠিক আছে দিয়ে শেষ।

আপনি কাজ শেষ।

Comments

আপনার কাছ থেকে @ সান শুনে খুশি, এবং আপনাকে সাহায্য করে খুশি ,, জিজ্ঞাসা করুন :-)

— রাজেশ এস