შინაარსი

Microsoft Excel-ის სტანდარტულ ინსტრუმენტებს შორის, დუბლიკატების ფერებით ხაზგასმის მრავალი განსხვავებული გზა არსებობს. ყველაზე მარტივი და სწრაფი გზა არის პირობითი ფორმატირება. ამისათვის უბრალოდ აირჩიეთ უჯრედების დიაპაზონი და აირჩიეთ ჩანართზე მთავარი — პირობითი ფორმატირება — უჯრედის შერჩევის წესები — დუბლიკატი მნიშვნელობები (მთავარი — პირობითი ფორმატირება — მონიშნეთ უჯრედების წესები — დუბლიკატი მნიშვნელობები):

დუბლიკატების ორმაგი განათება

თუმცა, ამ შემთხვევაში, ყველა უჯრედის შევსების ფერი ერთნაირი იქნება, ანუ ის უბრალოდ მიანიშნებს, რომ ელემენტს აქვს დუბლიკატები სხვაგან დიაპაზონში, მაგრამ არაფრით ეხმარება მათ პოვნაში. თქვენ შეგიძლიათ გამოასწოროთ სიტუაცია პატარა მაკროთი, რომელიც შეავსებს განმეორებით დუბლიკატების თითოეულ წყვილს (ან მეტს) საკუთარი ფერით:

დუბლიკატების ორმაგი განათება

ასე უფრო ნათელია, არა? რა თქმა უნდა, განმეორებადი უჯრედების დიდი რაოდენობით, რთული იქნება ჩრდილების გარჩევა, მაგრამ დუბლიკატების შედარებით მცირე რაოდენობით, ეს მეთოდი იდეალურად იმუშავებს.

ამ მაკროს გამოსაყენებლად დააჭირეთ კლავიატურის მალსახმობს Alt + F11 ან ღილაკი Visual Basic tab შემქმნელი, ჩადეთ ახალი ცარიელი მოდული მენიუს მეშვეობით ჩასმა – მოდული და დააკოპირეთ ამ მაკროს კოდი იქ:

Sub DuplicatesColoring() Dim Dupes() 'გამოაცხადეთ მასივი დუბლიკატების შესანახად. Selection If WorksheetFunction.CountIf(Selection, cell.Value) > 1 შემდეგ For k = LBound(Dupes) To UBound(Dupes) 'თუ უჯრედი უკვე არის დუბლიკატების მასივში, შეავსეთ If Dupes(k, 1) = უჯრედი შემდეგ საკანი.ინტერიერი. ColorIndex = Dupes(k, 2) შემდეგი k 'თუ უჯრედი შეიცავს დუბლიკატს, მაგრამ ჯერ არ არის მასივი, დაამატეთ იგი მასივში და შეავსეთ თუ cell.Interior.ColorIndex = -4142 შემდეგ cell.Interior.ColorIndex = i Dupes(i, 3 ) = cell.Value Dupes(i, 1) = ii = i + 1 End If End თუ შემდეგი უჯრედის ბოლოს Sub  

ახლა თქვენ შეგიძლიათ აირჩიოთ ნებისმიერი დიაპაზონი მონაცემებით ფურცელზე და გაუშვათ ჩვენი მაკრო კლავიატურის მალსახმობის გამოყენებით Alt + F8 ან ღილაკის საშუალებით Macros (მაკროები) tab დეველოპერი (დეველოპერი).

  • მონიშნეთ დუბლიკატები ფერით
  • რა არის მაკროები, სად ჩავსვათ მაკრო კოდი Visual Basic-ში, როგორ გავუშვათ ისინი
  • როგორ გამოვთვალოთ უნიკალური მნიშვნელობების რაოდენობა უჯრედების მოცემულ დიაპაზონში

დატოვე პასუხი