Excel ลบอักขระ คำ ตัวเลข ออกจากสตริงข้อความ

สมมติว่า คุณมีรายการสตริงข้อความยาวซึ่งประกอบด้วยอักขระ ตัวเลข หรือสัญลักษณ์เฉพาะอื่นๆ ในบางกรณี คุณอาจต้องลบอักขระบางตัวตามตำแหน่ง เช่น จากขวา ซ้าย หรือตรงกลาง จากสตริงข้อความ หรือลบอักขระที่ไม่ต้องการบางตัว ตัวเลขออกจากรายการสตริง การหาวิธีแก้ปัญหาทีละอย่างจะทำให้คุณปวดหัว บทช่วยสอนนี้รวบรวมวิธีการทุกประเภทในการลบอักขระ คำหรือตัวเลขใน Excel

---

ลบอักขระจากซ้าย ขวา หรือตรงกลางของสตริงข้อความ

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

1.1 ลบอักขระ n ตัวแรกออกจากสตริงข้อความ

หากคุณต้องการลบอักขระ n ตัวแรกออกจากรายการสตริงข้อความ วิธีต่อไปนี้อาจช่วยคุณได้

 โดยใช้สูตร

โดยปกติ ในการลบอักขระจากจุดเริ่มต้นของสตริงข้อความ คุณสามารถใช้ฟังก์ชัน REPLACE หรือฟังก์ชัน RIGHT และ LEN ร่วมกัน

ฟังก์ชัน REPLACE เพื่อลบอักขระ N ตัวแรก:

• เชือก: สตริงข้อความที่คุณต้องการลบอักขระออก
• num_chars: จำนวนอักขระที่คุณต้องการลบ

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

ฟังก์ชัน RIGHT และ LEN เพื่อลบอักขระ N ตัวแรก:

• เชือก: สตริงข้อความที่คุณต้องการลบอักขระออก
• num_chars: จำนวนอักขระที่คุณต้องการลบ

หากต้องการลบอักขระ 2 ตัวแรกออกจากเซลล์ โปรดใช้สูตรต่อไปนี้:

---

 โดยใช้ User Defined Function

ในการลบอักขระ n ตัวแรกออกจากเซลล์ คุณยังสามารถสร้าง User Defined Function เพื่อแก้ปัญหานี้ได้ โปรดทำตามขั้นตอนต่อไปนี้:

1. กด Alt + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในหน้าต่างโมดูล

รหัส VBA: ลบอักขระ n ตัวแรกออกจากสตริงข้อความ

Function removeFirstx(rng As String, cnt As Long)
'Updateby Extendoffice
removeFirstx = Right(rng, Len(rng) - cnt)
End Function

3. จากนั้นกลับไปที่แผ่นงานจากนั้นป้อนสูตรนี้: = removefirstx (A4,2) ลงในเซลล์ว่างจากนั้นลากที่จับเติมลงเพื่อให้ได้ผลลัพธ์ตามที่คุณต้องการดูภาพหน้าจอ:

หมายเหตุ: ในสูตรนี้: A4 เป็นเซลล์ที่คุณต้องการลบอักขระออก จำนวน 2 ระบุจำนวนอักขระที่คุณต้องการลบออกจากจุดเริ่มต้นของสตริงข้อความ

---

1.2 ลบอักขระ n ตัวสุดท้ายออกจากสตริงข้อความ

หากต้องการลบจำนวนอักขระที่ระบุออกจากด้านขวาของสตริงข้อความ คุณสามารถใช้สูตรหรือฟังก์ชันที่กำหนดโดยผู้ใช้

 โดยใช้สูตร

หากต้องการลบอักขระ n ตัวสุดท้ายออกจากสตริงข้อความ คุณสามารถใช้สูตรโดยยึดตามฟังก์ชัน LEFT และ LEN

ฟังก์ชัน LEFT และ LEN เพื่อลบอักขระ N ตัวสุดท้าย:

• เชือก: สตริงข้อความที่คุณต้องการลบอักขระออก
• num_chars: จำนวนอักขระที่คุณต้องการลบ

หากต้องการลบอักขระ 3 ตัวออกจากส่วนท้ายของสตริงข้อความ โปรดใช้สูตรนี้ จากนั้นลากที่จับเติมเพื่อคัดลอกสูตรไปยังเซลล์อื่น ดูภาพหน้าจอ:

---

 โดยใช้ User Defined Function

ที่นี่ User Defined Function สามารถช่วยคุณลบอักขระ n ตัวสุดท้ายออกจากรายการเซลล์ โปรดดำเนินการดังนี้:

1. กด Alt + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในหน้าต่างโมดูล

รหัส VBA: ลบอักขระ n ตัวสุดท้ายออกจากสตริงข้อความ

Function removeLastx(rng As String, cnt As Long)
'Updateby Extendoffice
removeLastx = Left(rng, Len(rng) - cnt)
End Function

3. จากนั้นกลับไปที่แผ่นงานและป้อนสูตรนี้: = removelastx (A4,3) ลงในเซลล์ว่างจากนั้นลากที่จับเติมลงเพื่อให้ได้ผลลัพธ์ตามที่คุณต้องการดูภาพหน้าจอ:

หมายเหตุ: ในสูตรนี้: A4 เป็นเซลล์ที่คุณต้องการลบอักขระออก จำนวน 3 ระบุจำนวนอักขระที่คุณต้องการลบออกจากส่วนท้ายของสตริงข้อความ

---

1.3 ลบอักขระตัวแรก ตัวสุดท้าย n หรืออักขระตำแหน่งบางตัวโดยใช้คุณสมบัติอันทรงพลัง

มันอาจจะเจ็บปวดสำหรับคุณที่จะจำสูตรต่างๆ เพื่อลบอักขระจากซ้าย ขวา หรือตำแหน่งเฉพาะของสตริงข้อความ Kutools สำหรับ Excel รองรับคุณสมบัติอันทรงพลัง - ลบตามตำแหน่ง. ด้วยเครื่องมือขนาดเล็กนี้ คุณสามารถจัดการงานเหล่านี้ได้ด้วยการคลิกเพียงไม่กี่ครั้งโดยไม่ต้องจำสูตรใดๆ

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:

1. เลือกเซลล์ที่คุณต้องการเอาอักขระออก จากนั้นคลิก Kutools > ข้อความ > ลบตามตำแหน่งดูภาพหน้าจอ:

2. ใน ลบตามตำแหน่ง โปรดดำเนินการดังต่อไปนี้:

2.1 ลบอักขระ n ตัวแรกออกจากเซลล์:

• In เบอร์ กล่องข้อความ พิมพ์จำนวนอักขระที่คุณต้องการลบออกจากสตริง ในตัวอย่างนี้ ฉันจะลบอักขระ 2 ตัวแรก
• เลือก จากซ้าย ตัวเลือกใน ตำแหน่ง มาตรา.
• จากนั้นคลิก Ok or ใช้ เพื่อให้ได้ผลลัพธ์ดังภาพด้านล่างนี้

2.2 ลบอักขระ n ตัวสุดท้ายออกจากเซลล์:

• In เบอร์ กล่องข้อความ พิมพ์จำนวนอักขระที่คุณต้องการลบออกจากสตริง ในตัวอย่างนี้ ฉันจะลบอักขระ 3 ตัวสุดท้าย
• เลือก จากขวา ตัวเลือกใน ตำแหน่ง มาตรา.
• จากนั้นคลิก Ok or ใช้ เพื่อให้ได้ผลลัพธ์ดังภาพด้านล่างนี้

2.3 ลบอักขระ n ตัวออกจากตำแหน่งเฉพาะของเซลล์:

หากคุณต้องการลบอักขระจำนวนหนึ่งออกจากตำแหน่งที่แน่นอนของสตริงข้อความ เช่น การลบอักขระ 3 ตัวจะเริ่มต้นจากอักขระตัวที่สามของสตริง

