כיצד למזג אוטומטית תאים ריקים מעל/שמאלה ב-Excel?

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

מיזוג תאים ריקים מלמעלה

מיזוג תאים ריקים שמאלה

מיזוג תאים ריקים מלמעלה בהתבסס על עמודה

מיזוג תאים ריקים מלמעלה (עובד רק בעבור עמודה יחידה)

מיזוג תאים ריקים שמאלה

מיזוג תאים ריקים מלמעלה בהתבסס על עמודה

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

1. לחץ Alt + F11 kכדי לאפשר את Microsoft Visual Basic for Applications חלון, ולחץ על הוסף > מודול. ראה צילום מסך:

2. לאחר מכן הדבק את הקוד הבא לתוך הסקריפט הריק. ראה צילום מסך:

VBA: מיזוג תאים ריקים מלמעלה בהתבסס על העמודה הבאה

Sub MergeCells()
'UpdatebyExtendoffice2017025
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Value = "" Then
            Range(xCell, xCell.Offset(-1, 0)).Merge
        End If
    Next
End Sub

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

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

פתחו את הקסם של Excel עם Kutools AI

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

שפרו את יכולות ה-Excel שלכם עם כלים המופעלים על ידי AI. הורידו עכשיו וחוו יעילות כ никогда קודם לכן!

מיזוג תאים ריקים מלמעלה (עובד רק בעבור עמודה יחידה)

להלן קוד מאקרו שיכול למיזוג את התאים הריקים מלמעלה בעמודה שצוינה.

1. לחץ על Alt + F11 כדי לאפשר את Microsoft Visual Basic for Applications חלון, ולחץ על הוסף > מודול. ראה צילום מסך:

2. הדבק את הקוד הבא לתוך הסקריפט. ראה צילום מסך:

VBA: מיזוג תאים ריקים מלמעלה

Sub mergeblankswithabove()
'UpdatebyExtendoffice20171025
    Dim I As Long
    Dim xRow As Long
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range (single column):", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Then
        MsgBox "Only work for single column", , "KuTools For Excel"
        Exit Sub
    End If
    xRow = xRg.Rows.Count
    Set xRg = xRg(xRow)
    For I = xRow To 1 Step -1
        Set xCell = xRg.Offset(I - xRow, 0)
        Debug.Print xCell.Address
        If xCell.Value = "" Then Range(xCell, xCell.Offset(-1, 0)).Merge
    Next
End Sub

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

4. לחץ אישור. והתאים הריקים שנבחרו ימוזגו למעלה.

מיזוג תאים ריקים שמאלה

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

1. לחץ על Alt + F11 כדי לאפשר את Microsoft Visual Basic עבור חלון יישומים, ולחץ על הוסף > מודול. ראה צילום מסך:

2. לאחר מכן הדבק את הקוד הבא לתוך הסקריפט הריק. ראה צילום מסך:

VBA: מיזוג תאים ריקים שמאלה

Sub mergeblankswithleft()
'UpdatebyExtendoffice20171025
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Value = "" Then Range(xCell, xCell.Offset(0, -1)).Merge
    Next
End Sub

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

4. לחץ אישור. התאים הריקים ימוזגו שמאלה.

מיזוג תאים ריקים שמאלה