Note: The other languages of the website are Google-translated. Back to English
Autentificare  \/ 
x
or
x
Înregistrare  \/ 
x

or

Cum se elimină caractere non-alfanumerice în Excel?

Să presupunem că există o serie de date, cum ar fi JAMES0898 # 4% ^ {}, care conține caractere non-alfanumerice într-o foaie de lucru, iar acum doriți doar să eliminați caracterele non-alfanumerice și să păstrați caracterele alfanumerice. De exemplu, JAMES0898 # 4% ^ {} > JAMES0898. Cum ștergeți rapid aceste caractere non-alfanumerice în Excel?


Eliminați caracterele non-alfanumerice cu codul VBA

Cu următorul cod VBA scurt, puteți elimina și caracterele nealfanumerice. Puteți face acest lucru:

1. presa Alt + F11 tastele împreună pentru a deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. clic Insera > Moduleși apoi lipiți mai jos codul VBA în modul:

VBA: eliminați toate caracterele non-alfanumerice

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. presa F5 tasta sau faceți clic pe Alerga pentru a executa codul.

4. Apoi selectați un interval pe care doriți să îl eliminați din toate caracterele non-alfanumerice din fereastra pop-up și faceți clic pe OK butonul.

Acum, toate caracterele non-alfanumerice au fost șterse din intervalul selectat. Vedeți captura de ecran:

2 clicuri pentru a elimina toate caracterele non-alfanumerice printr-un instrument uimitor

În mod obișnuit, punem cursorul într-o celulă și apoi eliminăm caracterele nealfanumerice unul câte unul manual. Dacă sunteți familiarizat cu VBA sau funcțiile definite de utilizator, îl puteți codifica și elimina toate caracterele non-alfanumerice în bloc. Dar aici, vă voi recomanda un instrument uimitor, caracteristica Eliminare caractere din Kutools pentru Excel, care poate elimina tot felul de caractere doar cu 2 clicuri! Încercare gratuită completă de 30 de zile!

Eliminați caracterele non-alfanumerice cu funcția definită de utilizator

De asemenea, puteți defini o funcție personalizată pentru a elimina toate caracterele non-alfanumerice din celule în Excel.

1. presa Alt + F11 tastele împreună pentru a deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Module, și apoi lipiți codul de mai jos în modul:

Funcție definită de utilizator: eliminați toate caracterele non-alfanumerice

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. Acum reveniți la foaia de lucru, selectați o celulă goală și introduceți formula = DeleteNonAlphaNumeric (B3)și apoi trageți descărcarea mânerului de completare automată pentru a aplica această formulă altor celule.


Eliminați caractere non-alfanumerice cu Kutools pentru Excel

Cu două metode de mai sus, trebuie să cunoașteți codurile, dar, în calitate de începători Excel, majoritatea dintre noi nu putem folosi codul, așa că aici vă voi oferi o modalitate ușoară de a o face.

Kutools pentru Excel- Include mai mult de 300 de instrumente la îndemână pentru Excel. Versiune completă de încercare gratuită de 30 de zile, nu este necesar card de credit! Ia-L Acum

Dacă ați instalat Kutools pentru Excel, faceți acest lucru după cum urmează:

1. Selectați intervalul de care trebuie să eliminați caractere non-alfanumerice și faceți clic pe Kutools > Text > Eliminați caractere.

2. Apoi o Ștergeți caractere va apărea caseta de dialog, bifați numai Nealfanumeric și faceți clic pe Ok butonul.

Acum toate caracterele non-alfanumerice au fost șterse din șirurile de text.


Legate de articole:


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2019 și 365. Suportă toate limbile. Implementare ușoară în întreprindere sau organizație. Funcții complete de încercare gratuită de 30 de zile. Garanție de restituire a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse în fiecare zi!
fundul 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