• In เบอร์ กล่องข้อความ พิมพ์จำนวนอักขระที่คุณต้องการลบออกจากสตริง ในตัวอย่างนี้ ฉันจะลบอักขระ 3 ตัวออกจากตำแหน่งใดตำแหน่งหนึ่ง
• เลือก ระบุ และพิมพ์ตัวเลขที่คุณต้องการลบอักขระเริ่มต้นในกล่องข้อความของ ตำแหน่ง ส่วน. ที่นี่ ฉันจะลบอักขระออกจากอักขระตัวที่สาม
• จากนั้นคลิก Ok or ใช้ เพื่อให้ได้ผลลัพธ์ดังภาพด้านล่างนี้

ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!

---

1.4 ลบอักขระ n ตัวแรกและ n ตัวสุดท้ายออกจากสตริงข้อความด้วยสูตร

เมื่อคุณต้องการลบอักขระบางตัวทั้งสองด้านของสตริงข้อความใน Excel คุณสามารถรวมฟังก์ชัน MID และ LEN เพื่อสร้างสูตรสำหรับจัดการกับงานนี้

• เชือก: สตริงข้อความที่คุณต้องการลบอักขระออก
• left_chars: จำนวนอักขระที่จะลบจากด้านซ้าย
• right_chars: จำนวนอักขระที่จะลบออกจากด้านขวา

ตัวอย่างเช่น คุณต้องลบอักขระ 7 ตัวแรกและ 5 อักขระสุดท้ายออกจากสตริงข้อความพร้อมกัน โปรดป้อนสูตรต่อไปนี้ลงในเซลล์ว่าง:

หมายเหตุ: ในสูตรนี้: A4 เป็นเซลล์ที่คุณต้องการลบอักขระออก จำนวน 7 คือจำนวนอักขระที่คุณต้องการลบออกจากด้านซ้าย จำนวน 5 คือจำนวนอักขระที่คุณต้องการลบออกจากด้านขวา

จากนั้นลากที่จับเติมลงไปที่ตำแหน่งที่คุณต้องการใช้สูตรนี้ และคุณจะได้ผลลัพธ์ดังภาพด้านล่างนี้

---

ลบอักขระที่ไม่ต้องการ / พิเศษออกจากสตริงข้อความ

เมื่อนำเข้าข้อมูลจากที่อื่นไปยัง Excel อาจมีการวางอักขระพิเศษหรืออักขระที่ไม่ต้องการจำนวนมากลงในเวิร์กชีตของคุณ หากต้องการลบอักขระที่ไม่ต้องการเหล่านี้ออก เช่น #@$%^& ช่องว่าง ตัวเลข ตัวเลขที่ไม่ใช่ตัวเลข การขึ้นบรรทัดใหม่ ฯลฯ ส่วนนี้จะนำเสนอวิธีการที่เป็นประโยชน์บางอย่างเพื่อช่วยเหลือคุณ

2.1 ลบอักขระพิเศษบางตัวออกจากสตริงข้อความ

หากมีอักขระพิเศษบางตัว เช่น %^&*() ในสตริงข้อความ หากต้องการลบอักขระประเภทนี้ คุณสามารถใช้เทคนิคสามข้อด้านล่างนี้

 ลบอักขระพิเศษหลายตัวออกจากสตริงข้อความด้วยฟังก์ชัน SUBSTITUTE

โดยปกติ ใน Excel คุณสามารถซ้อนฟังก์ชัน SUBSTITUTE หลายฟังก์ชันเพื่อแทนที่อักขระเฉพาะแต่ละตัวโดยไม่มีค่าอะไรเลย ไวยากรณ์ทั่วไปคือ:

• string_cell: เซลล์มีสตริงข้อความที่คุณต้องการลบอักขระพิเศษออก
• ถ่าน1 ถ่าน2 ถ่าน3: อักขระที่ไม่ต้องการที่คุณต้องการลบ

ตอนนี้ โปรดคัดลอกหรือป้อนสูตรด้านล่างลงในเซลล์ว่าง:

จากนั้นลากที่จับเติมลงไปที่เซลล์ที่คุณต้องการใช้สูตรนี้ และอักขระที่ไม่ต้องการทั้งหมดที่คุณระบุจะถูกลบออกในครั้งเดียว ดูภาพหน้าจอ:

เคล็ดลับ: หากมีอักขระเพิ่มเติมที่คุณต้องการลบ คุณเพียงแค่ต้องซ้อนฟังก์ชัน SUBSTITUTE เพิ่มเติมภายในสูตร

---

 ลบอักขระพิเศษหลายตัวออกจากสตริงข้อความด้วย User Defined Function

ฟังก์ชัน SUBSTITUTE ที่ซ้อนกันด้านบนจะทำงานได้ดีถ้ามีอักขระพิเศษไม่กี่ตัวที่จะลบ แต่ถ้าคุณมีอักขระหลายสิบตัวที่จะลบ สูตรจะยาวเกินไปและจัดการได้ยาก ในกรณีนี้ ฟังก์ชันที่กำหนดโดยผู้ใช้ต่อไปนี้อาจช่วยให้คุณทำงานนี้เสร็จได้อย่างรวดเร็วและง่ายดาย

1. กด Alt + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางโค้ดต่อไปนี้ลงในหน้าต่างโมดูล

รหัส VBA: ลบอักขระพิเศษหลายตัวออกจากสตริงข้อความ

Function RemoveUnwantedChars(Str As String, xchars As String)
'Updateby Extendoffice
    For Index = 1 To Len(xchars)
        Str = Replace(Str, Mid(xchars, Index, 1), "")
    Next
    RemoveUnwantedChars = Str
End Function

3. จากนั้นปิดหน้าต่างโค้ดแล้วกลับไปที่เวิร์กชีตป้อนสูตรนี้ =ลบCharsที่ไม่ต้องการ(A2, $D$2) ลงในเซลล์ว่างที่จะส่งออกผลลัพธ์ จากนั้นลากที่จับเติมลงไปเพื่อให้ได้ผลลัพธ์ตามที่คุณต้องการ ดูภาพหน้าจอ:

หมายเหตุ: ในสูตรข้างต้น: A2 เป็นเซลล์ที่คุณต้องการลบอักขระออก $ D $ 2 มีอักขระพิเศษที่คุณต้องการลบ (คุณสามารถพิมพ์อักขระพิเศษอื่น ๆ ที่คุณต้องการได้)

---

 ลบอักขระพิเศษหลายตัวออกจากสตริงข้อความด้วยคุณสมบัติที่น่าทึ่ง

ถ้าคุณได้ติดตั้ง Kutools สำหรับ Excelเดียวกันกับที่ ลบอักขระ คุณสามารถลบอักขระได้ทุกประเภท เช่น อักขระตัวเลข อักขระอัลฟ่า อักขระที่ไม่พิมพ์...ออกจากรายการเซลล์ตามที่คุณต้องการ

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:

1. เลือกช่วงของเซลล์ที่คุณต้องการเอาอักขระพิเศษออก จากนั้นคลิก Kutools > ข้อความ > ลบอักขระดูภาพหน้าจอ:

2. ใน ลบอักขระ กล่องโต้ตอบ:

• ตรวจสอบ ประเพณี ภายใต้ ลบอักขระ มาตรา.
• จากนั้นป้อนอักขระพิเศษลงในกล่องข้อความที่คุณต้องการลบ
• จากนั้นคลิก Ok or ใช้ ปุ่มเพื่อลบอักขระที่คุณระบุในครั้งเดียว ดูภาพหน้าจอ:

ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!

---

2.2 ลบตัวเลขทั้งหมดออกจากสตริงข้อความ

หากคุณมีรายการสตริงข้อความที่ผสมกับตัวเลข ตัวอักษร และอักขระพิเศษ และตอนนี้ คุณเพียงแค่ต้องการลบตัวเลขทั้งหมดและเก็บอักขระอื่นๆ ไว้ ส่วนนี้จะให้ข้อมูลที่เป็นประโยชน์บางประการแก่คุณ

 ลบตัวเลขออกจากสตริงข้อความด้วยฟังก์ชัน SUBSTITUTE

