Skip i'r prif gynnwys

Sut i gael gwared ar gelloedd neu resi os nad yn feiddgar yn Excel?

Gan dybio bod gennych chi ystod o ddata gyda chelloedd beiddgar ac nid celloedd beiddgar fel y dangosir isod y llun, nawr yr hyn sydd ei angen arnoch chi yw cael gwared ar y celloedd neu'r rhesi os nad ydyn nhw'n feiddgar. Yn lle tynnu celloedd heb eu beiddio fesul un â llaw, mae'r tiwtorial hwn yn cyflwyno'r triciau i chi eu datrys yn Excel yn gyflym.

doc tynnu os nad yn feiddgar 1

Tynnwch y rhesi os nad ydyn nhw wedi eu beiddio â VBA

Tynnwch y celloedd os nad ydyn nhw wedi eu beiddio â Darganfod ac Amnewid a Dewis Heliwr Ystod

Tynnwch rhesi / celloedd os nad ydynt yn feiddgar gyda Kutools ar gyfer Excel syniad da3


v Tynnwch y rhesi os nad ydyn nhw wedi eu beiddio â VBA

I gael gwared ar resi os na chânt eu beiddio, gallwch ddefnyddio cod VBA i'w drin.

1. Gwasgwch F11 + Alt allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, yna ei gludo o dan god VBA i'r newydd Modiwlau ffenestr.

VBA: Tynnwch y rhesi os nad ydyn nhw mewn print trwm.

Sub DeleteNonBolded()
'UpdatebyKutoolsforExcel20151116
    Dim xRg As Range
    Dim xDelRg As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    Dim I As Long
    Dim xBold As Variant
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "This VBA cannot support multiple range", , "Kutools for Excel"
        Exit Sub
    End If
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        xBold = xRg.Rows(I).Cells.Font.Bold
        If TypeName(xBold) = "Boolean" Then
            If xBold = False Then
                If xDelRg Is Nothing Then
                    Set xDelRg = xRg.Rows(I).EntireRow
                Else
                    Set xDelRg = Union(xRg.Rows(I).EntireRow, xDelRg)
                End If
            End If
        End If
    Next
    xDelRg.Delete
    Application.ScreenUpdating = xUpdate
End Sub

3. Gwasgwch F5 allwedd i redeg y cod VBA. Yn y popping up Kutools ar gyfer Excel blwch deialog, nodwch yr ystod y byddwch yn tynnu rhesi heb gelloedd beiddgar, a chliciwch ar y OK botwm.

doc tynnu os nad yn feiddgar 2

Ac yna gallwch weld bod y rhesi nad ydyn nhw'n cynnwys celloedd beiddgar wedi'u tynnu

doc tynnu os nad yn feiddgar 1saeth doc ddedoc tynnu os nad yn feiddgar 3

Sylwch: dim ond pan nad yw'r holl gelloedd yn yr un rhes yn cael eu beiddio y gellir tynnu'r rhesi.


Tynnwch y celloedd os nad ydyn nhw wedi eu beiddio â Darganfod ac Amnewid a Dewis Heliwr Ystod

Os ydych chi am dynnu cynnwys y gell o gelloedd nad ydynt yn feiddgar yn unig, gallwch ddefnyddio swyddogaeth Dod o Hyd ac Amnewid i ddewis y celloedd beiddgar yn gyntaf, yna defnyddiwch Kutools ar gyfer Excel'S Dewiswch Range Helper i wrthdroi dewis y celloedd nad ydynt yn feiddgar, yna tynnwch y cynnwys.

1. Dewiswch yr ystod ddata lle rydych chi am gael gwared â chelloedd nad ydyn nhw'n feiddgar, a gwasgwch Ctrl + F i alluogi Dod o hyd ac yn ei le deialog, a chlicio ar Dewisiadau botwm. Gweler y screenshot:

doc tynnu os nad yn feiddgar 4

2. Cliciwch fformat i fynd i'r Dewch o Hyd i Fformat deialog, ac iau Ffont tab, dewiswch Pendant oddi wrth y Arddull ffont rhestr. Gweler y screenshot:

doc tynnu os nad yn feiddgar 5

3. Cliciwch OK > Dewch o Hyd i Bawb, ac mae'r holl gelloedd beiddgar yn rhestru yn y Dod o hyd ac yn ei le deialog, a gwasgwch Ctrl + A. i ddewis pob un ohonynt, yna cau'r Dod o hyd ac yn ei le deialog. Gweler y screenshot:

doc tynnu os nad yn feiddgar 6

4. Yna cadwch y celloedd hyn wedi'u dewis a chlicio Kutools > dewiswch > Dewiswch Range Helper. Gweler y screenshot:

doc tynnu os nad yn feiddgar 7

5. Yn y dialog popping, gwiriwch Dewis Gwrthdro opsiwn yn gyntaf, ac yna dewiswch yr ystod ddata wreiddiol. Nawr gallwch weld bod y dewis yn cael ei wrthdroi. Gweler y screenshot:

doc tynnu os nad yn feiddgar 8

6. Cliciwch Cau. Nawr gwasgwch Dileu allwedd i dynnu cynnwys y gell o'r celloedd nad ydynt yn feiddgar.

doc tynnu os nad yn feiddgar 9


Tynnwch rhesi / celloedd os nad ydynt yn feiddgar gyda Kutools ar gyfer Excel

Nid yw dulliau uchod yn ddigon hawdd, yn yr achos hwn, gallwch eu defnyddio Kutools ar gyfer Excel'S Dewiswch Gelloedd gyda Fformat cyfleustodau i adnabod celloedd nad ydynt yn feiddgar yn gyflym, ac yna eu tynnu.

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel isod:

1. Dewiswch yr ystod ddata sydd ei hangen arnoch, a chlicio Kutools > dewiswch > Dewiswch Gelloedd gyda Fformat. Gweler y screenshot:

doc tynnu os nad yn feiddgar 15

2. Yn y dialog popping, cliciwch Dewiswch Fformat O Gell botwm i ddewis un gell heb ei beiddio o'r ystod ddata, yna gwirio Pendant dim ond o'r rhestr isod yn adran Ffont. Gweler y screenshot:

doc tynnu os nad yn feiddgar 11

3. Cliciwch Ok, ac mae deialog yn ymddangos i'ch atgoffa nifer y celloedd a ddewiswyd, cliciwch Ydy i'w gau.

doc tynnu os nad yn feiddgar 12

Nawr mae'r holl gelloedd nad ydyn nhw'n feiddgar yn cael eu dewis, ac yn pwyso Dileu allwedd i gael gwared ar gynnwys y gell. Neu os ydych chi am gael gwared ar y rhesi heb eu beiddio, cliciwch ar y dde ar unrhyw un o'r celloedd a ddewiswyd a dewiswch Dileu > Rhes gyfan. Gweler sgrinluniau:

doc tynnu os nad yn feiddgar 13saeth doc ddedoc tynnu os nad yn feiddgar 14

Erthyglau Perthynas:

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
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...

Disgrifiad


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