Note: The other languages of the website are Google-translated. Back to English

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

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

สารบัญ:

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

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

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

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


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

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

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

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

 โดยใช้สูตร

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

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

=REPLACE(string, 1, num_chars, "")
  • เชือก: สตริงข้อความที่คุณต้องการลบอักขระออก
  • num_chars: จำนวนอักขระที่คุณต้องการลบ

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

=REPLACE(A4, 1, 2, "")

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

=RIGHT(string, LEN(string) - num_chars)
  • เชือก: สตริงข้อความที่คุณต้องการลบอักขระออก
  • num_chars: จำนวนอักขระที่คุณต้องการลบ

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

=RIGHT(A4,LEN(A4)-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 ตัวสุดท้าย:

=LEFT(string, LEN(string) - num_chars)
  • เชือก: สตริงข้อความที่คุณต้องการลบอักขระออก
  • num_chars: จำนวนอักขระที่คุณต้องการลบ

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

=LEFT(A4, LEN(A4) - 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 เพื่อสร้างสูตรสำหรับจัดการกับงานนี้

=MID(string, left_chars + 1, LEN(string) - (left_chars + right_chars)
  • เชือก: สตริงข้อความที่คุณต้องการลบอักขระออก
  • left_chars: จำนวนอักขระที่จะลบจากด้านซ้าย
  • right_chars: จำนวนอักขระที่จะลบออกจากด้านขวา

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

=MID(A4, 7+1, LEN(A4) - (7+5))

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

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


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

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

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

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

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

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

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(string_cell, char1, ""), char2, ""), char3, "")
  • string_cell: เซลล์มีสตริงข้อความที่คุณต้องการลบอักขระพิเศษออก
  • char1, char2, char3: อักขระที่ไม่ต้องการที่คุณต้องการลบ

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

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2, "#", ""), "&", ""), "*", ""), "%", "")

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

เคล็ดลับ: หากมีอักขระเพิ่มเติมที่คุณต้องการลบ คุณเพียงแค่ต้องซ้อนฟังก์ชัน 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. จากนั้นปิดหน้าต่างโค้ดแล้วกลับไปที่เวิร์กชีตป้อนสูตรนี้ =RemoveUnwantedChars(A2, $D$2) ลงในเซลล์ว่างที่จะส่งออกผลลัพธ์ จากนั้นลากที่จับเติมลงไปเพื่อให้ได้ผลลัพธ์ตามที่คุณต้องการ ดูภาพหน้าจอ:

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


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

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

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

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

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

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

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


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

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

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

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

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2,1,""),2,""),3,""),4,""),5,""),6,""),7,""),8,""),9,""),0,"")

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


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

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

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

=TEXTJOIN("", TRUE, IF(ISERR(MID(A2, ROW(INDIRECT( "1:"&LEN(A2) )), 1) *1), MID(A2, ROW(INDIRECT("1:"&LEN(A2))), 1), ""))

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

หมายเหตุ: 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 หรือเวอร์ชันก่อนหน้า คุณควรใช้สูตรที่ซับซ้อนเพื่อให้ได้งานนี้ โปรดคัดลอกหรือป้อนสูตรด้านล่างลงในเซลล์ว่าง:

=SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(--MID(A2, ROW(INDIRECT("1:"&LEN(A2))), 1)) * ROW(INDIRECT("1:"&LEN(A2))), 0), ROW(INDIRECT("1:"&LEN(A2))))+1, 1) * 10^ROW(INDIRECT("1:"&LEN(A2)))/10)

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

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


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

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

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

=TEXTJOIN("",TRUE,IFERROR(MID(A2,ROW(INDIRECT("1:100")),1)+0,""))

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

หมายเหตุ: ด้วยสูตรนี้ คุณจะเห็น 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(A2,CHAR(10),"")

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