ใน Excel ฟังก์ชัน SUBSTITUTE ที่ซ้อนกันสามารถช่วยแทนที่ตัวเลขทั้งหมดโดยไม่มีอะไรเกิดขึ้น ดังนั้น คุณสามารถใช้สูตรด้านล่างเพื่อลบตัวเลขทั้งหมดออกจากเซลล์ได้:

จากนั้นลากที่จับเติมลงไปที่เซลล์ที่คุณต้องการใช้สูตรนี้ และตัวเลขทั้งหมดจะถูกลบออกจากรายการสตริงข้อความ ดูภาพหน้าจอ:

---

 ลบตัวเลขออกจากสตริงข้อความด้วยฟังก์ชัน TEXTJOIN

ถ้าคุณมี Excel 2019, 2021 หรือ 365 ฟังก์ชัน TEXTJOIN ใหม่ยังสามารถช่วยในการเอาตัวเลขออกจากสตริงข้อความได้อีกด้วย

โปรดคัดลอกสูตรต่อไปนี้ลงในเซลล์ว่าง จากนั้นกด Ctrl + Shift + Enter คีย์พร้อมกันเพื่อให้ได้ผลลัพธ์แรก:

จากนั้นคัดลอกสูตรไปยังเซลล์อื่นด้านล่างที่คุณต้องการใช้สูตรนี้ ดูภาพหน้าจอ:

หมายเหตุ: TEXTJOIN นี้พร้อมใช้งานใน Excel 2019, 2021 และ Office 365 เท่านั้น

---

 ลบตัวเลขออกจากสตริงข้อความด้วย User Defined Function

นอกจากสองสูตรข้างต้นแล้ว User Defined Function ยังสามารถช่วยคุณได้ โปรดทำตามขั้นตอนต่อไปนี้:

1. กด Alt + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางโค้ดต่อไปนี้ลงในหน้าต่างโมดูล

รหัส VBA: ลบตัวเลขออกจากสตริงข้อความ

Function RemoveNumbers(Txt As String) As String
'Updateby Extendoffice
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "[0-9]"
RemoveNumbers = .Replace(Txt, "")
End With
End Function

3. จากนั้น ปิดและออกจากหน้าต่างโค้ด กลับไปที่เวิร์กชีต แล้วป้อนสูตรนี้: = RemoveNumbers (A2) ลงในเซลล์ว่าง จากนั้นลากที่จับเติมลงไปที่เซลล์ที่คุณต้องการใช้สูตรนี้ ดูภาพหน้าจอ:

---

 ลบตัวเลขออกจากสตริงข้อความด้วยตัวเลือกที่สะดวก

ถ้าคุณเบื่อกับสูตรที่ซับซ้อน ตอนนี้ ให้ฉันแสดงเครื่องมือง่าย ๆ ให้คุณดู – Kutools สำหรับ Excel's ลบอักขระ. ด้วยคุณสมบัติที่มีประโยชน์นี้ คุณสามารถทำงานนี้ให้สำเร็จได้ด้วยการคลิกเพียงไม่กี่ครั้ง

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:

1. เลือกช่วงของเซลล์ที่คุณต้องการเอาตัวเลขออก แล้วคลิก Kutools > ข้อความ > ลบอักขระ.

2. ใน ลบอักขระ โปรดดำเนินการดังต่อไปนี้:

• ตรวจสอบ เป็นตัวเลข ภายใต้ ลบอักขระ มาตรา.
• จากนั้นคลิก Ok or ใช้ ปุ่มเพื่อลบตัวเลขทันที ดูภาพหน้าจอ:

ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!

---

2.3 ลบอักขระที่ไม่ใช่ตัวเลขออกจากสตริงข้อความ

สำหรับการลบอักขระที่ไม่ใช่ตัวเลขทั้งหมดและเก็บเฉพาะตัวเลขจากสตริงข้อความ ส่วนนี้จะกล่าวถึงวิธีการบางอย่างในการแก้ปัญหานี้ใน Excel

 ลบอักขระที่ไม่ใช่ตัวเลขออกจากสตริงข้อความด้วยสูตรใน Excel 2016 และเวอร์ชันก่อนหน้า

หากคุณกำลังใช้ Excel 2016 หรือเวอร์ชันก่อนหน้า คุณควรใช้สูตรที่ซับซ้อนเพื่อให้ได้งานนี้ โปรดคัดลอกหรือป้อนสูตรด้านล่างลงในเซลล์ว่าง:

จากนั้นคัดลอกสูตรไปยังเซลล์อื่นด้านล่างที่คุณต้องการใช้สูตรนี้ ดูภาพหน้าจอ:

หมายเหตุ: หากตัวเลขในสตริงข้อความเริ่มต้นด้วย 0 เลข 0 จะหายไป

---

 ลบอักขระที่ไม่ใช่ตัวเลขออกจากสตริงข้อความด้วยฟังก์ชัน TEXTJOIN ใน Excel 2019, 2021, 365

สูตรข้างต้นอาจเข้าใจยากสำหรับพวกเราส่วนใหญ่ หากคุณมี Excel 2019, 2021 หรือ 365 มีสูตรเด็ดที่สามารถช่วยคุณได้

โปรดคัดลอกหรือป้อนสูตรต่อไปนี้ลงในเซลล์ว่าง แล้วกด Ctrl + Shift + Enter คีย์ร่วมกันเพื่อให้ได้ผลลัพธ์ที่ถูกต้องครั้งแรก:

จากนั้นลากที่จับเติมลงไปที่เซลล์ที่คุณจะใช้สูตรนี้และคุณจะได้ผลลัพธ์ดังภาพด้านล่าง:

หมายเหตุ: ด้วยสูตรนี้ คุณจะเห็น 0 นำหน้าจะถูกเก็บไว้เนื่องจากตัวเลขจะถูกส่งกลับเป็นข้อความ

---

 ลบอักขระที่ไม่ใช่ตัวเลขออกจากสตริงข้อความด้วย User Defined Function

แน่นอน คุณยังสามารถสร้าง User Defined Function ของคุณเองด้วยรูปแบบที่ง่ายกว่า โปรดทำดังนี้:

1. กด Alt + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางโค้ดต่อไปนี้ลงในหน้าต่างโมดูล

รหัส VBA: ลบอักขระที่ไม่ใช่ตัวเลขออกจากสตริงข้อความ

Function Removenonnumeric(str As String) As String
'Updateby Extendoffice
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[^0-9]"
        Removenonnumeric = .Replace(str, "")
    End With
End Function

3. จากนั้น ปิดและออกจากหน้าต่างโค้ด กลับไปที่เวิร์กชีต แล้วป้อนสูตรนี้: = ลบไม่ใช่ตัวเลข (A2) ลงในเซลล์ว่าง จากนั้นลากที่จับเติมลงไปที่เซลล์ที่คุณต้องการใช้สูตรนี้ ระบบจะดึงเฉพาะตัวเลขตามภาพหน้าจอด้านล่างนี้

---

 ลบอักขระที่ไม่ใช่ตัวเลขออกจากสตริงข้อความด้วยคุณสมบัติอย่างง่าย

หากต้องการลบอักขระที่ไม่ใช่ตัวเลขในช่วงของเซลล์โดยตรง Kutools สำหรับ Excel's ลบอักขระ ยูทิลิตี้สามารถทำได้ด้วยการคลิกเพียงไม่กี่ครั้ง

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:

1. เลือกช่วงของเซลล์ที่คุณต้องการเอาอักขระที่ไม่ใช่ตัวเลขออก แล้วคลิก Kutools > ข้อความ > ลบอักขระ.

2. ใน ลบอักขระ โปรดตั้งค่าการดำเนินการต่อไปนี้:

