Ինչպե՞ս հեռացնել ոչ անգլերեն նիշերը Excel սյունակում:
Օրինակ, , ահա անունների ցուցակ, որոնք պարունակում են որոշ ոչ-անգլերեն նիշեր: Ինչպե՞ս կարող եք արագորեն հեռացնել այն բջիջները, որոնք պարունակում են ոչ անգլերեն նիշեր Excel- ում:
Հեռացրեք VBA- ի կողմից ոչ անգլերեն նիշ պարունակող շարքերը
Հեռացրեք ոչ անգլերեն նիշերը տողից `Հեռացնել նիշերը
Հեռացնել տողերը պարունակում են ոչ անգլալեզու նիշեր VBA- ի կողմից
Ահա մի VBA, որը կարող է հեռացնել Excel- ում ոչ անգլալեզու նիշ պարունակող շարքերը:
1. Ակտիվացրեք աշխատաթերթը, որը պարունակում է նիշերը, որոնք ցանկանում եք հեռացնել, և սեղմել Alt + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհան.
2: սեղմեք Տեղադրել > Մոդուլներ, և ներքևում տեղադրեք կոդը ՝ Մոդուլներ.
VBA. Հեռացրեք ոչ անգլերեն նիշերը
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. Մամուլ F5 ստեղն ընտրելու համար սյունակների ցուցակը, որի համար ցանկանում եք օգտագործել, ելնող երկխոսության մեջ:
4: սեղմեք OK > OK, և ապա ոչ անգլերեն նիշ պարունակող տողերը հանվել են:
Նշում: Այս VBA- ն աշխատում է միայն մեկ սյունակի համար:
Հեռացրեք ոչ անգլերեն նիշերը տողից `Հեռացնել նիշերը
Եթե ցանկանում եք տողից հեռացնել ոչ անգլերեն նիշերը, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը, կարող եք դիմել Excel- ի համար նախատեսված գործիքներ'S Հեռացնել նիշերը առանձնահատկությունն այն արագ ավարտելու համար:
Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: |
Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝(Անվճար ներբեռնեք Kutools- ի համար Excel- ը հիմա!)
1. Ընտրեք ձեզ անհրաժեշտ տիրույթը և կտտացրեք Կուտոլս > Տեքստ > Հեռացնել նիշերը, Տեսեք,
2. Ստուգեք Ոչ ալֆա միայն Հեռացնել նիշերը երկխոսություն, արդյունքը կարող եք տեսնել Preview առաջին.
3: սեղմեք Ok, ոչ անգլերեն նիշերը հանվել են տողերից:
Demo
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: