ด้วยรหัส VBA สั้น ๆ ต่อไปนี้คุณสามารถลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษรได้เช่นกัน คุณสามารถทำได้ดังนี้:

1 กด อื่น ๆ + F11 คีย์ร่วมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 คลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นวางโค้ด VBA ด้านล่างลงในโมดูล:

VBA: ลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษรทั้งหมด

Sub RemoveNotAlphasNotNum()
'Updateby2014128
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xOut = ""
    For i = 1 To Len(Rng.Value)
        xTemp = Mid(Rng.Value, i, 1)
        If xTemp Like "[a-z.]" Or xTemp Like "[A-Z.]" Or xTemp Like "[0-9.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

3. กด F5 หรือคลิกปุ่ม วิ่ง ปุ่มเพื่อรันโค้ด

4. จากนั้นเลือกช่วงที่คุณต้องการลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษรทั้งหมดในกล่องโต้ตอบป๊อปอัปแล้วคลิก OK ปุ่ม

ตอนนี้อักขระที่ไม่ใช่ตัวเลขและตัวอักษรทั้งหมดถูกลบออกจากช่วงที่เลือกแล้ว ดูภาพหน้าจอ:

2 คลิกเพื่อลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษรทั้งหมดด้วยเครื่องมือที่น่าทึ่ง

เรามักจะวางเคอร์เซอร์ไว้ในเซลล์แล้วลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษรทีละตัวด้วยตนเอง หากคุณคุ้นเคยกับ VBA หรือฟังก์ชันที่กำหนดโดยผู้ใช้คุณสามารถเขียนโค้ดและลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษรทั้งหมดออกจำนวนมากได้ แต่ที่นี่ฉันจะแนะนำเครื่องมือที่น่าทึ่งฟีเจอร์ Remove Characters ของ Kutools for Excel ซึ่งสามารถลบอักขระทุกชนิดได้ด้วยการคลิกเพียง 2 ครั้งเท่านั้น!

คุณยังสามารถกำหนดฟังก์ชันแบบกำหนดเองเพื่อลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษรทั้งหมดออกจากเซลล์ใน Excel

1. กด อื่น ๆ + F11 คีย์ร่วมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นวางโค้ดด้านล่างลงในโมดูล:

User Defined Function: ลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษรทั้งหมด

Function DeleteNonAlphaNumeric(xStr As String) As String
Dim xStrR As String
Dim xCh As String

Dim xStrMode As String
Dim xInt As Integer
    xStrMode = "[A-Z.a-z 0-9]"
    xStrR = ""
    For xInt = 1 To Len(xStr)
        xCh = Mid(xStr, xInt, 1)
        If xCh Like xStrMode Then
            xStrR = xStrR & xCh
        End If
    Next
    DeleteNonAlphaNumeric = xStrR
End Function
    

3. ตอนนี้กลับไปที่แผ่นงานเลือกเซลล์ว่างแล้วป้อนสูตร = DeleteNonAlphaNumeric (B3)แล้วลากตัวจัดการการป้อนอัตโนมัติเพื่อใช้สูตรนี้กับเซลล์อื่น

ด้วยสองวิธีข้างต้นคุณจำเป็นต้องรู้รหัส แต่ในฐานะผู้เริ่มต้นใช้งาน Excel พวกเราส่วนใหญ่ไม่สามารถใช้รหัสได้ดังนั้นที่นี่ฉันจะให้วิธีง่ายๆในการทำ

Kutools สำหรับ Excel- รวมเครื่องมือที่มีประโยชน์มากกว่า 300 รายการสำหรับ Excel ทดลองใช้ฟรี 30 วันเต็มไม่ต้องใช้บัตรเครดิต! Get It Now

หากคุณได้ติดตั้ง Kutools for Excel โปรดทำตามขั้นตอนต่อไปนี้:

1. เลือกช่วงที่คุณต้องการลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษรแล้วคลิก Kutools > ข้อความ > ลบอักขระ.

2. จากนั้นก ลบอักขระ กล่องโต้ตอบจะปรากฏขึ้นให้ตรวจสอบเท่านั้น ไม่ใช่ตัวเลขและตัวอักษร ตัวเลือกและคลิกที่ Ok ปุ่ม

ตอนนี้อักขระที่ไม่ใช่ตัวเลขและตัวอักษรทั้งหมดถูกลบออกจากสตริงข้อความแล้ว