כיצד לשרשר ערכים ייחודיים ב-Excel?

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

שרשר רק ערכים ייחודיים מתוך עמודה

• על ידי שימוש בפונקציות TEXTJOIN ו-UNIQUE
• על ידי שימוש ב-Kutools AI Aide
• על ידי שימוש בפונקציה מוגדרת על ידי המשתמש

רשום ערכים ייחודיים ושרשר ערכים מתאימים

• על ידי שימוש בפונקציות TEXTJOIN ו-UNIQUE
• על ידי שימוש ב-Kutools for Excel
• על ידי שימוש בקוד VBA

שרשר רק ערכים ייחודיים מתוך עמודה

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

שיטה 1: שימוש בפונקציות TEXTJOIN ו-UNIQUE

אם יש לך Excel 365 או Excel 2021, הפונקציות החדשות TEXTJOIN ו-UNIQUE מספקות דרך פשוטה ויעילה לשרשר ערכים ייחודיים מתוך עמודה.

השתמש בנוסחה הבאה בתא שבו תרצה את תוצאת השרשור:

=TEXTJOIN(", ", TRUE, UNIQUE(A2:A18))

שיטה 2: שימוש ב-Kutools AI Aide

לקבלת פתרון מהיר וממוחשב לחלוטין, Kutools עבור Excel מספק כלי חדשני—"Kutools AI Aide". פשוט תאר את המשימה שלך, וה-AI ייצר באופן מיידי את התוצאות הרצויות ללא כל הגדרה ידנית. זה מסיר את הצורך בנוסחאות מורכבות או בהגדרות שמצריכות זמן רב, ומספק תוצאות מדויקות תוך שניות.

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

1. בחר את התאים שברצונך לשלב רק ערכים ייחודיים;
2. הקלד את הדרישה בתיבת השיחה: למשל:
   שרשר ערכים ייחודיים עם פסיק מתוך הטווח שנבחר והכנס את תוצאת השילוב לתא C2
3. ואז, לחץ על מקש Enter או לחץ על כפתור "שלח". Kutools AI ינתח את השאלה, ולאחר שיסיים, לחץ על כפתור "בצע" כדי לקבל את התוצאה.
   

שיטה 3: שימוש בפונקציה מוגדרת על ידי המשתמש

למשתמשים מתקדמים שצריכים גמישות רבה יותר או רוצים לאוטומט את התהליך, ניתן ליצור פונקציית VBA מותאמת אישית (UDF) כדי לשרשר ערכים ייחודיים. שיטה זו מתאימה למשתמשים שמרגישים בנוח עם תכנות או כאלה שצריכים פתרון לשימוש חוזר.

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

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

קוד VBA: שרשור ערכים ייחודיים לתוך תא יחיד:

Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice
    Dim xCell As Range
    Dim xDic As Object
    Set xDic = CreateObject("Scripting.Dictionary")
    For Each xCell In xRg
        xDic(xCell.Value) = Empty
    Next
    ConcatUniq = Join$(xDic.Keys, xChar)
    Set xDic = Nothing
End Function

3. ואז חזור לגליון העבודה שלך, והזן את הנוסחה הזו: =ConcatUniq (A2:A18,",") לתוך תא ריק שבו תרצה להציג את תוצאת השרשור, והקש על מקש Enter כדי לקבל את תוצאת השרשור הייחודי, ראה צילום מסך:

רשום ערכים ייחודיים ושרשר ערכים מתאימים

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

שיטה 1: שימוש בפונקציות TEXTJOIN ו-UNIQUE

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

1. השתמש בפונקציית UNIQUE כדי לרשום את כל הערכים הייחודיים מעמודה A:

=UNIQUE(A2:A17)

2. החל את פונקציות TEXTJOIN ו-FILTER כדי לשרשר את הערכים המתאימים עבור הערך הייחודי, גרור את הנוסחה כלפי מטה כדי למלא תאים אחרים, ראה צילום מסך:

=TEXTJOIN(", ", TRUE, FILTER($B$2:$B$17, $A$2:$A$17 =D2))

שיטה 2: שימוש ב-Kutools עבור Excel

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

1. העתק והדבק את הנתונים המקוריים לתא אחר כדי לגבות את הנתונים. בחר את טווח הנתונים, ואז לחץ "Kutools" > "מיזוג ופיצול" > "מיזוג מתקדם של שורות", ראה צילום מסך:

2. בחלון הדו-שיח "מיזוג מתקדם של שורות", הגדר את ההגדרות:

• לחץ על שם העמודה שאתה רוצה לשלב כפילויות על בסיסו, ואז בחר "מפתח ראשי" מתוך הרשימה הנפתחת בעמודה "פעולה";
• לאחר מכן, בחר את שם העמודה שברצונך לשלב את הערכים, ואז בחר תו מפריד כדי להפריד בין הערכים מתוך הרשימה הנפתחת בעמודה "פעולה";
• לבסוף, לחץ על כפתור אישור.
  

תוצאה:

Kutools מפעיל את תהליך הוצאת הערכים הייחודיים ושרשור הערכים המתאימים להם עם תו המפריד שצוין.

שיטה 3: שימוש בקוד VBA

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

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

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

קוד VBA: רשום ערכים ייחודיים ושרשר נתונים מתאימים

Sub test()
    'updateby Extendoffice
    Dim xRg As Range
    Dim xArr As Variant
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    Dim xDic As Object
    Dim xOutputRg As Range
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "Does not support multiple selections", , "Kutools for Excel"
        Exit Sub
    End If
    If xRg.Columns.Count <> 2 Then
        MsgBox "There must be only two columns in the selected range", , "Kutools for Excel"
        Exit Sub
    End If
    Set xOutputRg = Application.InputBox("Please select the output cell", "Kutools for Excel", Type:=8)
    If xOutputRg Is Nothing Then Exit Sub
    xArr = xRg
    Set xDic = CreateObject("Scripting.Dictionary")
    xDic.CompareMode = 1
    For I = 1 To UBound(xArr)
        If Not xDic.Exists(xArr(I, 1)) Then
            xDic.Item(xArr(I, 1)) = xDic.Count + 1
            xArr(xDic.Count, 1) = xArr(I, 1)
            xArr(xDic.Count, 2) = xArr(I, 2)
        Else
            xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
        End If
    Next
    xOutputRg.Resize(xDic.Count, 2).Value = xArr
End Sub

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

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

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

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