• ตรวจสอบ ไม่ใช่ตัวเลข ภายใต้ ลบอักขระ มาตรา.
• จากนั้นคลิก Ok or ใช้ ปุ่มเพื่อลบอักขระที่ไม่ใช่ตัวเลขทั้งหมดทันที ดูภาพหน้าจอ:

ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!

---

2.4 แยกข้อความและตัวเลขจากเซลล์หนึ่งเป็นสองคอลัมน์

บางครั้ง คุณอาจต้องการแยกข้อความและตัวเลขจากสตริงข้อความออกเป็นสองคอลัมน์ที่แยกจากกัน ด้วยวิธีการต่อไปนี้ คุณสามารถทำงานนี้ให้เสร็จสิ้นได้อย่างรวดเร็วและง่ายดาย

 แยกข้อความและตัวเลขจากเซลล์หนึ่งเป็นสองคอลัมน์ด้วย User Defined Function

เมื่อใช้ User Defined Function ต่อไปนี้ คุณสามารถแยกข้อความและตัวเลขได้พร้อมกัน โปรดทำตามขั้นตอนด้านล่าง:

1. กด Alt + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางโค้ดต่อไปนี้ลงในหน้าต่างโมดูล

รหัส VBA: แยกข้อความและตัวเลขจากสตริงข้อความออกเป็นสองคอลัมน์

Function SplitText(pWorkRng As Range, pIsNumber As Boolean) As String
'Updateby Extendoffice
Dim xLen As Long
Dim xStr As String
xLen = VBA.Len(pWorkRng.Value)
For i = 1 To xLen
    xStr = VBA.Mid(pWorkRng.Value, i, 1)
    If ((VBA.IsNumeric(xStr) And pIsNumber) Or (Not (VBA.IsNumeric(xStr)) And Not (pIsNumber))) Then
        SplitText = SplitText + xStr
    End If
Next
End Function

3. จากนั้น ปิดและออกจากหน้าต่างโค้ด กลับไปที่เวิร์กชีต แล้วป้อนสูตรนี้: = SplitText (A2, FALSE) ลงในเซลล์ว่าง แล้วลากที่จับเติมลงไปที่เซลล์ที่คุณต้องการเติมสูตรนี้เพื่อให้ได้ข้อความทั้งหมด ดูภาพหน้าจอ:

4. จากนั้นพิมพ์สูตรนี้ต่อไป: = SplitText (A2, TRUE) ลงในเซลล์อื่นแล้วลากที่จับเติมลงไปที่เซลล์ที่คุณต้องการเติมสูตรนี้เพื่อรับตัวเลขดูภาพหน้าจอ:

---

 แยกข้อความและตัวเลขจากเซลล์หนึ่งเป็นสองคอลัมน์ด้วยคุณสมบัติที่ใช้งานง่าย

ถ้าคุณมี Kutools สำหรับ Excelมัน แยกเซลล์ ยูทิลิตีสามารถช่วยคุณแบ่งเซลล์ออกเป็นหลายคอลัมน์หรือหลายแถวตามตัวคั่น ความกว้างที่ระบุ หรือข้อความและตัวเลข

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:

1. เลือกช่วงของเซลล์ที่คุณต้องการแยก จากนั้นคลิก Kutools > ผสานและแยก > แยกเซลล์ดูภาพหน้าจอ:

2. ใน แยกเซลล์ ใหเลือก แยกเป็นคอลัมน์ ภายใต้ ชนิดภาพเขียน จากนั้นตรวจสอบ ข้อความและตัวเลข จาก แยกตาม ส่วนดูภาพหน้าจอ:

3. จากนั้นคลิก Ok ปุ่มและอื่น ๆ แยกเซลล์ กล่องโต้ตอบจะเด้งออกมา เลือกเซลล์เพื่อส่งออกข้อความและตัวเลขที่แยกจากกัน จากนั้นคลิกปุ่ม OK ปุ่ม. ตอนนี้คุณสามารถเห็นข้อความและตัวเลขในเซลล์ที่เลือกถูกแบ่งออกเป็นสองคอลัมน์พร้อมกันดังที่แสดงด้านล่าง:

ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!

---

2.5 ลบอักขระตัวแบ่งบรรทัดออกจากสตริงข้อความ

ตัวแบ่งบรรทัดคือสิ่งที่ช่วยให้คุณมีหลายบรรทัดในเซลล์เดียวกันใน Excel บางครั้ง เมื่อคุณคัดลอกข้อมูลจากเว็บไซต์หรือแยกเนื้อหาในเซลล์ด้วย Alt + Enter คีย์ด้วยตนเอง คุณจะได้รับการขึ้นบรรทัดใหม่หรือการขึ้นบรรทัดใหม่ ในบางกรณี คุณอาจต้องการลบตัวแบ่งบรรทัดเพื่อให้เนื้อหาของเซลล์เป็นหนึ่งบรรทัดดังที่แสดงไว้ด้านล่างนี้ ในที่นี้ ฉันจะแนะนำวิธีการบางอย่างในการแก้ปัญหานี้ใน Excel

 ลบอักขระตัวแบ่งบรรทัดออกจากสตริงข้อความด้วยคุณสมบัติค้นหาและแทนที่

ใน Excel คุณสามารถใช้ไฟล์ ค้นหาและแทนที่ คุณลักษณะในการลบการขึ้นบรรทัดใหม่ โปรดทำดังนี้:

1. เลือกช่วงข้อมูลที่คุณต้องการเอาตัวแบ่งบรรทัดออก

2. จากนั้นคลิก หน้าแรก > ค้นหาและเลือก > แทนที่ (หรือกด Ctrl + H กุญแจ) เพื่อไป ค้นหาและแทนที่ กล่องโต้ตอบดูภาพหน้าจอ:

3. ในการโผล่ออกมา ค้นหาและแทนที่ โปรดดำเนินการดังต่อไปนี้:

• วางเคอร์เซอร์ในไฟล์ สิ่งที่ค้นหา สนามและกด Ctrl + J บนแป้นพิมพ์ คุณอาจไม่เห็นอะไรเลย แต่มีการแทรกอักขระตัวแบ่งบรรทัด
• ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร แทนที่ด้วย ให้เว้นช่องนี้ว่างไว้เพื่อลบการขึ้นบรรทัดใหม่หรือกดปุ่ม อวกาศr หนึ่งครั้งเพื่อแทนที่ตัวแบ่งบรรทัดด้วยช่องว่าง

4. จากนั้นคลิก แทนที่ทั้งหมด ปุ่ม ตัวแบ่งบรรทัดทั้งหมดในเซลล์ที่เลือกจะถูกลบออกหรือแทนที่ด้วยช่องว่างในครั้งเดียว ดูภาพหน้าจอ:

---

 ลบอักขระตัวแบ่งบรรทัดออกจากสตริงข้อความด้วยฟังก์ชัน SUBSTITUTE

คุณยังสามารถสร้างสูตรตามฟังก์ชัน SUBSTITUTE และ CHAR เพื่อลบการขึ้นบรรทัดใหม่ออกจากสตริงข้อความ

โปรดใช้สูตรด้านล่างเพื่อให้ได้ผลลัพธ์:

เคล็ดลับ: ฟังก์ชัน SUBSTITUTE ค้นหาและแทนที่อักขระ CHAR(10) ซึ่งแสดงถึงอักขระตัวแบ่งบรรทัดโดยไม่มีอะไรเกิดขึ้น ถ้าคุณต้องการให้ผลลัพธ์ถูกคั่นด้วยเครื่องหมายจุลภาคและช่องว่าง คุณสามารถใช้สูตรด้านล่าง:

---

 ลบอักขระตัวแบ่งบรรทัดออกจากสตริงข้อความด้วยรหัส VBA

หากคุณสะดวกที่จะใช้โค้ด VBA ที่นี่ยังมีรหัสให้คุณด้วย โปรดทำตามขั้นตอนต่อไปนี้

1. กด Alt + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางโค้ดต่อไปนี้ลงในหน้าต่างโมดูล

รหัส VBA: ลบตัวแบ่งบรรทัดออกจากสตริงข้อความ

