Sut i dynnu cymeriadau nad ydynt yn rhifol o gelloedd yn Excel?
Gan dybio bod gennych chi daflen waith gyda llawer o ddata o'r fath ABCD4578124YUIOH, a dim ond y cymeriadau nad ydynt yn rhifol yr ydych am eu tynnu ABCDYUIOH ond cadwch y cymeriadau rhifol mewn celloedd. Wrth gwrs, gallwch chi gael gwared ar y cymeriadau hynny fesul un, ond yma gallwch chi gael gwared ar y cymeriadau nad ydyn nhw'n rhifol o gelloedd yn gyflym fel a ganlyn:
Tynnwch nodau nad ydynt yn rhifol gyda chod VBA
Offeryn defnyddiol i gael gwared ar nodau nad ydynt yn rhifol gydag un clic
Tynnwch nodau nad ydynt yn rhifol gyda chod VBA
I dynnu nodau nad ydynt yn rhifol o ystod gyda chod VBA, gwnewch fel a ganlyn:
1. Cliciwch Datblygwr > Visual Basic i agor y Microsoft Visual Basic ar gyfer cymwysiadau ffenestr. Yn y Microsoft Visual Basic ar gyfer cymwysiadau ffenestr, cliciwch Mewnosod > Modiwlau, ac yna copïo a gludo'r codau canlynol i'r modiwl:
VBA: Tynnwch yr holl nodau nad ydynt yn rhifol
Sub RemoveNotNum()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
xOut = ""
For i = 1 To Len(Rng.Value)
xTemp = Mid(Rng.Value, i, 1)
If xTemp Like "[0-9]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub2. Yna cliciwch y 
botwm i redeg y cod, Yn y popping up Kutoolsorexcel blwch deialog, dewiswch ystod gyda'r nodau nad ydynt yn rhifol rydych chi am eu tynnu, ac yna cliciwch ar y OK botwm. Gweler y screenshot:
3. Yna tynnir yr holl nodau nad ydynt yn rhifol yn yr ystod a ddewiswyd.
Os yw'r rhifau â phwyntiau degol, gallwch ddefnyddio'r VBA canlynol:
Sub RemoveNotNum()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
xOut = ""
For i = 1 To Len(Rng.Value)
xTemp = Mid(Rng.Value, i, 1)
If xTemp Like "[0-9.]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
Gallwch weld y canlyniadau fel isod sgrinlun a ddangosir:
Offeryn defnyddiol i gael gwared ar nodau nad ydynt yn rhifol gydag un clic
Ar gyfer cael gwared ar gymeriadau nad ydynt yn rhifol mewn ystod, Kutools ar gyfer Excel'S Dileu Cymeriadau gall cyfleustodau ei wneud gydag un clic.
| Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. |
Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel y nodir isod:
1. Tynnwch sylw at yr ystod rydych chi am gael gwared â chymeriadau nad ydyn nhw'n rhifol. Cliciwch Kutools > Testun > Dileu Cymeriadau.
2. Yn y Dileu Cymeriadau blwch deialog, gwiriwch y Heb fod yn rhifol opsiwn yn y Dileu Cymeriadau adran, ac yna cliciwch yr adran OK or Gwneud cais botwm. Ac mae'r cymeriadau nad ydynt yn rhifol yn cael eu tynnu o'r detholiad ar unwaith. Gweler y screenshot:
Cliciwch i Lawrlwytho Kutools ar gyfer Excel a threial am ddim Nawr!
Am wybodaeth fanylach am Dileu Cymeriadau o Kutools ar gyfer Excel, ewch i Dileu disgrifiad nodweddion cymeriadau.
Demo: Tynnwch gymeriadau rhifol, wyddor, na ellir eu hargraffu neu alffaniwmerig o gelloedd
Erthyglau cysylltiedig:
- Tynnwch gymeriadau alffa o gelloedd
- Tynnwch gymeriadau rhifol o gelloedd
- Tynnwch gymeriadau na ellir eu hargraffu o gelloedd
- Tynnwch gymeriadau nad ydyn nhw'n alffa o gelloedd
- Tynnwch gymeriadau nad ydynt yn alffaniwmerig
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer 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...
Mae 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!
