วิธีลบอักขระที่ไม่ใช่ตัวเลขออกจากเซลล์ใน Excel
สมมติว่าคุณมีแผ่นงานที่มีข้อมูลจำนวนมาก ABCD4578124YUIOHและคุณต้องการลบเฉพาะอักขระที่ไม่ใช่ตัวเลขเท่านั้น ABCDYUIOH แต่เก็บอักขระตัวเลขไว้ในเซลล์ แน่นอนคุณสามารถลบอักขระเหล่านั้นได้ทีละตัว แต่ที่นี่คุณสามารถกำจัดอักขระที่ไม่ใช่ตัวเลขออกจากเซลล์ได้อย่างรวดเร็วดังนี้:
ลบอักขระที่ไม่ใช่ตัวเลขด้วยรหัส VBA
เครื่องมือที่มีประโยชน์ในการลบอักขระที่ไม่ใช่ตัวเลขได้ด้วยคลิกเดียว
ลบอักขระที่ไม่ใช่ตัวเลขด้วยรหัส VBA
หากต้องการลบอักขระที่ไม่ใช่ตัวเลขออกจากช่วงที่มีรหัส VBA โปรดทำดังนี้:
1. คลิก ผู้พัฒนา > ของ Visual Basic เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง. ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกและวางรหัสต่อไปนี้ลงในโมดูล:
VBA: ลบอักขระที่ไม่ใช่ตัวเลขทั้งหมด
Sub RemoveNotNum()
'Updateby Extendoffice
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 "[0-9]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
2. จากนั้นคลิกปุ่ม ปุ่มเพื่อเรียกใช้รหัสในป๊อปอัพ KutoolsforExcel กล่องโต้ตอบเลือกช่วงที่มีอักขระที่ไม่ใช่ตัวเลขที่คุณต้องการลบจากนั้นคลิกที่ไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:
3. จากนั้นอักขระที่ไม่ใช่ตัวเลขทั้งหมดในช่วงที่เลือกจะถูกลบออก
หากตัวเลขที่มีจุดทศนิยมคุณสามารถใช้ VBA ต่อไปนี้:
Sub RemoveNotNum()
'Updateby Extendoffice
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 "[0-9.]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
คุณสามารถดูผลลัพธ์ตามภาพด้านล่างที่แสดง:
เครื่องมือที่มีประโยชน์ในการลบอักขระที่ไม่ใช่ตัวเลขได้ด้วยคลิกเดียว
สำหรับการลบอักขระที่ไม่ใช่ตัวเลขในช่วง Kutools สำหรับ Excel's ลบอักขระ ยูทิลิตี้สามารถทำได้ด้วยคลิกเดียว
Kutools สำหรับ Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน. |
หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:
1. เน้นช่วงที่คุณต้องการลบอักขระที่ไม่ใช่ตัวเลข คลิก Kutools > ข้อความ > ลบอักขระ.
2. ใน ลบอักขระ ให้ทำเครื่องหมายที่ ไม่ใช่ตัวเลข ตัวเลือกใน ลบอักขระ แล้วคลิกไฟล์ OK or ใช้ ปุ่ม. และอักขระที่ไม่ใช่ตัวเลขจะถูกลบออกจากการเลือกทันที ดูภาพหน้าจอ:
คลิกเพื่อดาวน์โหลด Kutools สำหรับ Excel และทดลองใช้ฟรีทันที!
สำหรับข้อมูลเพิ่มเติมเกี่ยวกับ ลบอักขระ ของ Kutools for Excel โปรดไปที่ ลบคำอธิบายคุณสมบัติของตัวละคร
การสาธิต: ลบอักขระที่เป็นตัวเลขตัวอักษรไม่สามารถพิมพ์ได้หรือตัวอักษรและตัวเลขคละกันออกจากเซลล์
บทความที่เกี่ยวข้อง:
- ลบอักขระอัลฟาออกจากเซลล์
- ลบอักขระตัวเลขออกจากเซลล์
- ลบอักขระที่ไม่สามารถพิมพ์ได้ออกจากเซลล์
- ลบอักขระที่ไม่ใช่อัลฟาออกจากเซลล์
- ลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษร
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!