Vba: วิธีลบตัวเลขออกจากสตริง

คุณสามารถสร้างฟังก์ชันต่อไปนี้ใน VBA เพื่อลบตัวเลขออกจากสตริงในเซลล์ใน Excel:

 Function RemoveNumbers(CellText As String) As String

With CreateObject(" VBScript.RegExp ")
    .Global = True
    .Pattern = " [0-9] "
    RemoveNumbers = .Replace(CellText, "")
End With

End Function

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

ตัวอย่างต่อไปนี้แสดงวิธีใช้ฟังก์ชันนี้ในทางปฏิบัติ

ตัวอย่าง: ลบตัวเลขออกจากสตริงโดยใช้ VBA

สมมติว่าเรามีรายการรหัสพนักงานต่อไปนี้ใน Excel:

สมมติว่าเราต้องการลบตัวเลขออกจากแต่ละสตริงในคอลัมน์ รหัสพนักงาน

เราสามารถสร้างฟังก์ชันต่อไปนี้ใน VBA เพื่อทำสิ่งนี้:

 Function RemoveNumbers(CellText As String) As String

With CreateObject(" VBScript.RegExp ")
    .Global = True
    .Pattern = " [0-9] "
    RemoveNumbers = .Replace(CellText, "")
End With

End Function

เมื่อเราสร้างฟังก์ชันนี้แล้ว เราสามารถพิมพ์สูตรต่อไปนี้ในเซลล์ B2 เพื่อส่งคืนหมายเลขพนักงานในเซลล์ A2 โดยลบตัวเลขทั้งหมดออก:

 =RemoveNumbers( A2 )

จากนั้นเราสามารถคลิกและลากสูตรนี้ไปยังแต่ละเซลล์ที่เหลือในคอลัมน์ B:

คอลัมน์ B จะแสดงแต่ละสตริงในคอลัมน์ A โดยลบตัวเลขออก

ตัวอย่างเช่น:

• 4009แอนดี้ กลายเป็น แอนดี้
• 1540บ๊อบ กลายเป็น บ๊อบ
• 1500Chad09 กลายเป็น ชาด
• 16.00ดั๊ก กลายเป็น ดั๊ก

และอื่นๆ

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีดำเนินการงานทั่วไปอื่นๆ โดยใช้ VBA:

VBA: วิธีนับจำนวนอักขระในสตริง
VBA: วิธีตรวจสอบว่าสตริงมีสตริงอื่นหรือไม่
VBA: วิธีนับเซลล์ด้วยข้อความเฉพาะ