כיצד לשלב מספר שורות לאחת על בסיס כפילויות ב-Excel?

יתכן שיש לך את נתוני הסcreenshot הבאים, בעמודה A של שם המוצר, ישנם כמה פריטים כפולים, ועכשיו אתה צריך להסיר את הרשומות הכפולות בעמודה A אך לשלב את הערכים המתאימים בעמודה B, ראה תצלומי מסך:

האם יש לך דרכים יעילות לפתור את המשימה הזו?

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

שילוב מספר שורות כפולות לאחת Kutools for Excel

שילוב מספר שורות כפולות וחישוב סכום/ממוצע הערכים עם Kutools for Excel

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

הקוד VBA הבא יכול לעזור לך לשלב שורות כפולות על בסיס ערך בעמודה A, והקוד הבא חל רק על שתי עמודות. אז, אם יש לך נתונים בשתי עמודות, הקוד הזה יעזור לך.

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

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

קוד VBA: שילוב מספר שורות לאחת

Sub CombineRows()
'Update 20131202
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
    xvalue = arr(i, 1)
    If Dic.Exists(xvalue) Then
        Dic(arr(i, 1)) = Dic(arr(i, 1)) & " " & arr(i, 2)
    Else
        Dic(arr(i, 1)) = arr(i, 2)
    End If
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub

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

4. ואז לחץ על אישור, הערכים בעמודה B יתמזגו לרשומה אחת ויפרדו ברווחים.

הערות:

1. קוד זה עלול להרוס את הנתונים המקוריים, כאשר אתה משתמש בו, עדיף לגבות את הנתונים קודם.

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

שילוב מספר שורות כפולות לאחת Kutools for Excel

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

Kutools for Excel כולל יותר מ-300 כלים שימושיים עבור Excel. ניתן לנסות ללא הגבלה למשך 30 יום בחינם. קבל אותו עכשיו.

לאחר התקנת Kutools for Excel, אנא עשה כך:

1. בחר את טווח הנתונים שברצונך לשלב כפילויות.

2. לאחר מכן לחץ על Kutools > מיזוג & פיצול > מיזוג מתקדם של שורות.

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

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

5. לאחר שסיימת את ההגדרות, לחץ על אישור, והנתונים שלך יתמזגו על בסיס עמודות המפתח ויפרדו במפרידים.

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

שילוב מספר שורות כפולות וחישוב סכום/ממוצע הערכים עם Kutools for Excel

עם כלי Advanced Combine Rows הרב-משימתי הזה, תוכל לשלב שורות כפולות ולעשות חישובים עבור הערכים גם כן.

1. בחר את טווח הנתונים שברצונך לשלב כפילויות.

2. עבור לחלונית מיזוג מתקדם של שורות;

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

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

הערות:

1. אם אתה מסמן את האפשרות My data has headers, הכותרות שלך (השורה הראשונה) של הטווח יתעלמו בעת השימוש בכלי זה.

2. השתמש בערכים מעוצבים: זה ישמר את העיצוב של הערכים לאחר מיזוג התאים הכפולים.

3. כלי זה אינו זמין לסינון נתונים.

לחץ כדי לדעת עוד על פונקציית מיזוג מתקדם של שורות זו.

מאמר קשור:

שילוב שורות כפולות וחישוב הערכים