Sub RemoveCarriage()
'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
    Rng.Value = Replace(Rng.Value, Chr(10), "")
Next
End Sub

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

4. จากนั้นคลิก OK ปุ่ม ตัวแบ่งบรรทัดทั้งหมดจะถูกลบออกจากช่วงข้อมูลที่เลือก

---

 ลบอักขระตัวแบ่งบรรทัดออกจากสตริงข้อความด้วยตัวเลือกอัจฉริยะ

ที่นี่ Kutools สำหรับ Excel's ลบอักขระ คุณลักษณะนี้ยังช่วยให้คุณสามารถลบการขึ้นบรรทัดใหม่ได้อย่างง่ายดาย

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:

1. เลือกช่วงของเซลล์ที่คุณต้องการเอาตัวแบ่งบรรทัดออก จากนั้นคลิก Kutools > ข้อความ > ลบอักขระ.

2. ใน ลบอักขระ โปรดตั้งค่าการดำเนินการต่อไปนี้:

• ตรวจสอบ พิมพ์ไม่ ภายใต้ ลบอักขระ มาตรา.
• จากนั้นคลิก Ok or ใช้ ปุ่มเพื่อลบตัวแบ่งบรรทัดทั้งหมดออกจากช่วงข้อมูลที่เลือก ดูภาพหน้าจอ:

ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!

---

2.6 ลบช่องว่าง (นำหน้า ต่อท้าย ส่วนเกิน หรือทั้งหมด) ออกจากสตริงข้อความ

การเผชิญปัญหาและการวางข้อความจากแหล่งภายนอกไปยังเวิร์กชีต Excel มักจะทำให้เกิดช่องว่างที่น่ารำคาญ การลบช่องว่างนำหน้า ต่อท้าย หรือส่วนเพิ่มเติมอื่นๆ ด้วยตนเองจะเป็นเรื่องที่น่าเบื่อหน่าย โชคดีที่ Excel มีเคล็ดลับง่ายๆ ในการจัดการกับงานนี้

 ลบช่องว่างส่วนเกิน (นำหน้า ต่อท้าย ส่วนเกิน) ออกจากสตริงข้อความด้วยฟังก์ชัน TRIM

ใน Excel หากต้องการลบช่องว่างนำหน้า ต่อท้าย และส่วนเกินออกจากสตริงข้อความ ฟังก์ชัน TRIM แบบง่ายสามารถช่วยคุณได้ ฟังก์ชันนี้จะลบช่องว่างทั้งหมด ยกเว้นช่องว่างเดียวระหว่างคำ

โปรดป้อนสูตรด้านล่างลงในเซลล์ว่าง:

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

---

 ลบช่องว่างทั้งหมดออกจากสตริงข้อความ

หากคุณต้องการลบช่องว่างทั้งหมดออกจากสตริงข้อความ ฟังก์ชัน SUBSTITUTE และคุณลักษณะ Find & Replace ต่อไปนี้สามารถช่วยคุณได้

โดยใช้ฟังก์ชัน SUBSTITUTE

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

จากนั้นลากที่จับเติมลงไปเพื่อคัดลอกสูตรนี้ไปยังเซลล์อื่นที่คุณต้องการ และช่องว่างทั้งหมดจะถูกลบออกดังภาพด้านล่างนี้

---

โดยใช้คุณสมบัติค้นหาและแทนที่

ในความเป็นจริง ค้นหาและแทนที่ คุณลักษณะใน Excel ยังสามารถช่วยกำจัดช่องว่างทั้งหมดจากเซลล์ที่เลือก โปรดทำตามขั้นตอนต่อไปนี้:

1. เลือกช่วงข้อมูลที่คุณต้องการลบช่องว่างทั้งหมด

2. จากนั้นคลิก หน้าแรก > ค้นหาและเลือก > แทนที่ (หรือกด Ctrl + H กุญแจ) เพื่อไปที่ ค้นหาและแทนที่ กล่องโต้ตอบ ในช่องเปิด ค้นหาและแทนที่ โปรดดำเนินการด้านล่าง:

• ข่าวประชา แถบพื้นที่ ใน สิ่งที่ค้นหา สนาม;
• ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร แทนที่ด้วย ฟิลด์ ปล่อยให้ฟิลด์นี้ว่างไว้

3. จากนั้นคลิก แทนที่ทั้งหมด ปุ่ม ช่องว่างทั้งหมดในเซลล์ที่เลือกจะถูกลบออกพร้อมกัน ดูภาพหน้าจอ:

---

 ลบช่องว่างทุกประเภทออกจากสตริงข้อความด้วยคุณสมบัติอันทรงพลัง

Kutools สำหรับ Excel มีคุณสมบัติที่ทรงพลัง - ลบ Spacesด้วยยูทิลิตี้นี้ คุณไม่เพียงแต่สามารถลบช่องว่างชั้นนำ ช่องว่างต่อท้าย ช่องว่างส่วนเกิน แต่ยังรวมถึงช่องว่างทั้งหมดจากช่วงที่เลือกไว้ในกล่องโต้ตอบเดียว ซึ่งจะเพิ่มประสิทธิภาพการทำงานของคุณ

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:

1. เลือกช่วงข้อมูลที่คุณจะลบช่องว่างออก จากนั้นคลิก Kutools > ข้อความ > ลบ Spaces. ดูภาพหน้าจอ:

2. ใน ลบ Spaces กล่องโต้ตอบ เลือกประเภทช่องว่างที่คุณต้องการลบออกจาก ประเภทช่องว่าง:

• ลบช่องว่างนำหน้า โปรดเลือก ช่องว่างชั้นนำ ตัวเลือก;
• ลบช่องว่างต่อท้าย โปรดเลือก ช่องว่างต่อท้าย ตัวเลือก;
• ลบช่องว่างนำหน้าและช่องว่างต่อท้ายพร้อมกัน โปรดเลือก ช่องว่างชั้นนำและต่อท้าย ตัวเลือก;
• ลบช่องว่างส่วนเกินทั้งหมด โปรดเลือก ช่องว่างส่วนเกินทั้งหมด ตัวเลือก;
• ลบช่องว่างทั้งหมด โปรดเลือก ช่องว่างทั้งหมด ตัวเลือก

3. จากนั้นคลิก Ok or ใช้ ปุ่ม คุณจะได้ผลลัพธ์ที่คุณต้องการ

ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!

---

ลบอักขระ / ข้อความก่อนหรือหลังอักขระที่ระบุ

ในส่วนนี้ ฉันจะแนะนำการดำเนินการบางอย่างสำหรับการลบข้อความหรืออักขระก่อนหรือหลังการเกิดขึ้นครั้งแรก ครั้งสุดท้าย หรือครั้งที่ n ของอักขระเฉพาะ

3.1 ลบข้อความก่อนหรือหลังอักขระเฉพาะตัวแรก

หากคุณต้องการลบข้อความก่อนหรือหลังอักขระเฉพาะตัวแรก เช่น เว้นวรรค เครื่องหมายจุลภาคจากรายการสตริงข้อความที่แสดงด้านล่างนี้ เราจะโพสต์วิธีให้คุณสองวิธีในที่นี้

 ลบข้อความก่อนอักขระตัวแรกที่ระบุด้วยสูตร

ในการลบข้อความหรืออักขระก่อนอักขระตัวแรก คุณสามารถสร้างสูตรตามฟังก์ชัน RIGHT, LEN และ FIND ได้ ไวยากรณ์ทั่วไปคือ:

• เซลล์: การอ้างอิงเซลล์หรือสตริงข้อความที่คุณต้องการลบข้อความ
• ถัง: ตัวคั่นเฉพาะที่คุณต้องการลบข้อความตาม

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

หมายเหตุ:ในสูตรข้างต้น: A2 คือเซลล์ที่คุณต้องการลบข้อความออก , เป็นอักขระเฉพาะที่คุณต้องการลบข้อความตาม คุณสามารถเปลี่ยนเป็นอักขระอื่นๆ ได้ตามต้องการ

