Kako odstraniti neangleške znake v Excelovem stolpcu?
Na primer, , tukaj je seznam imen, ki vključujejo nekatere neangleške znake. Kako lahko v Excelu hitro odstranite celice, ki vsebujejo neangleške znake?
VBA odstrani vrstice, ki vsebujejo neangleške znake
Odstranite neangleške znake iz niza tako, da odstranite znake
VBA odstrani vrstice, ki vsebujejo neangleške znake
Tu je VBA, ki lahko v Excelu odstrani vrstice, ki vsebujejo neangleške znake.
1. Aktivirajte delovni list, ki vsebuje znake, ki jih želite odstraniti, in pritisnite Alt + F11 tipke, da omogočite Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduliin prilepite spodnjo kodo v Moduli.
VBA: Odstranite neangleške znake
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. Pritisnite F5 tipko, da v pogovornem oknu izberete seznam stolpcev, ki ga želite uporabiti.
4. klik OK > OK, nato pa so bile vrstice, ki vsebujejo neangleške znake, odstranjene.
Opombe: ta VBA deluje samo za en stolpec.
Odstranite neangleške znake iz niza tako, da odstranite znake
Če želite iz niza odstraniti neangleške znake, kot je prikazano na spodnji sliki zaslona, se lahko prijavite Kutools za ExcelJe Odstrani znake funkcija za hitro dokončanje.
Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. |
Po namestitvi Kutools za Excel, naredite spodaj:(Brezplačno prenesite Kutools za Excel zdaj!)
1. Izberite obseg, ki ga potrebujete, in kliknite Kutools > Besedilo > Odstrani znake. Oglejte si posnetek zaslona:
2. Preveri Nealfa samo v Odstrani znake v pogovornem oknu lahko vidite rezultat v predogled najprej.
3. klik Ok, neangleški znaki so bili odstranjeni iz nizov.
Predstavitev
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!