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.

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 resi / celloedd os nad ydyn nhw'n feiddgar gyda Kutools ar gyfer Excel

---

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.

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

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:

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:

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:

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

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:

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

---

Tynnwch resi / celloedd os nad ydyn nhw'n 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.

Lawrlwythiad Am Ddim am ddim llawn-ymddangos mewn 30 diwrnod

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

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

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:

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

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:

  Tynnwch Gelloedd / Rhesi Os nad ydynt yn Bolded

---

Erthyglau Perthynas:

• Sut i drosi hypergysylltiadau i destun plaen yn Excel?
• Sut i gyfrif a yw celloedd yn dechrau gyda neu'n gorffen gyda thestun penodol yn Excel?
• Sut i gyfrif a thynnu dyblygu o restr yn Excel?

---