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

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 doc yn wag uwchben y chwith 1 saeth doc dde uno doc yn wag uwchben y chwith 2

 Uno bylchau ar ôl    
uno doc yn wag uwchben y chwith 3 saeth doc dde uno doc yn wag uwchben y chwith 4

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.
uno doc yn wag uwchben y chwith 1

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

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

uno doc yn wag uwchben y chwith 6

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:
uno doc yn wag uwchben y chwith 7

4. Cliciwch OK, yna mae'r celloedd gwag wedi'u huno uchod. Gweler y screenshot:
uno doc yn wag uwchben y chwith 2


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:
uno doc yn wag uwchben y chwith 9

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

uno doc yn wag uwchben y chwith 10

3. Gwasgwch F5 allwedd i redeg y cod, ac mae deialog yn galw allan i chi ddewis ystod colofn. Gweler y screenshot:
uno doc yn wag uwchben y chwith 11

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

uno doc yn wag uwchben y chwith 12 saeth doc dde uno doc yn wag uwchben y chwith 13

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:
uno doc yn wag uwchben y chwith 14

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

uno doc yn wag uwchben y chwith 15

3. Gwasgwch F5 allwedd i redeg y cod, ac mae deialog yn galw allan i chi ddewis ystod. Gweler y screenshot:
uno doc yn wag uwchben y chwith 16

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

 Uno bylchau ar ôl    
uno doc yn wag uwchben y chwith 3 saeth doc dde uno doc yn wag uwchben y chwith 4

Uno'r un celloedd neu gell ddigyfnewid

doc uno unmerge

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (3)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
nid yw'n gweithio :) Excel 365
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am rannu, mae mor ddefnyddiol i mi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir