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 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 | ||
|
|
|
Uno'r un celloedd neu gell ddigyfnewid
|
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer 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...
Mae 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!
