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

Egyesítse ugyanazokat a cellákat vagy vegye fel azokat

Lépjen a Letöltés elemre
Ingyenes próba 60 nap Vásárlás
PayPal / MyCommerce

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.

Tovább ... Ingyenes letöltés... Vásárlás...

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!