چند رنگ کردن سلولهای تکراری در Duplicate values

نویسنده Shahram, 23 جولای 2021, 00:30

« قبلی - بعدی »

Shahram

سلام به همگی
با استفاده از Duplicate values میشه داده‌های تکراری را هایلایت کرد ولی همه سلول‌های تکراری را فقط با یک رنگ نمایش میده. چطور می‌تونم هر تکرار را با یک رنگ متفاوت ببینم؟

فرشید میدانی

به صورت کلی ایده صحیحی نیست زیرا تنوع رنگ ها آنقدر زیاد خواهد شد که شما در نهایت نمی توانید تشخیص درستی بدهید .
کد ساده زیر راهکاری برای این سوال است .
* توجه : این کد بهینه نیست:

Sub highlight_each_duplicate()
'by: www.farsaran.com

Dim rg As Range
i = 5
Range("A:A").ClearFormats

For Each rg In Range("A2:A140")

    If (WorksheetFunction.CountIfs(Range("A2", rg), rg) = 1) And _
            (WorksheetFunction.CountIfs(Range("A:A"), rg) >= 2) Then
        i = i + 1
        For Each x In Range(rg, "A40")
            If x.Value = rg.Value Then x.Interior.ColorIndex = i
        Next x
    End If

Next rg

End Sub

⭐ اگر پاسخ خود را یافتید:

۱) در پاسخ گویی به سوالات انجمن اکسل فرساران مشارکت کنید.
۲)  دوره‌های[iurl="[url="https://www.farsaran.com/excel"]https://www.farsaran.com/excel[/url]"] اکسل فرساران[/iurl] را به همکاران سازمان خود معرفی کنید.
۳)  صفحه [iurl="[url="https://www.instagram.com/farsaran_excel/"]https://www.instagram.com/farsaran_excel/[/url]"]اینستاگرام farsaran_excel[/iurl] را 🧡 کنید.