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 gymeriadau nad ydynt yn alffaniwmerig yn Excel?

Gan dybio bod yna ystod o ddata, fel JAMES0898 # 4% ^ {}, sy'n cynnwys nodau nad ydynt yn alffaniwmerig mewn taflen waith, ac yn awr dim ond tynnu'r cymeriadau nad ydynt yn alffaniwmerig a chadw'r nodau alffaniwmerig yr ydych am eu tynnu. Er enghraifft, JAMES0898 # 4% ^ {} > JAMES0898. Sut ydych chi'n dileu'r cymeriadau an-alffaniwmerig hynny yn Excel yn gyflym?


Tynnwch nodau nad ydynt yn alffaniwmerig gyda chod VBA

Gyda'r cod VBA byr canlynol, gallwch chi gael gwared ar y nodau nad ydynt yn alffaniwmerig hefyd. Gallwch ei wneud fel hyn:

1. Gwasgwch Alt + F11 allweddi gyda'i gilydd i agor y Microsoft Visual Basic ar gyfer cymwysiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch islaw cod VBA i'r Modiwl:

VBA: Tynnwch yr holl nodau nad ydynt yn alffaniwmerig

Sub RemoveNotAlphasNotNum()
'Updateby2014128
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 "[a-z.]" Or xTemp Like "[A-Z.]" Or xTemp Like "[0-9.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

3. Gwasgwch F5 allwedd neu cliciwch y Run botwm i weithredu'r cod.

4. Yna dewiswch ystod rydych chi am gael gwared ar yr holl nodau nad ydynt yn alffaniwmerig yn y dialog naidlen, a chliciwch ar y OK botwm.

Nawr mae'r holl nodau nad ydynt yn alffaniwmerig wedi'u dileu o'r ystod a ddewiswyd. Gweler y screenshot:

2 glic i gael gwared ar yr holl gymeriadau nad ydynt yn alffaniwmerig trwy offeryn anhygoel

Rydyn ni'n rhoi cyrchwr yn aml mewn cell ac yna'n tynnu cymeriadau nad ydyn nhw'n alffaniwmerig fesul un â llaw. Os ydych chi'n gyfarwydd â VBA neu Swyddogaethau wedi'u Diffinio gan Ddefnyddwyr, gallwch ei godio a chael gwared ar yr holl nodau nad ydynt yn alffaniwmerig mewn swmp. Ond yma, byddaf yn argymell teclyn anhygoel, Nodwedd Dileu Cymeriadau o Kutools ar gyfer Excel, a all gael gwared ar bob math o gymeriadau gyda 2 glic yn unig! Treial Am Ddim Nodwedd Llawn 30 diwrnod!

Tynnwch nodau nad ydynt yn alffaniwmerig gyda Swyddogaeth Diffiniedig Defnyddiwr

Gallwch hefyd ddiffinio swyddogaeth arferiad i gael gwared ar yr holl nodau nad ydynt yn alffaniwmerig o gelloedd yn Excel.

1. Gwasgwch Alt + F11 allweddi gyda'i gilydd i agor y Microsoft Visual Basic ar gyfer cymwysiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch y cod isod i'r Modiwl:

Swyddogaeth Diffiniedig Defnyddiwr: Tynnwch yr holl nodau nad ydynt yn alffaniwmerig

Function DeleteNonAlphaNumeric(xStr As String) As String
Dim xStrR As String
Dim xCh As String

Dim xStrMode As String
Dim xInt As Integer
    xStrMode = "[A-Z.a-z 0-9]"
    xStrR = ""
    For xInt = 1 To Len(xStr)
        xCh = Mid(xStr, xInt, 1)
        If xCh Like xStrMode Then
            xStrR = xStrR & xCh
        End If
    Next
    DeleteNonAlphaNumeric = xStrR
End Function
    

3. Nawr ewch yn ôl i'r daflen waith, dewiswch gell wag, a nodi'r fformiwla = DeleteNonAlphaNumeric (B3), ac yna llusgwch y lawrlwythiad handlen AutoFill i gymhwyso'r fformiwla hon i gelloedd eraill.


Tynnwch gymeriadau nad ydynt yn alffaniwmerig gyda Kutools ar gyfer Excel

Gyda dau ddull uchod, mae angen i chi wybod y codau, ond fel dechreuwyr Excel, ni all y mwyafrif ohonom ddefnyddio'r cod, felly yma byddaf yn rhoi ffordd hawdd i chi ei wneud.

Kutools ar gyfer Excel- Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Treial llawn am ddim nodwedd 30 diwrnod, nid oes angen cerdyn credyd! Get It Now

Os ydych wedi gosod Kutools ar gyfer Excel, gwnewch hynny fel y camau canlynol:

1. Dewiswch yr ystod sydd ei hangen arnoch i dynnu nodau nad ydynt yn alffaniwmerig, a chlicio Kutools > Testun > Dileu Cymeriadau.

2. Yna a Dileu Cymeriadau bydd blwch deialog yn ymddangos, dim ond gwirio Di-alffaniwmerig opsiwn, a chliciwch ar y Ok botwm.

Nawr mae'r holl nodau nad ydynt yn alffaniwmerig wedi'u dileu o'r tannau testun.


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
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.
  • To post as a guest, your comment is unpublished.
    Dee · 4 years ago
    How do you remove the characters while keeping the space separator?
  • To post as a guest, your comment is unpublished.
    Mike Litoris · 7 years ago
    VBA method worked, but only works on the selected range. You cannot specify the output into a different range of cells than the input. So you must copy the source data into the target range, select the data, run the script and allow it to output to the default range. Also, the period (.) is not considered a special character, so if you want to remove those too, you'll need to search and replace.
  • To post as a guest, your comment is unpublished.
    Bryan Steven · 7 years ago
    Thanks for sharing, but still don't like the input-box method... :D