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

Rydym yn aml yn rhoi cyrchwr i mewn i gell ac yna'n tynnu nodau nad ydynt yn alffaniwmerig fesul un â llaw. Os ydych chi'n gyfarwydd â VBA neu Swyddogaethau a Ddiffiniwyd gan Ddefnyddwyr, gallwch ei godio a chael gwared ar yr holl nodau nad ydynt yn alffaniwmerig mewn swmp. Ond yma, byddaf yn argymell offeryn anhygoel, nodwedd Dileu Cymeriadau o Kutools for Excel, a all gael gwared ar bob math o gymeriadau gyda 2 glic yn unig!

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.

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 for 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 chi wedi gosod Kutools for 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.