---

 ลบข้อความหลังอักขระเฉพาะตัวแรกด้วยสูตร

ในการลบทุกอย่างหลังจากอักขระตัวแรก คุณสามารถใช้ฟังก์ชัน LEFT และ FIND เพื่อให้ได้ผลลัพธ์ ไวยากรณ์ทั่วไปคือ:

• เซลล์: การอ้างอิงเซลล์หรือสตริงข้อความที่คุณต้องการลบข้อความ
• ถัง: ตัวคั่นเฉพาะที่คุณต้องการลบข้อความตาม

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

---

3.2 ลบข้อความก่อนหรือหลังการเกิดขึ้นของอักขระครั้งที่ N

บางครั้ง สตริงข้อความมีหลายอินสแตนซ์ของตัวคั่นเฉพาะ คุณอาจต้องการลบอักขระทั้งหมดก่อนหรือหลังอินสแตนซ์เฉพาะ เช่น ตัวที่สอง สาม หรือสี่ ตามที่คุณต้องการ ในการจัดการกับการลบประเภทนี้ คุณสามารถใช้ลูกเล่นต่อไปนี้:

 ลบข้อความก่อนเกิด Nth ของอักขระที่มีสูตร

ในการลบข้อความก่อนการเกิด Nth ของอักขระเฉพาะ สูตรต่อไปนี้สามารถช่วยคุณได้ ไวยากรณ์ทั่วไปคือ:

• เซลล์: การอ้างอิงเซลล์หรือสตริงข้อความที่คุณต้องการลบข้อความ
• ถัง: ตัวคั่นเฉพาะที่คุณต้องการลบข้อความตาม;
• N: การเกิดขึ้นของตัวละครก่อนที่จะลบข้อความ

ตัวอย่างเช่น หากต้องการลบทุกอย่างก่อนเครื่องหมายจุลภาคที่สองออกจากสตริงข้อความ คุณควรใช้สูตรด้านล่าง:

หมายเหตุ:ในสูตรข้างต้น: A2 คือเซลล์ที่คุณต้องการลบข้อความออก , เป็นอักขระเฉพาะที่คุณต้องการลบข้อความตาม คุณสามารถเปลี่ยนเป็นอักขระอื่นๆ ได้ตามต้องการ 2 ระบุเครื่องหมายจุลภาคที่ n ก่อนหน้าที่คุณต้องการลบข้อความ

จากนั้นลากที่จับเติมเพื่อคัดลอกสูตรไปยังเซลล์อื่น ดูภาพหน้าจอ:

---

 ลบข้อความหลังจาก Nth เกิดขึ้นของอักขระที่มีสูตร

ในการลบข้อความหลังจากการเกิดขึ้นของตัวคั่นเฉพาะครั้งที่ N ฟังก์ชัน LEFT, SUBSTITUTE และ FIND สามารถช่วยคุณได้ ไวยากรณ์ทั่วไปคือ:

• เซลล์: การอ้างอิงเซลล์หรือสตริงข้อความที่คุณต้องการลบข้อความ
• ถัง: ตัวคั่นเฉพาะที่คุณต้องการลบข้อความตาม;
• N: การเกิดขึ้นของตัวละครหลังจากนั้นเพื่อลบข้อความ

เมื่อคุณเข้าใจไวยากรณ์พื้นฐานแล้ว โปรดคัดลอกหรือป้อนสูตรด้านล่างลงในเซลล์ว่าง:

หมายเหตุ:ในสูตรข้างต้น: A2 คือเซลล์ที่คุณต้องการลบข้อความออก , เป็นอักขระเฉพาะที่คุณต้องการลบข้อความตาม คุณสามารถเปลี่ยนเป็นอักขระอื่นๆ ได้ตามต้องการ 2 ระบุเครื่องหมายจุลภาคที่ n หลังจากนั้นคุณต้องการลบข้อความ

จากนั้นลากที่จับเติมเพื่อคัดลอกสูตรไปยังเซลล์อื่น และอักขระทั้งหมดหลังจากเครื่องหมายจุลภาคที่สองจะถูกลบออกพร้อมกัน ดูภาพหน้าจอ:

---

 ลบข้อความก่อนหรือหลังการเกิด Nth ของอักขระด้วยฟังก์ชัน User Defined

ดังที่คุณเห็น คุณสามารถแก้ไขกรณีต่างๆ ในการลบข้อความก่อนหรือหลังการเกิดอักขระที่ N ได้โดยใช้ฟังก์ชันดั้งเดิมของ Excel ในชุดค่าผสมต่างๆ ปัญหาคือคุณต้องจำสูตรที่ยุ่งยากเหล่านี้ ในกรณีนี้ ฉันจะสร้าง User Defined Function เพื่อให้ครอบคลุมทุกสถานการณ์ โปรดทำดังนี้:

1. กด Alt + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางโค้ดต่อไปนี้ลงในหน้าต่างโมดูล

รหัส VBA: ลบข้อความก่อนหรือหลังการเกิดอักขระที่ N

Function RemoveTextOccurrence(Str As String, Delimiter As String, Occurrence As Integer, IsAfter As Boolean)
Dim xStr As String
Dim xStrLen, xF, xIntStart As Integer
xStr = Str
xStrLen = Len(xStr)
xIntStart = 1
For xF = 1 To Occurrence
xIntStart = InStr(xIntStart + 1, xStr, Delimiter, vbTextCompare)
If (xIntStart = 0) Or (xIntStart < 0) Then
    If IsAfter Then
    RemoveTextOccurrence = xStr
    Else
    RemoveTextOccurrence = ""
    End If
    Exit Function
End If
Next
If IsAfter Then
    RemoveTextOccurrence = Mid(Str, 1, xIntStart - 1)
Else
    RemoveTextOccurrence = Mid(Str, xIntStart + 1)
End If
End Function

3. จากนั้น ปิดและออกจากหน้าต่างโค้ด กลับไปที่เวิร์กชีต ใช้สูตรต่อไปนี้:

ลบข้อความก่อนเกิดเครื่องหมายจุลภาคครั้งที่สอง:

ลบข้อความหลังจากการเกิดครั้งที่สองของเครื่องหมายจุลภาค

---

3.3 ลบข้อความก่อนหรือหลังการเกิดครั้งสุดท้ายของอักขระ

หากคุณต้องการลบข้อความทั้งหมดก่อนหรือหลังอักขระตัวสุดท้าย และปล่อยให้สตริงย่อยอยู่หลังหรือก่อนอักขระตัวสุดท้ายดังที่แสดงไว้ด้านล่างนี้ ส่วนนี้จะพูดถึงสูตรบางอย่างสำหรับการแก้ปัญหานี้

 ลบข้อความก่อนการเกิดขึ้นครั้งสุดท้ายของอักขระที่มีสูตร

ในการลบอักขระทั้งหมดก่อนการเกิดขึ้นครั้งสุดท้ายของอักขระ ไวยากรณ์ทั่วไปคือ:

• เซลล์: การอ้างอิงเซลล์หรือสตริงข้อความที่คุณต้องการลบข้อความ
• ถัง: ตัวคั่นเฉพาะที่คุณต้องการลบข้อความตาม;

ตอนนี้ ถ้าคุณต้องการลบข้อความก่อนที่จะเกิดจุลภาคครั้งสุดท้าย โปรดคัดลอกหรือป้อนสูตรด้านล่างลงในเซลล์ว่าง:

หมายเหตุ:ในสูตรข้างต้น: A2 คือเซลล์ที่คุณต้องการลบข้อความออก , เป็นอักขระเฉพาะที่คุณต้องการลบข้อความตาม คุณสามารถเปลี่ยนเป็นอักขระอื่นๆ ได้ตามต้องการ

จากนั้นลากที่จับเติมเพื่อคัดลอกสูตรไปยังเซลล์อื่น และอักขระทั้งหมดก่อนที่เครื่องหมายจุลภาคสุดท้ายจะถูกลบดังภาพด้านล่างนี้

