Sut i gael gwared ar gymeriadau heblaw Saesneg yng ngholofn Excel?
Er enghraifft, ， dyma restr o enwau sy'n cynnwys rhai cymeriadau nad ydynt yn Saesneg. Sut allwch chi gael gwared ar y celloedd sy'n cynnwys nodau heblaw Saesneg yn Excel yn gyflym?
Tynnwch resi sy'n cynnwys nodau heblaw Saesneg gan VBA
Tynnwch gymeriadau heblaw Saesneg o'r llinyn gan Dileu Cymeriadau
Mae tynnu rhesi yn cynnwys nodau heblaw Saesneg gan VBA
Dyma VBA a all gael gwared ar y rhesi sy'n cynnwys nodau heblaw Saesneg yn Excel.
1. Gweithredwch y daflen waith sy'n cynnwys y nodau rydych chi am eu tynnu, a gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludo islaw'r cod i'r Modiwlau.
VBA: Tynnwch gymeriadau heblaw Saesneg
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. Gwasgwch F5 allwedd i ddewis y rhestr golofnau rydych chi am ddefnyddio iddi yn y dialog popping.
4. Cliciwch OK > OK, ac yna mae'r rhesi sy'n cynnwys nodau heblaw Saesneg wedi'u tynnu.
 |
 |
 |
Nodyn: dim ond ar gyfer un golofn y mae'r VBA hwn yn gweithio.
Tynnwch gymeriadau heblaw Saesneg o'r llinyn gan Dileu Cymeriadau
Os ydych chi am dynnu nodau nad ydynt yn Saesneg o'r llinyn fel y dangosir isod, gallwch wneud cais Kutools for Excel'S Dileu Cymeriadau nodwedd i'w orffen yn gyflym.
 |
|
 |
| Kutools for Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. |
Ar ôl gosod Kutools for Excel, gwnewch fel y nodir isod:(Lawrlwythiad Am Ddim Kutools for Excel Nawr!)
1. Dewiswch yr ystod sydd ei hangen arnoch a chlicio Kutools > Testun > Dileu Cymeriadau. Gweler y screenshot:
2. Gwiriwch Di-alffa dim ond yn y Dileu Cymeriadau deialog, gallwch weld y canlyniad yn y Rhagolwg gyntaf.
3. Cliciwch Ok, mae'r cymeriadau nad ydynt yn Saesneg wedi'u tynnu o dannau.
Demo
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
