Jak usunąć znaki inne niż angielskie w kolumnie Excel?
Na przykład ， tutaj jest lista nazw, które zawierają pewne znaki inne niż angielskie. Jak szybko usunąć komórki zawierające znaki inne niż angielskie w programie Excel?
Usuń wiersze zawierające znaki inne niż angielskie przez VBA
Usuń znaki inne niż angielskie z ciągu za pomocą funkcji Usuń znaki
Usuń wiersze zawierające znaki inne niż angielskie przez VBA
Oto VBA, który może usunąć wiersze zawierające znaki inne niż angielskie w programie Excel.
1. Uaktywnij arkusz zawierający znaki, które chcesz usunąć i naciśnij Alt + F11 klawisze, aby włączyć Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > Modułi wklej poniższy kod do pliku Moduł.
VBA: Usuń znaki inne niż angielskie
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. naciśnij F5 , aby wybrać listę kolumn, której chcesz użyć w wyświetlanym oknie dialogowym.
4. kliknij OK > OK, a następnie wiersze zawierające znaki inne niż angielskie zostały usunięte.
 |
 |
 |
Note: ten VBA działa tylko dla jednej kolumny.
Usuń znaki inne niż angielskie z ciągu za pomocą funkcji Usuń znaki
Jeśli chcesz usunąć znaki inne niż angielskie z ciągu, jak pokazano na zrzucie ekranu, możesz zastosować Kutools dla programu Excel'S Usuń znaki funkcja, aby szybko to zakończyć.
 |
|
 |
| Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. |
Po zainstalowaniu Kutools dla programu Excel, wykonaj poniższe czynności:（Bezpłatne pobieranie Kutools dla programu Excel teraz!)
1. Wybierz potrzebny zakres i kliknij Kutools > Tekst > Usuń znaki. Zobacz zrzut ekranu:
2. Czek Nie-alfa tylko w Usuń znaki możesz zobaczyć wynik w Podgląd pierwszy.
3. kliknij Ok, znaki inne niż angielskie zostały usunięte z ciągów.
Demo
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
