10 วิธีลบตัวอักษรออกจากเซลล์ Excel อย่างรวดเร็ว

บทความนี้รวบรวม 10 วิธี ลบตัวอักษร (Letters) ออกจากเซลล์ ใน Excel ใช้คำสั่ง สูตร และ VBA

ดาวน์โหลดสมุดงาน

ดาวน์โหลดไฟล์ Excel ฟรีเพื่อฝึกปฏิบัติ

10 วิธีลบตัวอักษรจากเซลล์ใน Excel

1. Find & Replace (หาและแทนที่) - ง่ายที่สุด

ลบ "WWE" ออกจากรหัสในคอลัมน์ Code เหลือแค่ตัวเลข

ขั้นตอน:

1. เลือกข้อมูล → Home → Find & Select → Replace
2. Find what: WWE | Replace with: (เว้นว่าง)
3. Replace All

ผล: "WWE" หายไป เหลือตัวเลข

2. SUBSTITUTE Function - ปลอดภัยและควบคุมได้

สูตร: =SUBSTITUTE(cell, "old_text", "new_text")

เซลล์ C5: =SUBSTITUTE(C5,"WWE","") → Enter → ลาก Fill Handle

3. SUBSTITUTE + Instance Number - ลบเฉพาะครั้งที่ n

เก็บ W ตัวแรกไว้ ลบ WE ที่เหลือ: =SUBSTITUTE(C5,"WE","",1)

พารามิเตอร์ตัวที่ 4 = Instance number (1=ครั้งแรก, 2=ครั้งที่สอง...)

4. Nested SUBSTITUTE - ลบตัวอักษรหลายตัวพร้อมกัน

ลบ W และ E พร้อมกัน: =SUBSTITUTE(SUBSTITUTE(C5,"W",""),"E","")

5. ลบตัวอักษรนำหน้าหรือท้ายด้วย LEFT/RIGHT/MID

5.1 ลบตัวแรก 3 ตัว: =RIGHT(C5, LEN(C5)-3)

5.2 ลบตัวท้าย 2 ตัว: =LEFT(C5, LEN(C5)-2)

5.3 ลบทั้งหน้าและหลัง (เก็บกลาง): =MID(C5,3,LEN(C5)-4)

6. Array Formula - ลบตัวอักษรทั้งหมด เหลือแค่ตัวเลข

สูตร Array (กด Ctrl+Shift+Enter ใน Excel เก่า):

=SUM(MID(0&C5,LARGE(INDEX(ISNUMBER(--MID(C5,ROW($1:$99),1))*ROW($1:$99),),ROW($1:$99))+1,1)*10^ROW($1:$99)/10)

หมายเหตุ: ลบทุกอย่างยกเว้นตัวเลข (รวมอักขระพิเศษ) หากไม่มีตัวเลข คืน 0

7. VBA User-Defined Functions (UDF)

7.1 ลบตัวแรก N ตัว: DeleteFirstL(Irng, Icnt) → =DeleteFirstL(B5,3)

Public Function DeleteFirstL(Irng As String, Icnt As Long)
    DeleteFirstL = Right(Irng, Len(Irng) - Icnt)
End Function

7.2 ลบตัวท้าย N ตัว: DeleteLastL(Irng, Icnt) → =DeleteLastL(B5,2)

Public Function DeleteLastL(Irng As String, Icnt As Long)
    DeleteLastL = Left(Irng, Len(Irng) - Icnt)
End Function

7.3 ลบตัวอักษรทั้งหมด (Regex): DeleteLetter(iTxt) → =DeleteLetter(B5)

Function DeleteLetter(iTxt As String) As String
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "\D"  ' Non-digit
        DeleteLetter = .Replace(iTxt, "")
    End With
End Function

8. Text to Columns (Fixed Width)

Data → Text to Columns → Fixed Width → ลากเส้นแบ่งครอบคลุมตัวอักษรที่ต้องการลบ → Next → Finish

9. Flash Fill (Ctrl+E)

พิมพ์ผลลัพธ์ที่ต้องการในเซลล์ข้างเคียง (เช่น 101 จาก WWE101) → เลือกช่วง → Data → Flash Fill (Ctrl+E)

สรุป

10 วิธีลบตัวอักษร: 1) Find & Replace 2) SUBSTITUTE 3) SUBSTITUTE Instance 4) Nested SUBSTITUTE 5) LEFT/RIGHT/MID 6) Array Formula (เก็บแค่ตัวเลข) 7) VBA UDF (DeleteFirstL, DeleteLastL, DeleteLetter Regex) 8) Text to Columns 9) Flash Fill เลือกตามความต้องการ: จำนวนมาก ใช้ VBA/Array; ครั้งเดียว ใช้ Find Replace/Flash Fill

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

• How to Delete Defined Names in Excel (3 Ways)