=SUBSTITUTE(A2,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 แบบง่ายสามารถช่วยคุณได้ ฟังก์ชันนี้จะลบช่องว่างทั้งหมด ยกเว้นช่องว่างเดียวระหว่างคำ

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

=TRIM(A2)

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


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

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

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

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

=SUBSTITUTE(A2," ","")

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


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

ในความเป็นจริง ค้นหาและแทนที่ คุณลักษณะใน 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 ได้ ไวยากรณ์ทั่วไปคือ:

=RIGHT(cell, LEN(cell)-FIND("char", cell))
  • เซลล์: การอ้างอิงเซลล์หรือสตริงข้อความที่คุณต้องการลบข้อความ
  • ถัง: ตัวคั่นเฉพาะที่คุณต้องการลบข้อความตาม

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

=RIGHT(A2,LEN(A2)-FIND(",",A2))

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


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

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

=LEFT(cell,FIND("char",cell)-1)
  • เซลล์: การอ้างอิงเซลล์หรือสตริงข้อความที่คุณต้องการลบข้อความ
  • ถัง: ตัวคั่นเฉพาะที่คุณต้องการลบข้อความตาม

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

=LEFT(A2,FIND(",",A2)-1)


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

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

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

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

=RIGHT(cell,LEN(cell)-FIND("#",SUBSTITUTE(cell,"char","#",N)))
  • เซลล์: การอ้างอิงเซลล์หรือสตริงข้อความที่คุณต้องการลบข้อความ
  • ถัง: ตัวคั่นเฉพาะที่คุณต้องการลบข้อความตาม;
  • N: การเกิดขึ้นของตัวละครก่อนที่จะลบข้อความ

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

=RIGHT(A2,LEN(A2)-FIND("#",SUBSTITUTE(A2,",","#",2)))

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

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


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

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

=LEFT(cell, FIND("#", SUBSTITUTE(cell, "char", "#", N)) -1)
  • เซลล์: การอ้างอิงเซลล์หรือสตริงข้อความที่คุณต้องการลบข้อความ
  • ถัง: ตัวคั่นเฉพาะที่คุณต้องการลบข้อความตาม;
  • N: การเกิดขึ้นของตัวละครหลังจากนั้นเพื่อลบข้อความ

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

=LEFT(A2, FIND("#", SUBSTITUTE(A2, ",", "#", 2)) -1)

หมายเหตุ:ในสูตรข้างต้น: 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. จากนั้น ปิดและออกจากหน้าต่างโค้ด กลับไปที่เวิร์กชีต ใช้สูตรต่อไปนี้:

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

=RemoveTextOccurrence(A2, ", ", 2, FALSE)

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

=RemoveTextOccurrence(A2, ", ", 2, TRUE)


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

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

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

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

=RIGHT(cell,LEN(cell)-SEARCH("#",SUBSTITUTE(cell,"char","#",LEN(cell)-LEN(SUBSTITUTE(cell,"char","")))))
  • เซลล์: การอ้างอิงเซลล์หรือสตริงข้อความที่คุณต้องการลบข้อความ
  • ถัง: ตัวคั่นเฉพาะที่คุณต้องการลบข้อความตาม;

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

=RIGHT(A2,LEN(A2)-SEARCH("#",SUBSTITUTE(A2,",","#",LEN(A2)-LEN(SUBSTITUTE(A2,",","")))))

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

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


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

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

=LEFT(cell,FIND("#",SUBSTITUTE(cell,"char","#",LEN(cell)-LEN(SUBSTITUTE(cell,"char",""))))-1)
  • เซลล์: การอ้างอิงเซลล์หรือสตริงข้อความที่คุณต้องการลบข้อความ
  • ถัง: ตัวคั่นเฉพาะที่คุณต้องการลบข้อความตาม;

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

=LEFT(A2,FIND("#",SUBSTITUTE(A2,",","#",LEN(A2)-LEN(SUBSTITUTE(A2,",",""))))-1)

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


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

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

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

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

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

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

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

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

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


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

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

=SUBSTITUTE(text,MID(LEFT(text,FIND(")",text)),FIND("(",text),LEN(text)),"")
  • ข้อความ: สตริงข้อความหรือการอ้างอิงเซลล์ที่คุณต้องการลบอักขระออก

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

=SUBSTITUTE(A2,MID(LEFT(A2,FIND(")",A2)),FIND("(",A2),LEN(A2)),"")

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

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

=IFERROR(SUBSTITUTE(A2,MID(LEFT(A2,FIND(")",A2)),FIND("(",A2),LEN(A2)),""),A2)


 ลบข้อความระหว่างวงเล็บด้วย 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 ไวยากรณ์ทั่วไปคือ:

=RIGHT(text,LEN(text)-FIND(" ",text))
  • ข้อความ: สตริงข้อความหรือการอ้างอิงเซลล์ที่คุณต้องการลบคำแรกออก

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

=RIGHT(A2,LEN(A2)-FIND(" ",A2))

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

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

=MID(TRIM(text),1+FIND("~",SUBSTITUTE(TRIM(text)," ","~",N)),255)
  • ข้อความ: สตริงข้อความหรือการอ้างอิงเซลล์ที่คุณต้องการลบ n คำแรกออกจาก
  • N: ระบุจำนวนคำที่คุณต้องการลบออกจากจุดเริ่มต้นของสตริงข้อความ

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

=MID(TRIM(A2),1+FIND("~",SUBSTITUTE(TRIM(A2)," ","~",2)),255)


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

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

=LEFT(TRIM(text),FIND("~",SUBSTITUTE(text," ","~",LEN(TRIM(text))-LEN(SUBSTITUTE(TRIM(text)," ",""))))-1)
  • ข้อความ: สตริงข้อความหรือการอ้างอิงเซลล์ที่คุณต้องการลบคำสุดท้ายออก

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

=LEFT(TRIM(A2),FIND("~",SUBSTITUTE(A2," ","~",LEN(TRIM(A2))-LEN(SUBSTITUTE(TRIM(A2)," ",""))))-1)

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

=LEFT(text,FIND("~",SUBSTITUTE(text," ","~",LEN(text)-LEN(SUBSTITUTE(text," ",""))-(N-1))))
  • ข้อความ: สตริงข้อความหรือการอ้างอิงเซลล์ที่คุณต้องการลบ n คำสุดท้ายออกจาก
  • N: ระบุจำนวนคำที่คุณต้องการลบออกจากส่วนท้ายของสตริงข้อความ

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

=LEFT(A2,FIND("~",SUBSTITUTE(A2," ","~",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))-(3-1))))


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 ได้ ไวยากรณ์ทั่วไปคือ:

