วิธีลบอักขระที่ไม่ใช่ตัวอักษรและตัวเลขใน Excel (2 วิธี)

วันนี้ในบทความนี้ เราจะสาธิตวิธีลบอักขระที่ไม่ใช่ตัวอักษรและตัวเลขออกจากเซลล์ใน excel เป็นปัญหาที่พบบ่อยมากโดยเฉพาะเมื่อคุณจัดการกับข้อมูลดิบ ตัวเลข ข้อความ และอักขระที่ไม่ใช่ตัวอักษรและตัวเลขผสมกันในเซลล์ และบางครั้งเราจำเป็นต้องแยกข้อความและตัวเลขเหล่านั้นออก มีหลายสูตรในการลบอักขระที่ไม่ใช่ตัวอักษรและตัวเลขออกจากเซลล์ใน excel โดยใช้ รหัสการเขียนโปรแกรม VBA และ ฟังก์ชันที่กำหนดโดยผู้ใช้ เราจะเรียนรู้พวกเขาในงานนี้

ดาวน์โหลดหนังสือฝึกหัดเล่มนี้เพื่อฝึกปฏิบัติในขณะที่คุณกำลังอ่านบทความนี้

2 วิธีที่เหมาะสมในการลบอักขระที่ไม่ใช่ตัวอักษรและตัวเลขใน Excel

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

1. เรียกใช้โค้ด VBA เพื่อลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษร

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

ขั้นตอนที่ 1:

• ขั้นแรก เราจะเปิด หน้าต่าง Microsoft Visual Basic for Applications ของเรา ในการทำเช่นนั้น ให้กด Alt+11

• หน้าต่างใหม่ถูกเปิดขึ้น ตอนนี้คลิก แทรก และเลือก โมดูล เพื่อเปิดโมดูลใหม่

ขั้นตอนที่ 2:

• ในโมดูลที่เพิ่งเปิดใหม่ ให้แทรกโค้ด VBA เพื่อลบอักขระที่ไม่ใช่ตัวอักษรและตัวเลข เราได้จัดเตรียมรหัสไว้ให้คุณแล้ว คุณสามารถคัดลอกรหัสนี้และใช้ในเวิร์กชีตของคุณ รหัสคือ

Sub VBA_to_remove()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Non-alphanumeric text remove"
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

• เรียกใช้โค้ดโดยกด F5 . เลือกช่วงของคุณและคลิก ตกลง เพื่อสรุปการดำเนินการ

• เราลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษรออกจากเซลล์ของเราสำเร็จแล้ว

อ่านเพิ่มเติม: วิธีลบอักขระที่ไม่ใช่ตัวเลขออกจากเซลล์ใน Excel

การอ่านที่คล้ายกัน:

• วิธีลบอักขระว่างใน Excel (5 วิธี)
• ลบอักขระเฉพาะใน Excel ( 5 วิธี)
• วิธีการลบอักขระที่ไม่สามารถพิมพ์ได้ใน Excel (4 วิธีง่ายๆ)
• ลบเครื่องหมายคำพูดเดี่ยวใน Excel (6 วิธี)
• วิธีการลบ Apostrophe ใน Excel (5 วิธีง่ายๆ)

2. ใช้ฟังก์ชันที่กำหนดโดยผู้ใช้เพื่อลบอักขระที่ไม่ใช่ตัวอักษรและตัวเลขผสม

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

ขั้นตอนที่ 1:

• ขั้นแรก ไปที่ Microsoft หน้าต่าง Visual Basic สำหรับแอปพลิเคชัน โดยกด Alt+F11 .

• จดรหัสสำหรับ UFD ของคุณ เราได้ตั้งชื่อฟังก์ชันของเราว่า RemoveNonNlphaNumeric . และโค้ดสำหรับสร้างฟังก์ชันนี้คือ

Function RemoveNonAlphaNumeric(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
            RemoveNonAlphaNumeric = xStrR
End Function

ขั้นตอนที่ 2:

• รหัสของเราถูกเขียนขึ้น กลับไปที่แผ่นงานและพิมพ์ฟังก์ชัน =RemoveNonAlphaNumeric . เราจะเห็นได้ว่าฟังก์ชันถูกสร้างขึ้น

• ตอนนี้ใช้ฟังก์ชันในเซลล์ C4 . ฟังก์ชันคือ

• กด ENTER เพื่อให้ได้ผลลัพธ์

• ฟังก์ชันแบบกำหนดเองของเราทำงานอย่างถูกต้อง ตอนนี้เราจะใช้ฟังก์ชันนี้กับเซลล์ที่เหลือเพื่อให้ได้ผลลัพธ์สุดท้าย

อ่านเพิ่มเติม: วิธีลบอักขระใน Excel (6 วิธี)

สิ่งที่ควรจำ

👉 การสร้างสูตรแบบกำหนดเองมีข้อจำกัดมากกว่ามาโคร VBA ปกติ ไม่สามารถเปลี่ยนแปลงโครงสร้างหรือรูปแบบของเวิร์กชีตหรือเซลล์ได้

👉 หากคุณไม่เห็นแท็บนักพัฒนาซอฟต์แวร์ คุณสามารถเปิดใช้งานได้โดยใช้คำแนะนำนี้

แถบเครื่องมือการเข้าถึงด่วนแบบกำหนดเอง → คำสั่งเพิ่มเติม → กำหนด Ribbon เอง → ผู้พัฒนา  → ตกลง

บทสรุป

ในคู่มือนี้ เราได้ดำเนินการผ่านสองแนวทางที่แตกต่างกัน เรายินดีอย่างยิ่งที่จะแสดงความคิดเห็นหากคุณมีคำถามหรือข้อสงสัยใดๆ แสดงความคิดเห็นของคุณในส่วนความคิดเห็น ขอบคุณสำหรับการเยี่ยมชม ExcelDemy เรียนรู้ต่อไป!

บทความที่เกี่ยวข้อง

• Excel ลบอักขระจากด้านขวา (5 วิธี)
• วิธีลบอักขระตัวสุดท้ายใน Excel (วิธีที่ง่ายที่สุด 6 วิธี)
• ลบขีดกลางออกจากหมายเลขโทรศัพท์ใน Excel(4 วิธี)
• วิธีลบอักขระตัวแรกใน Excel (6 วิธี)
• วิธีลบอักขระจากด้านซ้ายใน Excel (6 วิธี)