להלן נבחן תוכנית ב Excel VBA זֶה מסיר כפילויות.
מַצָב:
בעמודה A יש לנו 10 מספרים. אנו רוצים להסיר את הכפילים מהמספרים הללו ולמקם את המספרים הייחודיים בעמודה B.
1. ראשית, אנו מכריזים על ארבעה משתנים. toAdd מהסוג הבוליאני, ייחודי מספרים מסוג מספר שלם, i מסוג מספר שלם ו- j של מספר שלם.
Dim toAdd As Boolean, uniqueNumbers As Integer, i As Integer, j As Integer
2. לאחר מכן, אנו כותבים את המספר הראשון של עמודה A עד עמודה B מכיוון שהמספר הראשון הוא תמיד 'ייחודי'.
תאים (1, 2). ערך = תאים (1, 1). ערך
3. אנו מאתחלים שני משתנים. הוספנו רק מספר אחד לעמודה B, אז אנו מאתחלים מספר ייחודי עם הערך 1. הגדרנו ל- Add to True בהנחה שצריך להוסיף גם את המספר הבא (זה לא בהכרח נכון כמובן).
מספר ייחודי = 1
toAdd = True
עלינו לקבוע אם המספר השני הוא 'ייחודי' או לא. ניתן לעשות זאת בצורה קלה מאוד. רק אם המספר לא נמצא כבר בעמודה ב ', יש להוסיף את המספר השני לעמודה ב'.
4. עלינו לבדוק זאת גם לגבי המספר השלישי, המספר הרביעי וכן הלאה. אנו מתחילים לולאה For Next לשם כך.
עבור i = 2 עד 10
5. עכשיו מגיע החלק החשוב ביותר בתוכנית. אם המספר השני שווה לאחד המספרים בעמודה B (עד כה יש לנו רק מספר ייחודי אחד), הגדרנו ל- Add to False מכיוון שבמקרה זה איננו רוצים להוסיף מספר זה! (זה לא 'ייחודי'). כרגע uniqueNumbers עדיין שווה ל -1, אך uniqueNumbers יכול להיות רשימה שלמה. כדי לבדוק את כל הרשימה הזו, אנחנו צריכים עוד לולאה For Next. שוב: אם המספר שברצוננו להוסיף שווה לאחד המספרים ברשימה זו, toAdd יוגדר כ- False והמספר לא יתווסף. הוסף את שורות הקוד הבאות:
עבור j = 1 ל- UniqueNumbers
אם תאים (i, 1) .Value = תאים (j, 2) .Value לאחר מכן
toAdd = False
סוף אם
י הבא
6. רק אם toAdd עדיין נכון ולא מוגדר כ- False, Excel VBA צריך להוסיף את המספר לעמודה B. במקביל, אנו מגדילים את מספר ייחודי ב- 1 מכיוון שיש לנו מספר ייחודי אחד נוסף כעת. שורות הקוד הבאות מבצעות את העבודה:
אם toAdd = True אז
תאים (ייחודי מספרים + 1, 2). ערך = תאים (i, 1). ערך
uniqueNumbers = uniqueNumbers + 1
סוף אם
7. לבסוף, הגדרנו ל- Add to True בהנחה שיש להוסיף את המספר הבא (מספר שלישי). שוב זה לא בהכרח נכון.
toAdd = True
8. אל תשכח לסגור את הלולאה.
הבא i
9. הצב את המאקרו שלך בלחצן פקודה ובדוק אותו.
תוֹצָאָה:
