ไปยังเนื้อหาหลัก

วิธีลบอักขระที่ไม่ใช่ภาษาอังกฤษในคอลัมน์ Excel

ผู้เขียน: ซัน แก้ไขล่าสุด: 2024-11-07

ตัวอย่างเช่น ต่อไปนี้คือรายชื่อที่มีอักขระที่ไม่ใช่ภาษาอังกฤษบางตัว คุณจะลบเซลล์ที่มีอักขระที่ไม่ใช่ภาษาอังกฤษใน Excel ได้อย่างรวดเร็วอย่างไร

ลบแถวที่มีอักขระที่ไม่ใช่ภาษาอังกฤษโดย VBA

ลบอักขระที่ไม่ใช่ภาษาอังกฤษออกจากสตริงโดยใช้ Kutools สำหรับ Excelความคิดที่ดี 3


ลบแถวที่มีอักขระที่ไม่ใช่ภาษาอังกฤษโดย 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
ภาพหน้าจอแสดงการเลือกคอลัมน์ในสคริปต์ VBA เพื่อลบอักขระที่ไม่ใช่ภาษาอังกฤษ

4 คลิก OK > OKจากนั้นแถวที่มีอักขระที่ไม่ใช่ภาษาอังกฤษจะถูกลบออก
ภาพหน้าจอของกล่องโต้ตอบการยืนยัน

ภาพหน้าจอแสดงคอลัมน์ Excel ที่มีอักขระที่ไม่ใช่ภาษาอังกฤษ ลูกศรขวา ภาพหน้าจอแสดงคอลัมน์ Excel หลังจากลบอักขระที่ไม่ใช่ภาษาอังกฤษออกแล้ว

หมายเหตุ: VBA นี้ใช้ได้กับคอลัมน์เดียวเท่านั้น


ลบอักขระที่ไม่ใช่ภาษาอังกฤษออกจากสตริงโดยใช้ Kutools สำหรับ Excel

หากคุณต้องการลบอักขระที่ไม่ใช่ภาษาอังกฤษออกจากสตริงตามภาพด้านล่างนี้คุณสามารถสมัครได้ Kutools สำหรับ Excel's ลบอักขระ คุณลักษณะที่จะทำให้เสร็จได้อย่างรวดเร็ว

ภาพหน้าจอของคอลัมน์ Excel ที่มีอักขระที่ไม่ใช่ภาษาอังกฤษก่อนการล้างข้อมูล ลูกศรขวา ภาพหน้าจอของคอลัมน์ Excel หลังจากใช้ Kutools เพื่อลบอักขระที่ไม่ใช่ภาษาอังกฤษ
Kutools สำหรับ Excel นำเสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อปรับปรุงงานที่ซับซ้อน เพิ่มความคิดสร้างสรรค์และประสิทธิภาพ เสริมด้วยความสามารถด้าน AI, Kutools ทำงานอัตโนมัติด้วยความแม่นยำ ทำให้การจัดการข้อมูลเป็นเรื่องง่าย ข้อมูลโดยละเอียดของ Kutools for Excel...         ทดลองฟรี...

1. เลือกช่วงที่คุณต้องการแล้วคลิก Kutools > ข้อความ > ลบอักขระ. ดูภาพหน้าจอ:
ภาพหน้าจอของตัวเลือก Kutools Remove Characters ภายใต้เมนู Text ใน Excel

2 ตรวจสอบ ไม่ใช่อัลฟ่า เฉพาะใน ลบอักขระ คุณสามารถดูผลลัพธ์ได้ในไฟล์ ดูตัวอย่าง ก่อน
ภาพหน้าจอของกล่องโต้ตอบการลบอักขระที่แสดงตัวเลือกสำหรับการลบอักขระที่ไม่ใช่ภาษาอังกฤษ

3 คลิก Okอักขระที่ไม่ใช่ภาษาอังกฤษถูกลบออกจากสตริง
ภาพหน้าจอของคอลัมน์ Excel หลังจากใช้ Kutools เพื่อลบอักขระที่ไม่ใช่ภาษาอังกฤษ

Kutools สำหรับ Excel - เพิ่มประสิทธิภาพ Excel ด้วยเครื่องมือที่จำเป็นกว่า 300 รายการ เพลิดเพลินกับฟีเจอร์ AI ฟรีถาวร! Get It Now

สาธิต: ลบตัวอักษรที่ไม่ใช่ภาษาอังกฤษออกจากสตริงโดยใช้ Kutools สำหรับ Excel

Kutools สำหรับ Excel:เครื่องมือที่มีประโยชน์มากกว่า 300 รายการอยู่ในมือคุณ! เพลิดเพลินกับฟีเจอร์ AI ฟรีถาวร! Download Now!

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!