Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako samodejno združiti prazne celice nad / levo v Excelu?

V tem članku bom govoril o združitvi praznih celic nad ali samodejno, kot je prikazano spodaj. Pravzaprav ni vgrajene pripomočke, ki bi lahko obvladal to nalogo, lahko pa tudi makro kodi.

Spoji se zgoraj
doc spoji prazno zgoraj levo 1 doc arrow desno doc spoji prazno zgoraj levo 2

Spoji prazne levo
doc spoji prazno zgoraj levo 3 doc arrow desno doc spoji prazno zgoraj levo 4

Spojite prazne celice zgoraj na podlagi stolpca

Sprejmite prazne celice zgoraj (delajte samo za en stolpec)

Spojite prazne celice levo


Spojite prazne celice zgoraj na podlagi stolpca


Predpostavimo, da je v treh stolpcih na voljo vrsto podatkov, zdaj pa želite združiti zgornje podatke na podlagi stolpca C.
doc spoji prazno zgoraj levo 1

1. Pritisnite Alt + F11 keys omogočiti Microsoft Visual Basic za aplikacije okno in kliknite Vstavi > Moduli. Prikaz slike:
doc spoji prazno zgoraj levo 5

2. Nato prilepite spodnjo kodo v prazno skripto. Prikaz slike:

VBA: združite prazno zgoraj na podlagi naslednjega stolpca

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

doc spoji prazno zgoraj levo 6

3. Pritisnite F5 da zaženete kodo, nato pa se odpre pogovorno okno, ki vas opomni, da izberete obseg, ki ga želite delati. Prikaz slike:
doc spoji prazno zgoraj levo 7

4. klik OK, potem so prazne celice združene zgoraj. Prikaz slike:
doc spoji prazno zgoraj levo 2


Sprejmite prazne celice zgoraj (delajte samo za en stolpec)

Tukaj je makro koda, ki lahko združite prazne celice zgoraj v določenem stolpcu.

1. Pritisnite Alt + F11 tipke, ki omogočajo Microsoft Visual Basic za aplikacije okno in kliknite Vstavi > Moduli. Prikaz slike:
doc spoji prazno zgoraj levo 9

2. Prilepite koda pod kodo. Prikaz slike:

VBA: združite prazne celice zgoraj

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

doc spoji prazno zgoraj levo 10

3. Pritisnite F5 ključ za zagon kode in prikaže se pogovorno okno za izbiro obsega stolpcev. Prikaz slike:
doc spoji prazno zgoraj levo 11

4. Kliknite V redu. In prazne celice v izboru so bile združene zgoraj.

doc spoji prazno zgoraj levo 12 doc arrow desno doc spoji prazno zgoraj levo 13

Spojite prazne celice levo

Če želite združiti prazne celice, lahko naslednja koda naredi uslugo.

1. Pritisnite Alt + F11 tipke, ki omogočajo Microsoft Visual Basic za okno Aplikacije in kliknite Vstavi > Moduli. Prikaz slike:
doc spoji prazno zgoraj levo 14

2. Nato prilepite spodnjo kodo v prazno skripto. Prikaz slike:

VBA: združite prazne leve

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

doc spoji prazno zgoraj levo 15

3. Pritisnite F5 ključ za zagon kode, in pogovorno okno izbere, da izberete obseg. Prikaz slike:
doc spoji prazno zgoraj levo 16

4. klik OK. Blokirane celice so bile združene levo.

Spoji prazne levo
doc spoji prazno zgoraj levo 3 doc arrow desno doc spoji prazno zgoraj levo 4

Spojite iste celice ali unovčite celico

doc združiti unmerge

Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.