Sut i uno celloedd gwag uwchben / chwith yn Excel yn awtomatig?

Yn yr erthygl hon, rydw i'n mynd i siarad am uno celloedd gwag uwchben neu eu gadael yn awtomatig fel islaw'r screenshot a ddangosir. Mewn gwirionedd, nid oes unrhyw gyfleustodau adeiledig a all drin y dasg hon, ond gall y codau macro.

Uno bylchau uchod

Uno bylchau ar ôl

Uno celloedd gwag uchod yn seiliedig ar golofn

Uno celloedd gwag uchod (dim ond gweithio ar gyfer colofn sengl)

Uno celloedd gwag ar ôl

Uno celloedd gwag uchod yn seiliedig ar golofn

Gan dybio bod ystod o ddata mewn tair colofn, a nawr rydych chi am uno'r data uchod yn seiliedig ar golofn C.

1. Gwasgwch Alt + F11 keys i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, a chlicio Mewnosod > Modiwlau. Gweler y screenshot:

2. Yna pastiwch y cod isod i'r sgript wag. Gweler y screenshot:

VBA: Uno'n wag uchod yn seiliedig ar y golofn nesaf

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. Gwasgwch F5 allwedd i redeg y cod, ac yna mae deialog yn galw allan i'ch atgoffa i ddewis ystod i weithio. Gweler y screenshot:

4. Cliciwch OK, yna mae'r celloedd gwag wedi'u huno uchod. Gweler y screenshot:

Uno celloedd gwag uchod (dim ond gweithio ar gyfer colofn sengl)

Dyma god macro a all uno'r celloedd gwag uchod yn y golofn benodol.

1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, a chlicio Mewnosod > Modiwlau. Gweler y screenshot:

2. Gludwch y cod isod i'r sgript. Gweler y screenshot:

VBA: Uno celloedd gwag uchod

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. Gwasgwch F5 allwedd i redeg y cod, ac mae deialog yn galw allan i chi ddewis ystod colofn. Gweler y screenshot:

4. Cliciwch OK. Ac mae'r celloedd gwag yn y detholiad wedi'u huno uchod.

Uno celloedd gwag ar ôl

Os ydych chi am uno celloedd gwag ar ôl, gall y cod canlynol ffafrio chi.

1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer ffenestr Ceisiadau, a chlicio Mewnosod > Modiwlau. Gweler y screenshot:

2. Yna pastiwch y cod isod i'r sgript wag. Gweler y screenshot:

VBA: Uno bylchau ar ôl

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. Gwasgwch F5 allwedd i redeg y cod, ac mae deialog yn galw allan i chi ddewis ystod. Gweler y screenshot:

4. Cliciwch OK. Mae'r celloedd gwag wedi'u huno i'r chwith.

Uno bylchau ar ôl

Offer Cynhyrchiant Swyddfa Gorau

	Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
	Super-edrych: VLookup Meini Prawf Lluosog  |   VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
	Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
	Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
	Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr   |  Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd   |  Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
	15 Set Offer Gorau:  12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Read More ... Lawrlwythiad Am Ddim...

---

Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

• Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
• Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
• Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!

Read More ... Lawrlwythiad Am Ddim...