Note: The other languages of the website are Google-translated. Back to English

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    
üres egyesítés bal bal felett 1 doc nyíl jobbra üres egyesítés bal bal felett 2

 Az üres helyek egyesítése maradt    
üres egyesítés bal bal felett 3 doc nyíl jobbra üres egyesítés bal bal felett 4

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.
üres egyesítés bal bal felett 1

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:
üres egyesítés bal bal felett 5

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

üres egyesítés bal bal felett 6

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:
üres egyesítés bal bal felett 7

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


Ü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:
üres egyesítés bal bal felett 9

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

üres egyesítés bal bal felett 10

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:
üres egyesítés bal bal felett 11

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

üres egyesítés bal bal felett 12 doc nyíl jobbra üres egyesítés bal bal felett 13

Ü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:
üres egyesítés bal bal felett 14

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

üres egyesítés bal bal felett 15

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:
üres egyesítés bal bal felett 16

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

 Az üres helyek egyesítése maradt    
üres egyesítés bal bal felett 3 doc nyíl jobbra üres egyesítés bal bal felett 4

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

doc egyesítés unmerge

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.
kte lap 201905

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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (3)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
nem működik :) Excel 365
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm a megosztásokat, nagyon hasznos számomra.
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm szépen!
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi