Jak odstranit neanglické znaky ve sloupci aplikace Excel?
Například ， zde je seznam jmen, který obsahuje některé neanglické znaky. Jak můžete rychle odstranit buňky obsahující neanglické znaky v aplikaci Excel?
Odstraňte řádky obsahující neanglické znaky pomocí VBA
Odebrat neanglické znaky z řetězce odstraněním znaků
Odstranit řádky obsahují neanglické znaky podle VBA
Zde je VBA, který může odstranit řádky, které obsahují neanglické znaky v aplikaci Excel.
1. Aktivujte list obsahující znaky, které chcete odebrat, a stiskněte Alt + F11 klávesy pro povolení Microsoft Visual Basic pro aplikace okno.
2. cvaknutí Vložit > Modula vložte níže uvedený kód do Modul.
VBA: Odstraňte neanglické znaky
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. lis F5 v rozbalovacím dialogovém okně vyberte seznam sloupců, které chcete použít.
4. cvaknutí OK > OKa poté byly odstraněny řádky obsahující neanglické znaky.
 |
 |
 |
Poznámka: tento VBA funguje pouze pro jeden sloupec.
Odebrat neanglické znaky z řetězce odstraněním znaků
Pokud chcete z řetězce odstranit neanglické znaky, jak je ukázáno níže, můžete použít Kutools pro ExcelJe Odebrat znaky funkci rychle dokončit.
 |
|
 |
| Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. |
Po instalaci Kutools pro Excel, prosím, postupujte takto:（Zdarma ke stažení Kutools pro Excel nyní!)
1. Vyberte požadovaný rozsah a klikněte Kutools > Text > Odebrat znaky. Viz snímek obrazovky:
2. Kontrola Ne-alfa pouze v Odebrat znaky V dialogu můžete vidět výsledek v Náhled jako první.
3. cvaknutí Ok, neanglické znaky byly odstraněny z řetězců.
Demonstrace
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
