Skip i'r prif gynnwys

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'r 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:

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 Gorau12 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 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...

tab kte 201905


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations