সদৃশ সারিগুলি হাইলাইট করুন (কক্ষ নয়)

Question

আমার এক্সেল 2013 শীটে আমাকে সদৃশ সারিগুলি হাইলাইট করতে হবে। "হাইলাইট -> সদৃশ" পদ্ধতিটি ব্যবহার করে আমি সারিগুলির মধ্যে সদৃশ ঘরের মানগুলি হাইলাইট করতে পারি, তবে আমি যা করার চেষ্টা করছি তা হ'ল ডুপ্লিকেটগুলি সম্পূর্ণরূপে সারিগুলি হাইলাইট করা। যদি এই সারির জন্য কেবল একটি ঘর আলাদা হয় তবে এটি আমার ক্ষেত্রে সদৃশ হিসাবে বিবেচিত হবে না।

উদাহরণ:

Name    Task     Phone Number
A       Do 1     12345
B       Do 1     12345
A       Do 2     12345
B       Do 1     12345

উপরের টেবিলের জন্য, কেবল 2 এবং 4 সারি হাইলাইট করা উচিত।

Comments

If only one cell is different for that row then it's not considered duplicate in my case.তারপরে কী ডুপ ধরা হয়? এটি ভিবিএ

— ডেভ

একটি সারিটি একটি নকল হিসাবে বিবেচিত হয় যদি অন্য সারি উপস্থিত থাকে যা এর ঠিক সমান হয়, এটিতে প্রথম সারির কোষগুলির একটি প্রতিলিপি রয়েছে। আমি যুক্ত উদাহরণ দয়া করে চেক করুন।

— ব্যবহারকারী 3340627

Answer 1

আপনি সারিগুলি হাইলাইট করতে বলছেন তবে আমি অনুমান করছি এটি সমস্যাযুক্ত হতে পারে (যদিও আপনি এটি কেন চান তা আপনি বর্ণনা করেন না)। ধরে নিলাম আপনার কাছে 10 টি সারি রয়েছে এবং এর মধ্যে অনেকগুলি সারি সারি করে, আপনার কার্যপত্রকটি দেখতে দেখতে ভাল লাগবে

সমস্যাটি হ'ল আপনার কোন ধারণা নেই যে কোন সারিটি কোন সারিটির সাথে মেলে!

আপনি পরবর্তী স্ক্রিপ্টটি চালানোর সময় আপনার সমস্যাটি থাকবে, হাইলাইটটি অব্যাহত থাকবে।

এর মতো, আমি তথ্যের অতিরিক্ত কলাম সহ একটি সমাধান প্রস্তাব করি (নীচে স্ক্রিন শট):

Sub WalkThePlank()

Dim startRow As Integer
startRow = 2                 'Update this to lead us to the treasure

Dim row As Integer
row = startRow

Do While (Range("A" & row).Value <> "")

    Dim innerRow As Integer
    innerRow = row + 1

    Dim name As String
    Dim task As String
    Dim phone As String

    name = Range("A" & row).Value
    task = Range("B" & row).Value
    phone = Range("C" & row).Value

    Do While (Range("A" & innerRow).Value <> "")


        If (Range("A" & innerRow).Value = name And Range("B" & innerRow).Value = task And Range("C" & innerRow).Value = phone) Then
            Range("D" & row).Value = Range("D" & row).Value & innerRow & ", "
            Range("D" & innerRow).Value = Range("D" & innerRow).Value & row & ", "
            'Rows(row).Interior.ColorIndex = 6      'UNCOMMENT THIS LINE IF YOU WANT HIGHLIGHTING

            'Rows(innerRow).Interior.ColorIndex = 6      'UNCOMMENT THIS LINE IF YOU WANT HIGHLIGHTING
        End If

    innerRow = innerRow + 1
    Loop

    row = row + 1
Loop

End Sub

এটি এটিই করে

আপনার ফাইলের অনুলিপিটিতে এটি করুন - কোনও পূর্বাবস্থায় ফিচার নেই!

কোডটিতে নোট করুন 2 লাইনগুলি আপনাকে দেখায় যে কোন লাইনটি আপত্তিহীন করতে হবে ( 'সেই লাইনে প্রথমটি সরিয়ে ফেলুন এবং সেগুলি হাইলাইট করবে)

এমএস অফিসে আমি কীভাবে ভিবিএ যুক্ত করব?