---

 ลบข้อความหลังจากการเกิดขึ้นครั้งสุดท้ายของอักขระที่มีสูตร

ถ้าค่าของเซลล์ถูกคั่นด้วยจำนวนตัวแปรของตัวคั่น ตอนนี้ คุณต้องการลบทุกอย่างหลังจากอินสแตนซ์สุดท้ายของตัวคั่นนั้น ไวยากรณ์ทั่วไปคือ:

• เซลล์: การอ้างอิงเซลล์หรือสตริงข้อความที่คุณต้องการลบข้อความ
• ถัง: ตัวคั่นเฉพาะที่คุณต้องการลบข้อความตาม;

โปรดคัดลอกหรือป้อนสูตรด้านล่างลงในเซลล์ว่าง จากนั้นลากที่จับเติมลงไปเพื่อให้ได้ผลลัพธ์อื่นๆ ที่คุณต้องการ ดูภาพหน้าจอ:

หมายเหตุ:ในสูตรข้างต้น: A2 คือเซลล์ที่คุณต้องการลบข้อความออก , เป็นอักขระเฉพาะที่คุณต้องการลบข้อความตาม คุณสามารถเปลี่ยนเป็นอักขระอื่นๆ ได้ตามต้องการ

---

3.4 ลบข้อความระหว่างวงเล็บ

หากคุณมีรายการสตริงข้อความที่มีอักขระบางส่วนอยู่ในวงเล็บ ตอนนี้ คุณอาจต้องการลบอักขระทั้งหมดภายในวงเล็บ รวมทั้งวงเล็บตามที่แสดงไว้ด้านล่างนี้ ส่วนนี้จะพูดถึงเทคนิคบางอย่างในการแก้ปัญหานี้ใน Excel

 ลบข้อความระหว่างวงเล็บด้วยคุณสมบัติค้นหาและแทนที่

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

1. เลือกรายการข้อมูลที่คุณต้องการลบข้อความระหว่างวงเล็บ

2. จากนั้นคลิก หน้าแรก > ค้นหาและเลือก > แทนที่ (หรือกด Ctrl + H คีย์) เพื่อไปที่กล่องโต้ตอบค้นหาและแทนที่ใน ค้นหาและแทนที่ ไดอะล็อกบ็อกซ์ให้ดำเนินการดังต่อไปนี้:

• ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร สิ่งที่ค้นหา ฟิลด์ชนิด (*) ลงในกล่องข้อความ
• ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร แทนที่ด้วย ฟิลด์ ปล่อยให้ฟิลด์นี้ว่างไว้

3. จากนั้นคลิก แทนที่ทั้งหมด ปุ่ม อักขระทั้งหมดภายในวงเล็บ (รวมทั้งวงเล็บ) ในเซลล์ที่เลือกจะถูกลบออกในครั้งเดียว ดูภาพหน้าจอ:

เคล็ดลับ: ค้นหาและแทนที่ คุณลักษณะยังใช้ได้กับวงเล็บตั้งแต่สองคู่ขึ้นไปภายในสตริงข้อความ

---

 ลบข้อความระหว่างวงเล็บด้วยสูตร

นอกจากคุณลักษณะ ค้นหาและแทนที่ คุณยังสามารถใช้สูตรสำหรับแก้ปัญหานี้ใน Excel ได้ ไวยากรณ์ทั่วไปคือ:

• ข้อความ: สตริงข้อความหรือการอ้างอิงเซลล์ที่คุณต้องการลบอักขระออก

ตอนนี้ โปรดคัดลอกหรือป้อนสูตรต่อไปนี้ลงในเซลล์ว่างที่คุณต้องการรับผลลัพธ์:

จากนั้นลากที่จับเติมลงไปที่เซลล์ที่คุณต้องการใช้สูตรนี้ และข้อความทั้งหมดภายในวงเล็บรวมทั้งวงเล็บจะถูกลบออกพร้อมกัน ดูภาพหน้าจอ:

เคล็ดลับ: หากไม่มีวงเล็บในค่าของเซลล์ ข้อผิดพลาดจะปรากฏขึ้นหลังจากใช้สูตรข้างต้นแล้ว เพื่อละเว้นข้อผิดพลาด โปรดใช้สูตรด้านล่าง:

---

 ลบข้อความระหว่างวงเล็บด้วย User Defined Function

สูตรข้างต้นใช้ได้ดีในการลบข้อความออกจากวงเล็บหนึ่งคู่ หากคุณต้องการลบข้อความออกจากวงเล็บหลายคู่ภายในสตริงข้อความ สูตรจะทำงานไม่ถูกต้อง ที่นี่ ฉันจะสร้าง User Defined Function แบบง่ายๆ เพื่อแก้ปัญหานี้

1. กด Alt + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางโค้ดต่อไปนี้ลงในหน้าต่างโมดูล

รหัส VBA: ลบข้อความระหว่างวงเล็บ

Function remtxt(ByVal str As String) As String
'Updateby Extendoffice
  While InStr(str, "(") > 0 And InStr(str, ")") > InStr(str, "(")
    str = Left(str, InStr(str, "(") - 1) & Mid(str, InStr(str, ")") + 1)
  Wend
  remtxt = Trim(str)
End Function

3. จากนั้น กลับไปที่เวิร์กชีต และป้อนสูตรนี้ลงในเซลล์ว่าง: = remtxt (A2)จากนั้นลากที่จับเติมลงไปที่เซลล์ที่คุณต้องการใช้สูตรนี้ ข้อความทั้งหมดภายในวงเล็บทั้งหมดรวมทั้งวงเล็บจะถูกลบออกดังภาพด้านล่างนี้

---

ลบคำออกจากสตริงข้อความ

ในบางกรณี คุณอาจต้องการเอาบางคำออกจากรายการเซลล์ เช่น คำแรกหรือคำสุดท้าย ทำซ้ำคำจากเซลล์ สำหรับการแก้ปัญหาการลบประเภทนี้ ในส่วนนี้จะแนะนำวิธีการบางอย่างสำหรับคุณ

4.1 ลบคำแรกหรือคำสุดท้ายออกจากสตริงข้อความ

หากต้องการลบคำแรกหรือคำสุดท้ายออกจากรายการสตริงข้อความ สูตรต่อไปนี้อาจช่วยคุณได้

 ลบคำแรกออกจากสตริงข้อความด้วยสูตร

ลบคำแรกออกจากรายการสตริงข้อความ คุณสามารถสร้างสูตรอย่างง่ายโดยยึดตามฟังก์ชัน RIGHT, LEN และ FIND ไวยากรณ์ทั่วไปคือ:

• ข้อความ: สตริงข้อความหรือการอ้างอิงเซลล์ที่คุณต้องการลบคำแรกออก

ตอนนี้โปรดป้อนหรือคัดลอกสูตรต่อไปนี้ลงในเซลล์ว่าง:

จากนั้นลากที่จับเติมลงไปเพื่อใช้สูตรกับเซลล์อื่น ดูภาพหน้าจอ:

เคล็ดลับ: หากคุณต้องการลบ N คำแรกออกจากเซลล์ โปรดใช้สูตรด้านล่าง:

• ข้อความ: สตริงข้อความหรือการอ้างอิงเซลล์ที่คุณต้องการลบ n คำแรกออกจาก
• N: ระบุจำนวนคำที่คุณต้องการลบออกจากจุดเริ่มต้นของสตริงข้อความ

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

---

 ลบคำสุดท้ายออกจากสตริงข้อความด้วยสูตร

ในการลบคำสุดท้ายออกจากสตริงข้อความ คุณยังสามารถใช้สูตรเพื่อแก้ปัญหานี้ได้ ไวยากรณ์ทั่วไปคือ:

• ข้อความ: สตริงข้อความหรือการอ้างอิงเซลล์ที่คุณต้องการลบคำสุดท้ายออก

