Cum se elimină caractere care nu sunt englezești în coloana Excel?
De exemplu, , aici este o listă de nume care includ câteva caractere care nu sunt englezești. Cum puteți elimina rapid celulele care conțin caractere care nu sunt englezești în Excel?
Eliminați rândurile care conțin caractere non-engleze de VBA
Eliminați caractere care nu sunt englezești din șir prin Eliminare caractere
Eliminați rândurile conțin caractere non-engleze de către VBA
Iată un VBA care poate elimina rândurile care conțin caractere care nu sunt englezești în Excel.
1. Activați foaia de lucru care conține caracterele pe care doriți să le eliminați și apăsați Alt + F11 tastele pentru a activa Microsoft Visual Basic pentru aplicații fereastră.
2. clic Insera > Module, și lipiți codul de mai jos în Module.
VBA: eliminați caracterele care nu sunt englezești
Sub RemoveNonEnglish()
'UpdatebyExtendoffice20171204
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim xRows As Long
Dim xAsc As Long
On Error Resume Next
Set xRg = Application.InputBox("Select single column:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xRows = xRg.Rows.Count
Set xRg = xRg(1)
For I = 1 To xRows
Set xCell = xRg.Offset(I - 1)
If xCell.Value <> "" Then
For J = 1 To Len(xCell.Value)
xAsc = Asc(UCase(Mid(xCell.Value, J, 1)))
If xAsc < 65 Or xAsc > 90 Then
xCell.EntireRow.Delete
I = I - 1
Exit For
End If
Next
End If
Next
Application.ScreenUpdating = True
MsgBox "Completed...", vbInformation
End Sub
3. presa F5 pentru a selecta lista de coloane pe care doriți să o utilizați în caseta de dialog popping.
4. clic OK > OK, iar apoi rândurile care conțin caractere care nu sunt englezești au fost eliminate.
notițe: acest VBA funcționează doar pentru o singură coloană.
Eliminați caractere care nu sunt englezești din șir prin Eliminare caractere
Dacă doriți să eliminați caractere care nu sunt englezești din șir, după cum se arată în imaginea de mai jos, puteți aplica Kutools pentru Excel'S Eliminați caractere pentru a o termina rapid.
Kutools pentru Excel, cu mai mult de 300 funcții la îndemână, vă face munca mai ușoară. |
După instalare Kutools pentru Excel, faceți următoarele:(Descărcați gratuit Kutools pentru Excel acum!)
1. Selectați intervalul de care aveți nevoie și faceți clic Kutools > Text > Eliminați caractere. Vedeți captura de ecran:
2. Verifica Non-alfa numai în Eliminați caractere , puteți vedea rezultatul în Anunţ mai întâi.
3. clic Ok, caracterele care nu sunt englezești au fost eliminate din șiruri.
Demo
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!