วิธีลบอักขระอัลฟาออกจากเซลล์ใน Excel

สมมติว่าคุณต้องลบอักขระอัลฟ่าทั้งหมดออกจากช่วงใน Excel เช่นข้อมูลหนึ่งในเซลล์อาจเป็น "ลูเคส 13654698745” และคุณต้องการให้เป็น“13654698745” คุณจะลบอักขระอัลฟ่าทั้งหมดออกจากเซลล์อย่างรวดเร็วได้อย่างไร มีแนวคิดดีๆในการจัดการกับปัญหานี้หรือไม่?

ลบอักขระอัลฟาทั้งหมดออกจากเซลล์ด้วยรหัส VBA

หากต้องการลบอักขระอัลฟาทั้งหมดด้วย Kutools for Excel เพียงคลิกเดียว

ลบอักขระอัลฟาทั้งหมดออกจากเซลล์ด้วยรหัส VBA

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

1 คลิก ผู้พัฒนา>ของ Visual Basic หรือกด Alt + F11 เพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างจะปรากฏขึ้นให้คลิก สิ่งที่ใส่เข้าไป > โมดูลและป้อนรหัสต่อไปนี้:

VBA: ลบอักขระอัลฟา:

Sub RemoveAlphas()
'Updateby20131129
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.]" Then
            xStr = ""
        Else
            xStr = xTemp
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

3 จากนั้นคลิก  ปุ่มเพื่อเรียกใช้รหัส และกล่องโต้ตอบป๊อปอัปให้คุณเลือกช่วงที่จะทำงานดูภาพหน้าจอ:

.

4 คลิก OKและอักขระอัลฟาทั้งหมดถูกลบออก

หากต้องการลบอักขระอัลฟาทั้งหมดด้วย Kutools for Excel เพียงคลิกเดียว

Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน Get it Now

โปรดใช้ยูทิลิตี้นี้โดยคลิก Kutools > ข้อความ > ลบอักขระดูภาพหน้าจอ:

ขั้นตอนที่ 1. เลือกช่วงที่คุณต้องการใช้งาน

ขั้นตอนที่ 2 คลิก Kutools > เครื่องมือข้อความในกลุ่มการแก้ไข > ลบอักขระและตรวจสอบ Alpha ในป๊อปอัป ลบอักขระ กล่องโต้ตอบดูภาพหน้าจอ:

ขั้นตอนที่ 3 คลิก Ok or สมัครสมาชิก เพื่อลบอัลฟ่าทั้งหมดในช่วง

ยูทิลิตี้นี้ยังสามารถลบอักขระตัวเลขอักขระที่ไม่ใช่ตัวเลขอักขระที่ไม่พิมพ์และอื่น ๆ

สำหรับข้อมูลเพิ่มเติมเกี่ยวกับ ลบตัวละคร ของ Kutools for Excel โปรดไปที่: ลบอักขระ.

บทความญาติ:

ลบอักขระที่ไม่ใช่ตัวเลขออกจากเซลล์

ลบอักขระตัวเลขออกจากเซลล์

ลบอักขระที่ไม่สามารถพิมพ์ได้ออกจากเซลล์

ลบอักขระที่ไม่ใช่อัลฟาออกจากเซลล์

ลบอักขระที่ไม่ใช่ตัวเลขและตัวอักษร