โปรดใช้สูตรด้านล่างในเซลล์ว่าง จากนั้นลากที่จับเติมลงไปเพื่อใช้สูตรกับเซลล์อื่น ดูภาพหน้าจอ:

เคล็ดลับ: ในการลบ N คำสุดท้ายออกจากรายการเซลล์ ไวยากรณ์ทั่วไปคือ:

• ข้อความ: สตริงข้อความหรือการอ้างอิงเซลล์ที่คุณต้องการลบ n คำสุดท้ายออกจาก
• N: ระบุจำนวนคำที่คุณต้องการลบออกจากส่วนท้ายของสตริงข้อความ

สมมติว่า หากต้องการลบ 3 คำสุดท้ายออกจากรายการเซลล์ โปรดใช้สูตรด้านล่างเพื่อส่งคืนผลลัพธ์ ดูภาพหน้าจอ:

---

4.2 ลบอักขระหรือคำที่ซ้ำกันภายในเซลล์

เมื่อลบค่าหรือแถวที่ซ้ำกัน Excel จะมีตัวเลือกที่แตกต่างกันออกไป แต่เมื่อต้องการลบอักขระหรือคำที่ซ้ำกันภายในเซลล์ที่กำหนด อาจไม่มีฟีเจอร์ในตัวที่ดีสำหรับการแก้ไข ในกรณีนี้ ส่วนนี้จะช่วยสร้างฟังก์ชันที่กำหนดโดยผู้ใช้เพื่อจัดการกับปริศนานี้

 ลบอักขระที่ซ้ำกันภายในเซลล์โดยใช้ User Defined Function

หากคุณมีอักขระตัวเดียวกันหลายครั้งในเซลล์ หากต้องการลบอักขระที่ซ้ำกันภายในเซลล์และเก็บเฉพาะการเกิดขึ้นครั้งแรกดังที่แสดงไว้ด้านล่างนี้ คุณสามารถใช้ฟังก์ชันที่กำหนดโดยผู้ใช้ต่อไปนี้

1. กด Alt + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางโค้ดต่อไปนี้ลงในหน้าต่างโมดูล

รหัส VBA: ลบอักขระที่ซ้ำกันภายในเซลล์

Function RemoveDupeschars(pWorkRng As Range) As String
'Updateby Extendoffice
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
    xChar = VBA.Mid(xValue, i, 1)
    If xDic.Exists(xChar) Then
    Else
        xDic(xChar) = ""
        xOutValue = xOutValue & xChar
    End If
Next
RemoveDupeschars = xOutValue
End Function

3. จากนั้นปิดหน้าต่างโค้ด กลับไปที่เวิร์กชีต แล้วป้อนสูตรนี้ = ลบDupeschars(A2) ลงในเซลล์ว่างนอกเหนือจากข้อมูลของคุณ แล้วลากที่จับเติมไปยังเซลล์ที่คุณต้องการใช้สูตรนี้ ดูภาพหน้าจอ:

หมายเหตุ: A2 เป็นเซลล์ข้อมูลที่คุณต้องการลบอักขระที่ซ้ำกันออก

ปลาย: ฟังก์ชันนี้คำนึงถึงขนาดตัวพิมพ์ ดังนั้นให้ถือว่าตัวพิมพ์เล็กและตัวพิมพ์ใหญ่เป็นอักขระที่ต่างกัน

---

 ลบคำที่ซ้ำกันภายในเซลล์โดยใช้ User Defined Function

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

1. กด Alt + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางโค้ดต่อไปนี้ลงในหน้าต่างโมดูล

รหัส VBA: ลบคำที่ซ้ำกันภายในเซลล์

Function RemoveDupeswords(txt As String, Optional delim As String = " ") As String
'Updateby Extendoffice
    Dim x
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        For Each x In Split(txt, delim)
            If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
        Next
        If .Count > 0 Then RemoveDupeswords = Join(.keys, delim)
    End With
End Function

3. จากนั้นปิดหน้าต่างโค้ด กลับไปที่เวิร์กชีต แล้วป้อนสูตรนี้ =RemoveDupeswords(A2,", ") ลงในเซลล์ว่างนอกเหนือจากข้อมูลของคุณ แล้วลากที่จับเติมไปยังเซลล์ที่คุณต้องการใช้สูตรนี้ ดูภาพหน้าจอ:

หมายเหตุ: A2 คือเซลล์ที่คุณต้องการลบคำที่ซ้ำกัน และเครื่องหมายจุลภาคและช่องว่าง (, ) เป็นตัวคั่นเพื่อแยกสตริงข้อความ คุณสามารถเปลี่ยนเป็นตัวคั่นอื่นๆ ได้ตามความต้องการของคุณ

ปลาย: ฟังก์ชันนี้ไม่คำนึงถึงขนาดตัวพิมพ์ ตัวพิมพ์เล็กและตัวพิมพ์ใหญ่ถือเป็นอักขระเดียวกัน

---

4.3 ตัดสตริงข้อความเป็น N คำ

หากคุณมีสตริงข้อความยาวๆ ในเซลล์ ในบางครั้ง คุณอาจต้องการตัดสตริงข้อความเป็นจำนวนคำที่กำหนด ซึ่งหมายความว่าให้เก็บเฉพาะ n คำแรกและตัดคำที่เหลือ ส่วนนี้จะพูดถึงเทคนิคบางอย่างที่จะช่วยให้คุณทำงานนี้ใน Excel ได้สำเร็จ

 ตัดสตริงข้อความเป็น N คำด้วยสูตร

หากต้องการตัดสตริงข้อความเป็น N คำ คุณสามารถสร้างสูตรตามฟังก์ชัน LEFT, FIND และ SUBSTITUTE ได้ ไวยากรณ์ทั่วไปคือ:

• ข้อความ: สตริงข้อความหรือการอ้างอิงเซลล์ที่คุณต้องการตัดแต่ง
• N: จำนวนคำที่คุณต้องการเก็บไว้จากด้านซ้ายของสตริงข้อความที่กำหนด

ในการจัดการกับงานนี้ โปรดคัดลอกหรือป้อนสูตรด้านล่างลงในเซลล์ว่าง:

จากนั้นลากที่จับเติมลงไปเพื่อใช้สูตรนี้กับเซลล์อื่น ดูภาพหน้าจอ:

---

 ตัดสตริงข้อความเป็น N คำด้วย User Defined Function

ยกเว้นสูตรข้างต้น คุณยังสามารถสร้าง User Defined Function เพื่อแก้ปัญหานี้ได้ โปรดทำดังนี้:

1. กด Alt + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางโค้ดต่อไปนี้ลงในหน้าต่างโมดูล

รหัส VBA: ตัดสตริงข้อความเป็น N คำ

Function GetNWords(StrWords As String, Num_of_Words As Integer) As String
'Updateby Extendoffice
Dim xArr
Dim xRes As String
Dim xF As Integer
xStr = StrWords
If (Num_of_Words < 1) Then
    GetNWords = ""
    Exit Function
End If
xArr = Split(xStr, " ")
xRes = ""
On Error Resume Next
For xF = 0 To UBound(xArr)
    If Trim(xArr(xF)) <> "" Then
    Num_of_Words = Num_of_Words - 1
        If xRes = "" Then
            xRes = Trim(xArr(xF))
        Else
            xRes = xRes & " " & Trim(xArr(xF))
        End If
    End If
    If Num_of_Words = 0 Then Exit For
Next
If Num_of_Words = 0 Then
    GetNWords = xRes & "..."
Else
    GetNWords = xRes & "..."
End If
End Function

3. จากนั้นปิดและออกจากหน้าต่างโค้ด กลับไปที่เวิร์กชีต แล้วป้อนสูตรนี้: =GetNWords(A2,B2) ลงในเซลล์ว่าง จากนั้นลากที่จับเติมลงไปเพื่อใช้สูตรนี้กับเซลล์อื่น โดยจะเก็บเฉพาะจำนวนคำแรกที่ระบุตามภาพหน้าจอด้านล่าง: