כיצד למצוא כפילויות ב- Excel

שלב 1

פתח את הקובץ Microsoft Excel 2010 המכיל את הנתונים שברצונך לבדוק עבור כפילויות. כאשר הגיליון האלקטרוני נפתח, לחץ על המקשים "Alt" ו- "F11" כדי לטעון את קונסולת ה- VBA.

שלב 2

לחץ על הגיליון האלקטרוני בצד שמאל של מסך ה- VBA. העבר את העכבר מעל "הכנס" ובחר באפשרות "מודול". לחץ פעמיים על המודול החדש שמופיע מספר שורות מתחת לגיליון האלקטרוני.

שלב 3

מקם את הסמן בחלל הריק בצד ימין של המסך. כתוב "Sub Dupecheck ()" ולחץ על Enter. VBA באופן אוטומטי להזין את "End Sub" הפקודה בשבילך.

שלב 4

מקם את הסמן על הקו בין פקודות "Sub" ו- "Sub Sub". הזן את השורות הבאות של קוד:

עמעום x ארוך כמו endrow end long = טווח ("A50000"). (סוף) xlUp.

קוד זה יוצר שני משתנים, "EndRow" ו- "x" ולאחר מכן קובע את הערך של "EndRow". קוד זה יחפש דרך 50 אלף שורות בעמודה אחת, אבל אם אתה צריך לחפש בין שורות נוספות, הוא מגדיל מ 50 אלף לכל מספר שאתה צריך. קוד זה נועד גם לחפש בעמודה "A", אבל אתה רק צריך לשנות "A" לכל מכתב בעמודה שאתה צריך.

שלב 5

הצב את הסמן על השורה הבאה וכתוב את הקוד הבא:

עבור x = endrow ל -1 שלב -1 אם Application.WorksheetFunction.CountIf (טווח: "A1: A" & x), טווח ("A" & x) .Text)> ולאחר מכן טווח ("A" & x). פנים. צבע = RGB (200, 160, 35) סיום אם הבא x

זהו הלב של הקוד אשר יחפש דרך כל תא ולקבוע אם תא זהה קיים מעל זה. אם הוא מוצא כפילות, זה יהפוך את החלק התחתון של התא צבע צהוב. באפשרותך לשנות את כל המופעים של "A" אם אתה עובד בעמודה אחרת. ניתן גם לשנות את שלושת המספרים לאחר "Internal.color" כדי לשנות את הצבע שבו התא יומר.

שלב 6

לחץ על "x" בפינה הימנית העליונה של המסך כדי לסגור את קונסולת VBA. לחץ על הכרטיסייה "מפתח" בחלק העליון של המסך. מצא את "מאקרו" כפתור בצד שמאל של הסרט ולחץ על זה. בחר "Dupecheck" מתוך רשימה של פקודות מאקרו זמין ולחץ על "הפעלה". Excel יסמן כעת כל עותק כפול בעמודת הנתונים.