לשלב שורות כפולות ולחשב את הערכים ב-Excel (טריקים פשוטים)

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

לשלב שורות כפולות ולחשב את הסכומים

• עם פונקציית Consolidate
• עם תכונה חזקה – Kutools
• עם טבלת צירים
• עם קוד VBA

לשלב שורות כפולות ולחשב את הסכומים עם פונקציית Consolidate

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

שלב 1: בחירת תא יעד

בחרו היכן ברצונכם שהנתונים המאוחדים יופיעו.

שלב 2: גישה לפונקציית Consolidate והגדרת האיחוד

1. לחצו על "נתונים" > "Consolidate", ראו את הסcreenshot:
   
2. בתיבת הדו-שיח "Consolidate":
   • (1.) בחרו "סכום" מתוך הרשימה הנפתחת של "פונקציה";
   • (2.) לחצו כדי לבחור את הטווח שברצונכם לאחד בתיבה "הפניה";
   • (3.) סמנו "שורה העליונה" ו"עמודה השמאלית" מתוך האפשרות "השתמש בתגים ב";
   • (4.) לבסוף, לחצו על כפתור "אישור".
   • 

תוצאה:

Excel ישלב כל כפילויות שנמצאות בעמודה הראשונה ויסכם את הערכים המתאימים שלהם בעמודות הסמוכות כפי שמוצג בסcreenshot הבא:

השתמשו ב-Kutools כדי לשלב שורות כפולות ולחשב את הסכומים

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

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

בתיבת הדו-שיח "מיזוג מתקדם של שורות", אנא הגדרו את הפעולות הבאות:

1. לחצו על שם העמודה שברצונכם לשלב כפילויות על בסיסה, כאן, אני אלחץ על מוצר, ולאחר מכן לבחור "מפתח ראשי" מתוך הרשימה הנפתחת בעמודה "חישוב";
2. לאחר מכן, בחרו את שם העמודה שברצונכם לסכום את הערכים שלה, ולאחר מכן בחרו "סכום" מתוך הרשימה הנפתחת בעמודה "חישוב";
3. לגבי העמודות האחרות, תוכלו לבחור את הפעולה שאתם זקוקים לה, כגון שילוב הערכים עם מפריד מסוים או ביצוע חישוב מסוים; (אפשר לדלג על שלב זה אם יש לכם רק שתי עמודות)
4. לבסוף, תוכלו להציג תצוגה מקדימה של התוצאה הממוזגת ולאחר מכן לחצו על כפתור "אישור".
5. 

תוצאה:

עכשיו, הערכים הכפולים בעמודת המפתח ממוזגים, ושאר הערכים המתאימים מסוכמים כפי שמוצג בסcreenshot הבא:

השתמשו בטבלת צירים כדי לשלב שורות כפולות ולחשב את הסכומים

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

שלב 1: יצירת טבלת צירים

1. בחרו את טווח הנתונים. לאחר מכן, עברו ללשונית "הוסף", ולחצו על "טבלת צירים", ראו את הסcreenshot:
   
2. בתיבת הדו-שיח שהופיעה, בחרו היכן ברצונכם להציב את דוח טבלת הצירים, תוכלו להציב אותו בגיליון חדש או קיים לפי הצורך. לאחר מכן, לחצו על "אישור". ראו את הסcreenshot:
   
3. עכשיו, טבלת צירים הוכנסה לתא היעד הנבחר. ראו את הסcreenshot:
   

שלב 2: הגדרת טבלת הצירים: 

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

תוצאה:

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

השתמשו בקוד VBA כדי לשלב שורות כפולות ולחשב את הסכומים

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

שלב 1: פתחו את עורך מודול גליון ה-VBA והעתקו את הקוד

1. לחצו יחדיו על המקשים "ALT + F11" ב-Excel כדי לפתוח את חלון "Microsoft Visual Basic for Applications".
2. לחצו על "הוסף" > "מודול", והדביקו את הקוד הבא בחלון "מודול".
   קוד VBA: לשלב שורות כפולות ולחשב את הסכומים

   Sub CombineDuplicateRowsAndSumForMultipleColumns()
   'Update by Extendoffice
       Dim SourceRange As Range, OutputRange As Range
       Dim Dict As Object
       Dim DataArray As Variant
       Dim i As Long, j As Long
       Dim Key As Variant
       Dim ColCount As Long
       Dim SumArray() As Variant
       Dim xArr As Variant
       Set SourceRange = Application.InputBox("Select the original range:", "Kutools for Excel", Type:=8)
       If SourceRange Is Nothing Then Exit Sub
       ColCount = SourceRange.Columns.Count
       Set OutputRange = Application.InputBox("Select a cell for output:", "Kutools for Excel", Type:=8)
       If OutputRange Is Nothing Then Exit Sub
       Set Dict = CreateObject("Scripting.Dictionary")
       DataArray = SourceRange.Value
       For i = 1 To UBound(DataArray, 1)
           Key = DataArray(i, 1)
           If Not Dict.Exists(Key) Then
               ReDim SumArray(1 To ColCount - 1)
               For j = 2 To ColCount
                   SumArray(j - 1) = DataArray(i, j)
               Next j
               Dict.Add Key, SumArray
           Else
               xArr = Dict(Key)
               For j = 2 To ColCount
                   xArr(j - 1) = xArr(j - 1) + DataArray(i, j)
               Next j
               Dict(Key) = xArr
           End If
       Next i
       OutputRange.Resize(Dict.Count, ColCount).ClearContents
       i = 1
       For Each Key In Dict.Keys
           OutputRange.Cells(i, 1).Value = Key
           For j = 1 To ColCount - 1
               OutputRange.Cells(i, j + 1).Value = Dict(Key)(j)
           Next j
           i = i + 1
       Next Key
       Set Dict = Nothing
       Set SourceRange = Nothing
       Set OutputRange = Nothing
   End Sub
   

שלב 2: ביצוע הקוד

1. לאחר הדבקת הקוד הזה, אנא לחצו על מקש "F5" כדי להריץ את הקוד. בתיבת ההודעה, בחרו את טווח הנתונים שברצונכם לשלב ולסכם. ולאחר מכן, לחצו על "אישור".
   
2. ובתיבת ההודעה הבאה, בחרו תא שבו תרצו להציג את התוצאה, ולחצו על "אישור".
   

תוצאה:

עכשיו, השורות הכפולות ממוזגות, והערכים המתאימים להם סוכמו. ראו את הסcreenshot:

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

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