วิธีการลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษรใน Excel
สมมติว่ามีข้อมูลหลายช่วงเช่น JAMES0898 # 4% ^ {}ซึ่งมีอักขระที่ไม่ใช่ตัวเลขและตัวอักษรในแผ่นงานและตอนนี้คุณเพียงต้องการลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษรและเก็บอักขระที่เป็นตัวอักษรและตัวเลข ตัวอย่างเช่น, JAMES0898 # 4% ^ {} > JAMES0898. คุณลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษรใน Excel อย่างรวดเร็วได้อย่างไร?
- ลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษรด้วยรหัส VBA
- ลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษรด้วย User Defined Function
- ลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษรด้วย Kutools for Excel
ลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษรด้วยรหัส VBA
ด้วยรหัส 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 หรือ User Defined Functions คุณสามารถเขียนโค้ดและลบอักขระที่ไม่ใช่ตัวอักษรและตัวเลขทั้งหมดเป็นกลุ่มได้ แต่ที่นี่ ผมจะแนะนำเครื่องมือที่น่าทึ่ง ลบอักขระ คุณลักษณะของ Kutools สำหรับ Excelซึ่งสามารถลบตัวละครทุกชนิดได้ใน 2 คลิกเท่านั้น!
ลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษรด้วย User Defined Function
คุณยังสามารถกำหนดฟังก์ชันแบบกำหนดเองเพื่อลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษรทั้งหมดออกจากเซลล์ใน 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)แล้วลากตัวจัดการการป้อนอัตโนมัติเพื่อใช้สูตรนี้กับเซลล์อื่น
ลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษรด้วย Kutools for Excel
ด้วยสองวิธีข้างต้นคุณจำเป็นต้องรู้รหัส แต่ในฐานะผู้เริ่มต้นใช้งาน Excel พวกเราส่วนใหญ่ไม่สามารถใช้รหัสได้ดังนั้นที่นี่ฉันจะให้วิธีง่ายๆในการทำ
Kutools สำหรับ Excel- รวมเครื่องมือที่มีประโยชน์มากกว่า 300 รายการสำหรับ Excel ทดลองใช้ฟรี 30 วันเต็มไม่ต้องใช้บัตรเครดิต! Get It Now
หากคุณได้ติดตั้ง Kutools for Excel โปรดทำตามขั้นตอนต่อไปนี้:
1. เลือกช่วงที่คุณต้องการลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษรแล้วคลิก Kutools > ข้อความ > ลบอักขระ.
2. จากนั้นก ลบอักขระ กล่องโต้ตอบจะปรากฏขึ้นให้ตรวจสอบเท่านั้น ไม่ใช่ตัวเลขและตัวอักษร ตัวเลือกและคลิกที่ Ok ปุ่ม
ตอนนี้อักขระที่ไม่ใช่ตัวเลขและตัวอักษรทั้งหมดถูกลบออกจากสตริงข้อความแล้ว
บทความที่เกี่ยวข้อง:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!