Hvordan fjernes ikke-engelske tegn i Excel-kolonnen?
For eksempel er , her en liste over navne, der indeholder nogle ikke-engelske tegn. Hvordan kan du hurtigt fjerne cellerne, der indeholder ikke-engelske tegn i Excel?
Fjern rækker, der indeholder ikke-engelske tegn fra VBA
Fjern ikke-engelske tegn fra streng ved Fjern tegn
Fjern rækker indeholder ikke-engelske tegn fra VBA
Her er en VBA, der kan fjerne de rækker, der indeholder ikke-engelske tegn i Excel.
1. Aktivér regnearket, der indeholder de tegn, du vil fjerne, og tryk på Alt + F11 for at aktivere Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler, og indsæt nedenstående kode til Moduler.
VBA: Fjern ikke-engelske tegn
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. Trykke F5 nøgle for at vælge den kolonneliste, du vil bruge til i poppedialogen.
4. klik OK > OK, og derefter er rækkerne, der indeholder ikke-engelske tegn, blevet fjernet.
Bemærk: denne VBA fungerer kun i en kolonne.
Fjern ikke-engelske tegn fra streng ved Fjern tegn
Hvis du vil fjerne ikke-engelske tegn fra streng som vist nedenstående skærmbillede, kan du anvende Kutools til Excel's Fjern tegn funktion til hurtigt at afslutte den.
Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. |
Efter installation Kutools til Excel, gør venligst som nedenfor:(Gratis download Kutools til Excel nu!)
1. Vælg det ønskede interval, og klik på Kutools > tekst > Fjern tegn. Se skærmbillede:
2. Kontrollere Ikke-alfa kun i Fjern tegn i dialogboksen, kan du se resultatet i Eksempel først.
3. klik Ok, de ikke-engelske tegn er fjernet fra strengene.
Demo
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!