Hvordan fjernes ikke-alfanumeriske tegn i Excel?
Antag, at der er en række data, såsom JAMES0898 # 4% ^ {}, som indeholder ikke-alfanumeriske tegn i et regneark, og nu vil du kun fjerne de ikke-alfanumeriske tegn og beholde de alfanumeriske tegn. For eksempel, JAMES0898 # 4% ^ {} > JAMES0898. Hvordan sletter du hurtigt disse ikke-alfanumeriske tegn i Excel?
- Fjern ikke-alfanumeriske tegn med VBA-kode
- Fjern ikke-alfanumeriske tegn med brugerdefineret funktion
- Fjern ikke-alfanumeriske tegn med Kutools til Excel
Fjern ikke-alfanumeriske tegn med VBA-kode
Med den følgende korte VBA-kode kan du også fjerne de ikke-alfanumeriske tegn. Du kan gøre det som dette:
1. Trykke andre + F11 nøgler sammen for at åbne Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler, og indsæt derefter under VBA-kode i modulet:
VBA: Fjern alle ikke-alfanumeriske tegn
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. Trykke F5 eller klik på Kør knap for at udføre koden.
4. Vælg derefter et område, du vil fjerne alle ikke-alfanumeriske tegn i pop op-dialogboksen, og klik på OK .
Nu er alle de ikke-alfanumeriske tegn slettet fra det valgte interval. Se skærmbillede:
2 klik for at fjerne alle ikke-alfanumeriske tegn med et fantastisk værktøj
Vi sætter ofte markøren i en celle og fjerner derefter ikke-alfanumeriske tegn en efter en manuelt. Hvis du er fortrolig med VBA eller brugerdefinerede funktioner, kan du kode det og fjerne alle ikke-alfanumeriske tegn i bulk. Men her vil jeg anbefale et fantastisk værktøj, Fjern tegnfunktion i Kutools til Excel, som kun kan fjerne alle slags tegn med kun 2 klik!
Fjern ikke-alfanumeriske tegn med brugerdefineret funktion
Du kan også definere en brugerdefineret funktion til at fjerne alle ikke-alfanumeriske tegn fra celler i Excel.
1. Trykke andre + F11 nøgler sammen for at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt derefter nedenstående kode i modulet:
Brugerdefineret funktion: Fjern alle ikke-alfanumeriske tegn
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. Gå nu tilbage til regnearket, vælg en tom celle, og indtast formlen = DeleteNonAlphaNumeric (B3), og træk derefter download af AutoFyld-håndtag for at anvende denne formel på andre celler.
Fjern ikke-alfanumeriske tegn med Kutools til Excel
Med ovenstående to metoder skal du kende koderne, men som Excel-begyndere kan de fleste af os ikke bruge koden, så her giver jeg dig en nem måde at gøre det på.
Kutools til Excel- Indeholder mere end 300 praktiske værktøjer til Excel. Fuld funktion gratis prøveperiode 30 dage, intet kreditkort krævet! Hent den nu
Hvis du har installeret Kutools til Excel, skal du gøre det som følger:
1. Vælg det område, du skal fjerne ikke-alfanumeriske tegn fra, og klik på Kutools > tekst > Fjern tegn.
2. Så a Slet tegn dialogboks vises, kun afkrydsningsfelt Ikke-alfanumerisk valgmulighed, og klik på knappen Ok .
Nu er alle de ikke-alfanumeriske tegn slettet fra tekststrengene.
Relaterede artikler:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!