Cum se elimină caractere nenumerice din celule în Excel?
Să presupunem că aveți o foaie de lucru cu o mulțime de astfel de date ABCD4578124YUIOHși doriți doar să eliminați caracterele nenumerice ABCDYUIOH dar păstrați caracterele numerice în celule. Desigur, puteți elimina acele caractere unul câte unul, dar chiar aici puteți scăpa de caracterele nenumerice din celule rapid după cum urmează:
Eliminați caracterele nenumerice cu codul VBA
Un instrument la îndemână pentru a elimina caracterele nenumerice cu un singur clic
Eliminați caracterele nenumerice cu codul VBA
Pentru a elimina caractere nenumerice dintr-un interval cu cod VBA, procedați după cum urmează:
1. Clic Dezvoltator > Visual Basic pentru a deschide Microsoft Visual Basic pentru aplicații fereastră. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module, apoi copiați și lipiți următoarele coduri în modul:
VBA: eliminați toate caracterele nenumerice
Sub RemoveNotNum()
'Updateby Extendoffice
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 "[0-9]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub2. Apoi faceți clic pe 
pentru a rula codul, în fereastra pop-up KutoolsforExcel caseta de dialog, selectați un interval cu caracterele nenumerice pe care doriți să le eliminați, apoi faceți clic pe OK buton. Vedeți captura de ecran:
3. Apoi, toate caracterele nenumerice din intervalul selectat sunt eliminate.
Dacă numerele cu zecimale, puteți utiliza următorul VBA:
Sub RemoveNotNum()
'Updateby Extendoffice
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 "[0-9.]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
Puteți vedea rezultatele după cum se arată în imaginea de mai jos:
Un instrument la îndemână pentru a elimina caracterele nenumerice cu un singur clic
Pentru eliminarea caracterelor nenumerice dintr-un interval, Kutools pentru Excel'S Eliminați caractere utilitarul îl poate face cu un singur clic.
| Kutools pentru Excel : cu mai mult de 300 de programe de completare Excel la îndemână, gratuit pentru a încerca fără limitări în 30 de zile. |
După instalare Kutools pentru Excel, vă rugăm să faceți după cum urmează:
1. Evidențiați intervalul pe care doriți să îl eliminați cu caractere nenumerice. Clic Kutools > Text > Eliminați caractere.
2. În Eliminați caractere caseta de dialog, verificați Nenumerice opțiune în Eliminați caractere , apoi faceți clic pe OK or Aplică buton. Iar caracterele nenumerice sunt eliminate imediat din selecție. Vedeți captura de ecran:
Faceți clic pentru a descărca Kutools pentru Excel și încercare gratuită acum!
Pentru informații mai detaliate despre Eliminați caractere din Kutools pentru Excel, vă rugăm să vizitați Eliminați descrierea caracteristicilor caracterelor.
Demo: Eliminați caractere numerice, alfabetice, neprimabile sau alfanumerice din celule
Legate de articole:
- Eliminați caracterele alfa din celule
- Eliminați caracterele numerice din celule
- Eliminați caracterele care nu se pot tipări din celule
- Eliminați caractere non-alfa din celule
- Eliminați caracterele non-alfanumerice
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
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 pentru dvs. în fiecare zi!
