Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

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 resi / celloedd os nad ydyn nhw'n 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 Trwm 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 Close. Nawr gwasgwch Dileu allwedd i dynnu cynnwys y gell o'r celloedd nad ydynt yn feiddgar.

doc tynnu os nad yn feiddgar 9


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. 

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:

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 Trwm 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 Ydw 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:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.