=LEFT(text,FIND("~",SUBSTITUTE(text," ","~",N))-1)
  • ข้อความ: สตริงข้อความหรือการอ้างอิงเซลล์ที่คุณต้องการตัดแต่ง
  • N: จำนวนคำที่คุณต้องการเก็บไว้จากด้านซ้ายของสตริงข้อความที่กำหนด

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

=LEFT(A2,FIND("~",SUBSTITUTE(A2," ","~",B2))-1)

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


 ตัดสตริงข้อความเป็น 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) ลงในเซลล์ว่าง จากนั้นลากที่จับเติมลงไปเพื่อใช้สูตรนี้กับเซลล์อื่น โดยจะเก็บเฉพาะจำนวนคำแรกที่ระบุตามภาพหน้าจอด้านล่าง:



เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ และการเก็บรักษาข้อมูล แยกเนื้อหาของเซลล์ รวมแถวที่ซ้ำกันและผลรวม / ค่าเฉลี่ย... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แทรกสูตรที่ชื่นชอบและรวดเร็ว, ช่วงแผนภูมิและรูปภาพ; เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • การจัดกลุ่มตาราง Pivot ตาม จำนวนสัปดาห์วันในสัปดาห์และอื่น ๆ ... แสดงปลดล็อกเซลล์ที่ถูกล็อก ด้วยสีที่ต่างกัน เน้นเซลล์ที่มีสูตร / ชื่อ...
kte แท็บ 201905
  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (0)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