כיצד להוציא ערכים ייחודיים מכמה עמודות ב-Excel?

נניח שיש לך מספר עמודות עם ערכים מרובים, כאשר חלק מהערכים חוזרים על עצמם באותה העמודה או בעמודות שונות. כעת, עליך לזהות את הערכים שהם ייחודיים בכל העמודות. האם ישנן שיטות מהירות להוצאת ערכים ייחודיים אלו מכמה עמודות ב-Excel? בואו נחקור כמה פתרונות יעילים.

• הוצאת ערכים ייחודיים מכמה עמודות באמצעות נוסחאות
  • נוסחת מערך (כל גרסאות ה-Excel)
  • נוסחה (Excel 365, Excel 2021 וגרסאות חדשות יותר)
• הוצאת ערכים ייחודיים מכמה עמודות עם עוזר KUTOOLS AI
• הוצאת ערכים ייחודיים מכמה עמודות עם טבלת צירים
• הוצאת ערכים ייחודיים מכמה עמודות עם קוד VBA

הוצאת ערכים ייחודיים מכמה עמודות באמצעות נוסחאות

בחלק זה נכסה שתי נוסחאות: אחת המשתמשת בנוסחת מערך המתאימה לכל גרסאות ה-Excel, והשנייה משתמשת בנוסחת מערך דינמית המיועדת במיוחד ל-Excel 365.

הוצאת ערכים ייחודיים מכמה עמודות עם נוסחת מערך עבור כל גרסאות ה-Excel

עבור משתמשים עם כל גרסה של Excel, נוסחאות מערך יכולות להיות כלי חזק להוצאת ערכים ייחודיים מכמה עמודות. הנה כיצד לעשות זאת:

1. בהנחה שהערכים שלך בטווח A2:C9, אנא הזן את הנוסחה הבאה לתוך התא E2:

=INDIRECT(TEXT(MIN(IF(($A$2:$C$9<>"")*(COUNTIF($E$1:E1,$A$2:$C$9)=0),ROW($2:$9)*100+COLUMN($A:$C),7^8)),"R0C00"),)&""

2. לאחר מכן לחץ יחדיו על מקשי Shift + Ctrl + Enter, ולאחר מכן גרור את הידית למלא כדי להוציא את הערכים הייחודיים עד שיופיעו תאים ריקים. ראה צילום מסך:

הוצאת ערכים ייחודיים מכמה עמודות עם נוסחה עבור Excel 365, Excel 2021 וגרסאות חדשות יותר

Excel 365, Excel 2021 וגרסאות חדשות יותר תומכות במערכי נתונים דינמיים, מה שהופך את הוצאת ערכים ייחודיים מכמה עמודות לקל יותר משמעותית:

אנא הזן או העתק את הנוסחה הבאה לתוך תא ריק שבו תרצה להציב את התוצאה, ולאחר מכן לחץ על מקש Enter כדי לקבל את כל הערכים הייחודיים בבת אחת. ראה צילום מסך:

=UNIQUE(TOCOL(A2:C9,1))

הוצאת ערכים ייחודיים מכמה עמודות עם עוזר KUTOOLS AI

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

לאחר התקנת Kutools for Excel, אנא לחץ על "Kutools AI" > "AI Aide" כדי לפתוח את חלונית "Kutools AI Aide":

1. הקלד את הדרישה שלך לתוך תיבת השיחה, ולחץ על כפתור "שלח" או לחץ על מקש Enter כדי לשלוח את השאלה;
   "הוצא ערכים ייחודיים מטווח A2:C9, תוך התעלמות מתאים ריקים, והצב את התוצאות החל מ-E2:"
2. לאחר ניתוח, לחץ על כפתור "בצע" כדי להריץ. עוזר KUTOOLS AI יעבד את הבקשה שלך באמצעות AI ויחזיר את התוצאות לתא שצוין ישירות ב-Excel.

הוצאת ערכים ייחודיים מכמה עמודות עם טבלת צירים

אם אתה מכיר בטבלת צירים, תוכל בקלות להוציא את הערכים הייחודיים מכמה עמודות עם השלבים הבאים:

1. בתחילה, אנא הכנס עמודה חדשה וفارغת משמאל לנתונים שלך, בדוגמה זו, אני אוסיף עמודה A לצד הנתונים המקוריים.

2. לחץ על תא אחד בנתונים שלך, והקש "Alt+D", ולאחר מכן הקש מיד על "P" כדי לפתוח את אשף "טבלת צירים ותרשים צירים", בחר "טווחי איחוד מרובים" בשלב 1 של האשף, ראה צילום מסך:

3. לאחר מכן לחץ על כפתור Next, סמן את האפשרות "צור עמודה יחידה בשבילי" בשלב 2 של האשף, ראה צילום מסך:

4. המשך ללחוץ על "Next", לחץ כדי לבחור את טווח הנתונים הכולל את העמודה החדשה משמאל של התאים, ולאחר מכן לחץ על כפתור "הוסף" כדי להוסיף את טווח הנתונים לתיבת הרשימה "כל הטווחים", ראה צילום מסך:

5. לאחר בחירת טווח הנתונים, המשך ללחוץ על "Next", בשלב 3 של האשף, בחר היכן תרצה להציב את דו"ח טבלת הצירים לפי בחירתך.

6. לבסוף, לחץ על "סיום" כדי להשלים את האשף, וטבלת צירים תיווצר בגיליון העבודה הנוכחי. לאחר מכן בטל את סימון כל השדות מהתיבה לבחירת שדות להוספה לדוח, ראה צילום מסך:

7. לאחר מכן סמן את השדה Value או גרור את ה-Value לתווית "שורות", כעת תקבל את הערכים הייחודיים מכמה העמודות כדלקמן:

הוצאת ערכים ייחודיים מכמה עמודות עם קוד VBA

עם הקוד VBA הבא, תוכל גם להוציא את הערכים הייחודיים מכמה עמודות.

1. החזיק את המקשים "ALT + F11", וזה יפתח את חלון "Microsoft Visual Basic for Applications".

2. לחץ על "הוסף" > "מודול", והדבק את הקוד הבא בחלון המודול.

VBA: הוצאת ערכים ייחודיים מכמה עמודות

Sub Uniquedata()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range, OutRng As Range
Set dt = CreateObject("Scripting.Dictionary")
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
For Each rng In InputRng
    If rng.Value <> "" Then
        dt(rng.Value) = ""
    End If
Next
OutRng.Range("A1").Resize(dt.Count) = Application.WorksheetFunction.Transpose(dt.Keys)
End Sub

3. לאחר מכן לחץ על F5 כדי להריץ את הקוד, ותיבת אזהרה תקפוץ כדי להזכיר לך לבחור את טווח הנתונים שברצונך להשתמש בו. ראה צילום מסך:

4. ולאחר מכן לחץ על אישור, תיבת אזהרה נוספת תופיע כדי לאפשר לך לבחור מקום להציב את התוצאה, ראה צילום מסך:

5. לחץ על אישור לסגור את הדו-שיח, וכל הערכים הייחודיים הוצאו בבת אחת.

עוד מאמרים קשורים: