Hogyan lehet automatikusan egyesíteni az üres cellákat a bal / bal oldalon az Excelben?

Ebben a cikkben arról fogok beszélni, hogy automatikusan üres vagy üres cellákat egyesítünk, ahogy az alábbi képernyőkép látható. Valójában nincs beépített segédprogram, amely képes kezelni ezt a feladatot, de a makrókódok képesek rá.

Üresítsd az üres helyeket fent

Az üres helyek egyesítése maradt

Egyesítse a fenti üres cellákat egy oszlop alapján

Üres cellák egyesítése fent (csak egyetlen oszlop esetén működik)

Üres cellák egyesítése balra

Egyesítse a fenti üres cellákat egy oszlop alapján

Tételezzük fel, hogy három oszlopban van egy adattartomány, és most össze szeretné egyesíteni a fenti adatokat a C oszlop alapján.

1. nyomja meg Alt + F11 keys a Microsoft Visual Basic for Applications ablakot, és kattintson rá betétlap > Modulok. Lásd a képernyőképet:

2. Ezután illessze be a kódot az üres parancsfájlba. Lásd a képernyőképet:

VBA: A fenti oszlop egyesítése a fenti oszlop alapján

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. nyomja meg F5 gombot a kód futtatásához, majd megjelenik egy párbeszédpanel, amely emlékeztet a működési tartomány kiválasztására. Lásd a képernyőképet:

4. kettyenés OK, akkor az üres cellákat összevontuk fent. Lásd a képernyőképet:

Üres cellák egyesítése fent (csak egyetlen oszlop esetén működik)

Itt található egy makrokód, amely egyesítheti a fenti üres oszlopokat a megadott oszlopban.

1. nyomja meg Alt + F11 gombok a Microsoft Visual Basic for Applications ablakot, és kattintson rá betétlap > Modulok. Lásd a képernyőképet:

2. Illessze be a kód alatt a szkriptet. Lásd a képernyőképet:

VBA: Egyesítse a fenti üres cellákat

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. nyomja meg F5 gombot a kód futtatásához, és megjelenik egy párbeszédpanel, amelyben kiválaszthatja az oszloptartományt. Lásd a képernyőképet:

4. Kattintson az OK gombra. És a kiválasztás üres celláit fent összevontuk.

Üres cellák egyesítése balra

Ha üres cellákat szeretne egyesíteni balra, a következő kód tehet Önnek.

1. nyomja meg Alt + F11 gombok a Microsoft Visual Basic az Alkalmazások ablakhoz, és kattintson a gombra betétlap > Modulok. Lásd a képernyőképet:

2. Ezután illessze be a kódot az üres parancsfájlba. Lásd a képernyőképet:

VBA: Az üres helyek egyesítése maradt

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. nyomja meg F5 gombot a kód futtatásához, és megjelenik egy párbeszédpanel, ahol kiválaszthatja a tartományt. Lásd a képernyőképet:

4. kettyenés OK. Az üres cellákat egyesítettük balra.

Az üres helyek egyesítése maradt