සම්මත Microsoft Excel මෙවලම් අතර, වර්ණ සමඟ අනුපිටපත් ඉස්මතු කිරීමට විවිධ ක්රම තිබේ. පහසුම සහ වේගවත්ම ක්රමය වන්නේ කොන්දේසි සහිත හැඩතල ගැන්වීමයි. මෙය සිදු කිරීම සඳහා, සෛල පරාසයක් තෝරා ටැබය මත තෝරන්න මුල් පිටුව — කොන්දේසිගත හැඩතල ගැන්වීම — සෛල තේරීම් රීති — අනුපිටපත් අගයන් (මුල් පිටුව - කොන්දේසි සහිත හැඩතල ගැන්වීම - සෛල රීති උද්දීපනය කරන්න - අනුපිටපත් අගයන්):
කෙසේ වෙතත්, මෙම අවස්ථාවෙහිදී, සියලුම සෛලවල පිරවුම් වර්ණය සමාන වනු ඇත, එනම් එය මූලද්‍රව්‍ය පරාසයේ වෙනත් තැනක අනුපිටපත් ඇති බවට සංඥා කරයි, නමුත් ඒවා සොයා ගැනීමට උදව් කිරීමට කිසිවක් නොකරයි. ඔබට කුඩා මැක්‍රෝ එකකින් තත්වය නිවැරදි කළ හැකි අතර එමඟින් එක් එක් යුගල (හෝ ඊට වැඩි) නැවත නැවත අනුපිටපත් එහිම වර්ණයෙන් පුරවනු ඇත:
ඔච්චර පැහැදිලියි නේද? ඇත්ත වශයෙන්ම, පුනරාවර්තන සෛල විශාල සංඛ්යාවක් සමඟ, සෙවනැලි අතර වෙනස හඳුනා ගැනීමට අපහසු වනු ඇත, නමුත් සාපේක්ෂව කුඩා අනුපිටපත් සංඛ්යාවක් සමඟ, මෙම ක්රමය පරිපූර්ණව ක්රියා කරනු ඇත.
මෙම මැක්‍රෝව භාවිතා කිරීමට, යතුරුපුවරු කෙටිමඟ ඔබන්න Alt + F11 හෝ බොත්තම දෘශ්ය මූලික ටැබ් සංවර්ධක, මෙනුව හරහා නව හිස් මොඩියුලයක් ඇතුල් කරන්න ඇතුල් කරන්න - මොඩියුලය මෙම මැක්‍රෝවේ කේතය එහි පිටපත් කරන්න:
Sub DuplicatesColoring() Dim Dupes() 'ReDim Dupes අනුපිටපත් ගබඩා කිරීමට අරාවක් ප්‍රකාශ කරන්න(1 සිට Selection.Cells.Count, 1 සිට 2) Selection.Interior.ColorIndex = -4142 'එක් එක් කොටුව සඳහා i = 3 නම් පිරවීම ඉවත් කරන්න. තේරීම නම් WorksheetFunction.CountIf(Selection, cell.Value) > 1 එවිට k = LBound(Dupes) සිට UBound(Dupes) සඳහා 'කොටුව දැනටමත් අනුපිටපත් අරාවේ තිබේ නම්, If Dupes(k, 1) = cell පුරවන්න. එවිට සෛලය.අභ්යන්තරය. ColorIndex = Dupes(k, 2) ඊළඟ k 'කොටුවෙහි අනුපිටපතක් තිබේ නම්, නමුත් තවමත් අරාවෙහි නොමැති නම්, එය අරාවට එකතු කර එය පුරවන්න If cell.Interior.ColorIndex = -4142 ඉන්පසු cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell. Value Dupes(i, 2) = ii = i + 1 End If End If Next cell End Sub
දැන් ඔබට පත්‍රයේ දත්ත සහිත ඕනෑම පරාසයක් තෝරාගෙන යතුරුපුවරු කෙටිමඟ භාවිතයෙන් අපගේ මැක්‍රෝව ධාවනය කළ හැක Alt + F8 හෝ බොත්තම හරහා මැක්රෝස් (මැක්රෝස්) ටැබ් සංවර්ධක (සංවර්ධක).
- වර්ණ සමඟ අනුපිටපත් ඉස්මතු කරන්න
- මැක්රෝස් යනු මොනවාද, විෂුවල් බේසික් තුළ මැක්‍රෝ කේතය ඇතුළත් කළ යුත්තේ කොතැනද, ඒවා ක්‍රියාත්මක කරන්නේ කෙසේද
- දී ඇති සෛල පරාසයක අද්විතීය අගයන් ගණන ගණනය කරන්නේ කෙසේද