Sut i ddileu rhesi â gwerthoedd coll / gwag mewn rhai colofnau yn Excel?
Mewn rhai achosion, efallai y bydd angen i chi ddileu'r rhesi cyfan sydd â gwerth coll neu gell wag mewn ystod o gelloedd yn Excel. Bydd yr erthygl hon yn dangos i chi sut i ddelio â'r broblem hon.
Dileu rhesi â gwerthoedd coll / gwag mewn rhai colofnau gyda chod VBA
Dileu rhesi â gwerthoedd coll / gwag mewn rhai colofnau gyda chod VBA
Gan dybio eich bod am ddileu rhesi os oes gwerth coll yn bodoli yng ngholofn B a D fel y dangosir screenshot bellow. Gallwch chi redeg y cod VBA canlynol i'w gyflawni.
1. Gwasgwch Alt + F11 i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod VBA isod i mewn i ffenestr y Cod.
Cod VBA: Dileu rhesi gyda gwerthoedd coll / gwag mewn rhai colofnau
Sub DeleteRows()
Dim I As Integer
Dim xCount As Integer
Dim xRg As Range
Dim xTxt As String
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "You can’t select multiple ranges to operate", vbInformation, "Kutools for Excel"
Exit Sub
End If
xCount = xRg.Rows.Count
For I = xCount To 1 Step -1
If Application.WorksheetFunction.CountBlank(xRg.Rows(I)) > 0 Then
xRg.Rows(I).EntireRow.Delete
End If
Next
End Sub
3. Gwasgwch F5 allwedd i redeg y cod. Yna a Kutools ar gyfer Excel blwch deialog yn ymddangos, dewiswch yr ystod golofn yr ydych am ei gwirio a oes gwerth coll yn bodoli ai peidio, ac yna cliciwch ar y OK botwm.
Ar ôl clicio ar y OK botwm, gallwch weld bod pob rhes sydd â gwerth coll yng ngholofn B a D yn cael ei dileu ar unwaith. Gweler y screenshot:
Nodyn: Ni allwch ddewis ystodau lluosog i weithredu ar yr un pryd. Os oes gwerth coll yn bodoli mewn sawl colofn a'ch bod am ddileu pob rhes, gallwch ailadrodd y cam 3 uchod o un golofn i'r llall.
Llenwch bob cell wag yn hawdd gyda gwerth penodol yn Excel
Mae adroddiadau Llenwch Gelloedd Gwag cyfleustodau Kutools ar gyfer Excel gall eich helpu i drin celloedd gwag yn Excel yn hawdd. Er enghraifft, gallwch chi lenwi'r holl gelloedd gwag mewn ystod ddethol gyda gwerth sefydlog, llenwi celloedd gwag yn seiliedig ar y gwerth mewn celloedd uchod, i lawr, chwith neu dde, neu gallwch chi lenwi'r celloedd gwag â gwerthoedd llinellol. Gweler y screenshot:
Dadlwythwch a rhowch gynnig arni nawr! (llwybr am ddim 30 diwrnod)
Erthyglau perthnasol:
- Sut i ddileu rhesi os yw'r gell yn fwy / llai na gwerth penodol yn Excel?
- Sut i ddileu pob rhes ac eithrio'r rhes pennawd gyntaf yn Excel?
- Sut i ddileu pob rhes o dan res benodol neu gell weithredol yn Excel?
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!