วิธีลบอักขระที่ไม่ใช่ภาษาอังกฤษในคอลัมน์ Excel
ตัวอย่างเช่น ต่อไปนี้คือรายชื่อที่มีอักขระที่ไม่ใช่ภาษาอังกฤษบางตัว คุณจะลบเซลล์ที่มีอักขระที่ไม่ใช่ภาษาอังกฤษใน Excel ได้อย่างรวดเร็วอย่างไร
ลบแถวที่มีอักขระที่ไม่ใช่ภาษาอังกฤษโดย VBA
ลบอักขระที่ไม่ใช่ภาษาอังกฤษออกจากสตริงโดยใช้ Kutools สำหรับ Excel
ลบแถวที่มีอักขระที่ไม่ใช่ภาษาอังกฤษโดย 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 เพื่อเลือกรายการคอลัมน์ที่คุณต้องการใช้ในกล่องโต้ตอบ popping
4 คลิก OK > OKจากนั้นแถวที่มีอักขระที่ไม่ใช่ภาษาอังกฤษจะถูกลบออก
![]() | ![]() | ![]() |
หมายเหตุ: VBA นี้ใช้ได้กับคอลัมน์เดียวเท่านั้น
ลบอักขระที่ไม่ใช่ภาษาอังกฤษออกจากสตริงโดยใช้ Kutools สำหรับ Excel
หากคุณต้องการลบอักขระที่ไม่ใช่ภาษาอังกฤษออกจากสตริงตามภาพด้านล่างนี้คุณสามารถสมัครได้ Kutools สำหรับ Excel's ลบอักขระ คุณลักษณะที่จะทำให้เสร็จได้อย่างรวดเร็ว
![]() | ![]() | ![]() |
1. เลือกช่วงที่คุณต้องการแล้วคลิก Kutools > ข้อความ > ลบอักขระ. ดูภาพหน้าจอ:
2 ตรวจสอบ ไม่ใช่อัลฟ่า เฉพาะใน ลบอักขระ คุณสามารถดูผลลัพธ์ได้ในไฟล์ ดูตัวอย่าง ก่อน
3 คลิก Okอักขระที่ไม่ใช่ภาษาอังกฤษถูกลบออกจากสตริง
Kutools สำหรับ Excel - เพิ่มประสิทธิภาพ Excel ด้วยเครื่องมือที่จำเป็นกว่า 300 รายการ เพลิดเพลินกับฟีเจอร์ AI ฟรีถาวร! Get It Now
สาธิต: ลบตัวอักษรที่ไม่ใช่ภาษาอังกฤษออกจากสตริงโดยใช้ Kutools สำหรับ Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!