Note: The other languages of the website are Google-translated. Back to English

Sut i dynnu neu ddileu pob testun neu gymeriad trawiadol o gelloedd yn Excel?

Mae'r erthygl hon yn sôn am gael gwared ar yr holl destunau neu gymeriadau trawiadol o gelloedd lluosog yn Excel.

Tynnwch yr holl destunau trawiadol o gelloedd sydd â chod VBA


Tynnwch yr holl destunau trawiadol o gelloedd sydd â chod VBA


Gall y cod VBA isod eich helpu i gael gwared ar yr holl destunau mewn celloedd sydd wedi'u marcio â streic. Gwnewch fel a ganlyn.

1. Yn y daflen waith mae'n cynnwys y testunau trawiadol y mae angen i chi eu tynnu, pwyswch y Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch HMS > Modiwlau. Yna copïwch a gludwch islaw cod VBA i mewn i ffenestr y Cod.

Cod VBA: Tynnwch yr holl destunau trawiadol o gelloedd

Sub DelStrikethroughText()
    Dim xRg As Range, xCell As Range
    Dim xStr As String
    Dim I As Long
    On Error Resume Next
    Set xRg = Application.InputBox("Please select range:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = Fase
        For Each xCell In xRg
            If IsNumeric(xCell.Value) And xCell.Font.Strikethrough Then
                xCell.Value = ""
            ElseIf Not IsNumeric(xCell.Value) Then
                For I = 1 To Len(xCell)
                    With xCell.Characters(I, 1)
                        If Not .Font.Strikethrough Then
                            xStr = xStr & .Text
                        End If
                    End With
                Next
                xCell.Value = xStr
                xStr = ""
            End If
        Next
    Application.ScreenUpdating = True
End Sub

3. Gwasgwch y F5 allwedd neu cliciwch y Run botwm i redeg y cod. Yn y popping up Kutools ar gyfer Excel blwch deialog, dewiswch yr ystod sy'n cynnwys y testunau trawiadol y byddwch chi'n eu tynnu, ac yna cliciwch ar y OK botwm. Gweler y screenshot:

Yna mae'r holl destunau sydd wedi'u marcio â streic yn cael eu tynnu o'r celloedd yn syth fel y dangosir y llun isod.


Erthyglau cysylltiedig:


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
sylwadau (10)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw hyn yn gweithio. Mae Excel yn mynd i mewn i Ddim yn Ymateb.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Ymddiheuriadau am yr anghyfleustra. A fyddech chi'n darparu eich fersiwn Office? Diolch am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr un peth yma.

Rwy'n defnyddio Office 365 ProPlus
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n gweithio ar raddfa fach. Rwy'n cymryd mai'r rheswm pam ei fod yn mynd i mewn i Ddim yn Ymateb yw oherwydd bod y Macro yn cymryd am byth pan fydd gennych lawer o ddata i fynd drwodd. Mae'r Macro hwn yn gwirio pob cymeriad unigol i gael ei daro drwodd.

Byddwn yn argymell ychwanegu cod sy'n ailfformatio'r gell pan fydd wedi'i wneud oherwydd roedd gen i sawl cell lle cafodd y cod ddileu'r testun trwodd ond roedd y testun sy'n weddill yn dal i fod mewn llinell drwodd. Rwy'n credu bod hyn oherwydd bod fformatio'r gell lawn wedi'i daro drwodd gyda'r testun di-draw yn cael ei fformatio'n wahanol, felly dim ond FYI.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a ellir ei wneud trwy python, pandas?
Os oes, a all unrhyw un fy helpu sut i roi hyn ar waith?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Girish,
Nid yw'r cod wedi'i brofi yn python, pandas. Mae'n ddrwg gennym ni all eich helpu gyda hynny. Diolch am roi sylwadau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n ei ddefnyddio ar gyfer y golofn gyfan ac nid yw fy excel byth yn dod yn ôl ....
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo san,
A fyddech chi'n darparu'r fersiwn Excel rydych chi'n ei ddefnyddio?
Mae'r cod yn gweithio'n dda yn fy achos i.
Sori am yr anghyfleustra.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hei bois, fe weithiodd hyn i mi ond mewn rhai achosion mae'n newid y testun rywsut nad yw wedi'i fformatio fel streic drwodd. Trwsiad hawdd i fynd yn ôl a sbotwirio'r data mewn achosion penodol a dad-streicio'r ystod.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Pa fersiwn Excel ydych chi'n ei ddefnyddio?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir