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 y rhesi/celloedd os nad ydynt yn feiddgar Kutools for 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 for 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 for 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 Cau. Nawr gwasgwch Dileu allwedd i dynnu cynnwys y gell o'r celloedd nad ydynt yn feiddgar.
Tynnwch y rhesi/celloedd os nad ydynt yn feiddgar Kutools for Excel
Nid yw dulliau uchod yn ddigon hawdd, yn yr achos hwn, gallwch eu defnyddio Kutools for Excel'S Dewiswch Gelloedd gyda Fformat cyfleustodau i adnabod celloedd nad ydynt yn feiddgar yn gyflym, ac yna eu tynnu.
Kutools for Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. |
Ar ôl gosod am ddim Kutools for 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 Do 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?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...
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!
