Med følgende kort VBA-kode, kan du fjerne de ikke-alfanumeriske tegn i tillegg. Du kan gjøre det som dette:
1. Velg området du vil slette de ikke-alfanumeriske tegn.
2. Klikk Utvikler > Visual Basic, en ny Microsoft Visual Basic for Applications-vinduet vises, klikker du Sett > Modul, og skriv inn følgende kode i modulen:
VBA: Fjern alle ikke-alfanumeriske tegn
Sub RemoveNotAlphasNotNum () 'Updateby2014128Dim RNG Som RangeDim WorkRng Som RangeOn Error Resume NextxTitleId = "KutoolsforExcel" Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8) For Hver RNG I WorkRng xOut = "" For i = 1 Til Len (Rng.Value) xTemp = Mid (RNG. verdi, i, 1) Hvis xTemp Like "[a]." Eller xTemp Like "[AZ.]" Eller xTemp Like "[0-9.]" Da xStr = xTemp Else xStr = "" End If xOut = xOut & xStr Neste jeg Rng.Value = xOutNextEnd Sub
2. Klikk knappen for å kjøre koden.
3. Deretter velger du et område du ønsker å fjerne alle ikke-alfanumeriske tegn i pop-up dialog, se skjermbilde:
4. Klikk OK, og alle de ikke-alfanumeriske tegn har blitt slettet fra cellene. Se skjermbilde:
Fjern ikke-alfanumeriske tegn med Kutools for Excel
Med over to metodene, må du vite kodene, men som Excel nybegynnere, de fleste av oss kan ikke bruke koden, så her vil jeg gi deg en enkel måte å gjøre det
Kutools for Excel. med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 30 dager. Få den nå
Hvis du har installert Kutools for Excel, kan du gjøre det som følgende måte:.
1. Velg området som du trenger for å fjerne ikke-alfanumeriske tegn.
2. Klikk Kutools > Tekst Verktøy > Slett tegn, se skjermbilde:
3. Så en slette tegn dialogboks vil vises, sjekk Ikke-alfanumerisk alternativet, og du kan se resultatet fra forhåndsvisningsruten. Se skjermbilde:
4. Klikk på OK. Og alle de ikke-alfanumeriske tegn er slettet fra tekststreng.