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 Sub3. Gwasgwch y F5 allwedd neu cliciwch y Run botwm i redeg y cod. Yn y popping up Kutools for 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:
- Sut i dynnu testun cyn neu ar ôl cymeriad penodol yn Excel?
- Sut i dynnu testun diangen o'r gell yn Excel?
- Sut i dynnu rhifau o gelloedd sy'n cynnwys testunau a rhifau yn Excel?
- Sut i dynnu testun yn unig o gelloedd sy'n cynnwys rhifau a thestunau 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!
