Hur tar jag bort icke-engelska tecken i Excel-kolumnen?
Till exempel ， här är en lista med namn som innehåller några icke-engelska tecken. Hur kan du snabbt ta bort cellerna som innehåller icke-engelska tecken i Excel?
Ta bort rader som innehåller icke-engelska tecken av VBA
Ta bort icke-engelska tecken från sträng med Ta bort tecken
Ta bort rader som innehåller icke-engelska tecken av VBA
Här är en VBA som kan ta bort rader som innehåller icke-engelska tecken i Excel.
1. Aktivera kalkylbladet som innehåller tecknen du vill ta bort och tryck på Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.
2. klick Insert > Modulernaoch klistra in under koden i Modulerna.
VBA: Ta bort icke-engelska tecken
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. Tryck F5 för att välja den kolumnlista du vill använda i pop-up-dialogrutan.
4. klick OK > OKoch sedan har raderna som innehåller icke-engelska tecken tagits bort.
 |
 |
 |
Anmärkningar: denna VBA fungerar bara för en kolumn.
Ta bort icke-engelska tecken från sträng med Ta bort tecken
Om du vill ta bort icke-engelska tecken från strängen enligt nedanstående skärmdump kan du ansöka Kutools för ExcelÄr Ta bort tecken för att snabbt avsluta den.
 |
|
 |
| Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. |
När du har installerat Kutools för Excel, gör så här:（Gratis nedladdning Kutools för Excel nu!)
1. Välj det intervall du behöver och klicka Kutools > text > Ta bort tecken. Se skärmdump:
2. Kolla upp Icke-alfa endast i Ta bort tecken i dialogrutan kan du se resultatet i Förhandsvisning först.
3. klick Ok, de icke-engelska tecknen har tagits bort från strängar.
demo
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
