ในสตริงด้านล่าง สมมติว่าคุณต้องการลบหมายเลขคำสั่งซื้อแรก ตัวเลขดังกล่าวทั้งหมดขึ้นต้นด้วยเครื่องหมายแฮช (#) และมีตัวเลข 5 หลักพอดี ดังนั้น เราสามารถระบุได้โดยใช้ regex นี้:

รูปแบบ : #\d{5}\b

ขอบเขตของคำ \b ระบุว่าสตริงย่อยที่ตรงกันไม่สามารถ ส่วนหนึ่งของสตริงที่ใหญ่กว่า เช่น #10000001

หากต้องการลบรายการที่ตรงกันทั้งหมด จะไม่มีการกำหนดอาร์กิวเมนต์ instance_num :

=RegExpReplace(A5, "#\d{5}\b", "")

หากต้องการกำจัดเฉพาะเหตุการณ์แรก เราตั้งค่าอาร์กิวเมนต์ instance_num เป็น 1:

=RegExpReplace(A5, "#\d{5}\b", "", 1)

Regex เพื่อลบอักขระบางตัว

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

งานส่วนของคุณคือการสร้างนิพจน์ทั่วไปและ ใช้กับฟังก์ชัน :) ให้ฉันแสดงวิธีทำในตัวอย่างที่ใช้งานได้จริง

วิธีลบข้อความในวงเล็บและวงเล็บโดยใช้ regex

ในสตริงข้อความแบบยาว ข้อมูลที่สำคัญน้อยกว่า มักจะอยู่ใน [วงเล็บ] และ (วงเล็บ) คุณจะลบรายละเอียดที่ไม่เกี่ยวข้องเหล่านั้นโดยเก็บข้อมูลอื่นๆ ไว้ทั้งหมดได้อย่างไร

อันที่จริง เราได้สร้าง regex ที่คล้ายกันแล้วสำหรับการลบแท็ก html เช่น ข้อความภายในวงเล็บเหลี่ยม เห็นได้ชัดว่า วิธีการเดียวกันนี้ใช้ได้กับวงเล็บเหลี่ยมและวงเล็บเหลี่ยมด้วยเช่นกัน

รูปแบบ : (\(.*?\))

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

สัปดาห์ที่แล้ว เราได้ดู ในการใช้นิพจน์ทั่วไปเพื่อแทนที่สตริงใน Excel สำหรับสิ่งนี้ เราสร้างฟังก์ชัน Regex Replace แบบกำหนดเอง เมื่อปรากฏออกมา ฟังก์ชันนี้นอกเหนือไปจากการใช้งานหลัก และไม่เพียงแต่สามารถแทนที่สตริงได้เท่านั้น แต่ยังสามารถลบออกได้ด้วย เป็นไปได้อย่างไร? ในแง่ของ Excel การลบค่าไม่ใช่สิ่งอื่นนอกจากการแทนที่ด้วยสตริงว่าง ซึ่งเป็นสิ่งที่ฟังก์ชัน Regex ของเราทำได้ดีมาก!

ฟังก์ชัน VBA RegExp เพื่อลบสตริงย่อยใน Excel

อย่างที่เราทราบกันดีว่า Excel ไม่สนับสนุนนิพจน์ทั่วไปตามค่าเริ่มต้น ในการเปิดใช้งาน คุณต้องสร้างฟังก์ชันที่ผู้ใช้กำหนดเอง ข่าวดีก็คือฟังก์ชันดังกล่าวได้รับการเขียน ทดสอบ และพร้อมใช้งานแล้ว สิ่งที่คุณต้องทำคือคัดลอกโค้ดนี้ วางลงในโปรแกรมแก้ไข VBA จากนั้นบันทึกไฟล์เป็น เวิร์กบุ๊กที่เปิดใช้งานมาโคร (.xlsm)

ฟังก์ชันมี ไวยากรณ์ต่อไปนี้:

จำเป็นต้องมีอาร์กิวเมนต์สามตัวแรก สองอาร์กิวเมนต์สุดท้ายเป็นทางเลือก

ที่ไหน:

• ข้อความ - สตริงข้อความที่ต้องการค้นหาจนกว่าจะพบวงเล็บปิด

ไม่ว่าคุณจะเลือกรูปแบบใด ผลลัพธ์จะเหมือนกันทุกประการ

ตัวอย่างเช่น หากต้องการลบแท็ก html ทั้งหมดออกจากสตริงใน A5 และเว้นข้อความไว้ สูตรคือ:

=RegExpReplace(A5, "]*>", "")

หรือคุณสามารถใช้ Lazy quantifier ดังที่แสดงในภาพหน้าจอ:

วิธีนี้ใช้ได้อย่างสมบูรณ์แบบสำหรับ ข้อความเดียว (แถวที่ 5 - 9) สำหรับข้อความหลายรายการ (แถวที่ 10 - 12) ผลลัพธ์นั้นน่าสงสัย - ข้อความจากแท็กต่างๆ จะรวมเป็นหนึ่งเดียว สิ่งนี้ถูกต้องหรือไม่? ฉันเกรงว่ามันไม่ใช่สิ่งที่จะตัดสินใจได้ง่ายๆ ทุกอย่างขึ้นอยู่กับความเข้าใจของคุณเกี่ยวกับผลลัพธ์ที่ต้องการ ตัวอย่างเช่น ใน B11 คาดหวังผลลัพธ์ "A1" ใน B10 คุณอาจต้องการให้ "data1" และ "data2" คั่นด้วยช่องว่าง

หากต้องการลบแท็ก html และแยกข้อความที่เหลือด้วยช่องว่าง คุณสามารถดำเนินการด้วยวิธีนี้:

1. แทนที่แท็กด้วยช่องว่าง " " ไม่ใช่สตริงว่าง:

   =RegExpReplace(A5, "]*>", " ")

2. ลดช่องว่างหลายช่องเป็นอักขระช่องว่างเดียว:

   =RegExpReplace(RegExpReplace(A5, "]*>", " "), " +", " ")

3. ตัดช่องว่างนำหน้าและต่อท้าย:

   =TRIM(RegExpReplace(RegExpReplace(A5, "]*>", " "), " +", " "))

ผลลัพธ์จะมีลักษณะดังนี้:

Ablebits Regex Remove Tool

หากคุณมีโอกาสใช้ Ultimate Suite สำหรับ Excel คุณอาจค้นพบเครื่องมือ Regex ใหม่ที่เปิดตัวในรีลีสล่าสุดแล้ว ข้อดีของฟังก์ชัน Regex ที่ใช้ .NET เหล่านี้คือ ประการแรก รองรับนิพจน์ทั่วไปที่มีคุณลักษณะครบถ้วน ลบ ตัวเลือก และกด ลบ

หากต้องการรับผลลัพธ์เป็นสูตร ไม่ใช่ค่า เลือกช่องทำเครื่องหมาย แทรกเป็นสูตร

หากต้องการลบข้อความภายในวงเล็บออกจากสตริงใน A2:A5 เรากำหนดการตั้งค่า ดังนี้:

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

ยังสามารถป้อนฟังก์ชันโดยตรงในเซลล์ผ่านกล่องโต้ตอบ แทรกฟังก์ชัน มาตรฐาน ซึ่งจัดหมวดหมู่ภายใต้ AblebitsUDFs .

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

ตัวอย่างเช่น หากต้องการตัดช่องว่างเพิ่มเติมในสตริงที่เป็นผลลัพธ์ คุณสามารถใช้ฟังก์ชัน TRIM เป็นตัวตัดคำ:

=TRIM(AblebitsRegexRemove(A5, $A$2))

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

ดาวน์โหลดได้

ลบสตริงโดยใช้ regex - ตัวอย่าง (ไฟล์ .xlsm)

Ultimate Suite - รุ่นทดลอง (ไฟล์ .exe)

สำหรับข้อมูลเพิ่มเติม โปรดดูที่ฟังก์ชัน RegExpReplace

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

วิธีลบสตริงโดยใช้นิพจน์ทั่วไป - ตัวอย่าง

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

ตัวอย่างด้านล่างแสดงการใช้งานต่างๆ ของแนวคิดพื้นฐานนี้

ลบ การจับคู่ทั้งหมดหรือการจับคู่เฉพาะ

ฟังก์ชัน RegExpReplace ได้รับการออกแบบมาเพื่อค้นหาสตริงย่อยทั้งหมดที่ตรงกับ regex ที่กำหนด เหตุการณ์ที่จะลบถูกควบคุมโดยอาร์กิวเมนต์ตัวเลือกที่ 4 ชื่อ instance_num .

ค่าเริ่มต้นคือ "ตรงกันทั้งหมด" - เมื่อ instance_num ตัวดำเนินการเชื่อมข้อมูล (&) และฟังก์ชันข้อความ เช่น ขวา กลาง และซ้าย

ตัวอย่างเช่น เมื่อต้องการเขียนหมายเลขโทรศัพท์ทั้งหมดในรูปแบบ (123) 456-7890 สูตรคือ:

="("&LEFT(B5, 3)&") "&MID(B5, 4, 3)&"-"&RIGHT(B5, 4)

โดยที่ B5 เป็นเอาต์พุตของฟังก์ชัน RegExpReplace

ลบอักขระพิเศษโดยใช้ regex

ในบทช่วยสอนของเรา เราดูวิธีลบอักขระที่ไม่ต้องการใน Excel โดยใช้ฟังก์ชันที่สร้างขึ้นและกำหนดเอง Regular Expression ทำให้ทุกอย่างง่ายขึ้นมาก! แทนที่จะแสดงรายการอักขระทั้งหมดที่จะลบ เพียงระบุอักขระที่คุณต้องการเก็บไว้ :)

รูปแบบจะขึ้นอยู่กับ คลาสอักขระที่ปฏิเสธ - เครื่องหมายรูปหมวกจะใส่ไว้ภายในคลาสอักขระ [^ ] เพื่อจับคู่อักขระตัวเดียวใดๆ ที่ไม่ได้อยู่ในวงเล็บ ตัวระบุ + บังคับให้ถือว่าอักขระที่ต่อเนื่องกันเป็นการจับคู่เดียว เพื่อให้มีการแทนที่สำหรับสตริงย่อยที่ตรงกันแทนที่จะเป็นอักขระแต่ละตัว

ให้เลือกหนึ่งใน regexes ต่อไปนี้ ทั้งนี้ขึ้นอยู่กับความต้องการของคุณ

หากต้องการลบอักขระ ที่ไม่ใช่ตัวอักษรและตัวเลข เช่น อักขระทั้งหมดยกเว้นตัวอักษรและตัวเลข:

รูปแบบ : [^0-9a-zA-Z] +

หากต้องการล้างอักขระทั้งหมด ยกเว้นตัวอักษร , ตัวเลข และ ช่องว่าง :

รูปแบบ : [^0-9a-zA-Z ]+

หากต้องการลบอักขระทั้งหมด ยกเว้นตัวอักษร , ตัวเลข และ ขีดล่าง คุณสามารถใช้ \ W ที่ย่อมาจากอักขระใดๆ ที่ไม่ใช่อักขระที่เป็นตัวอักษรและตัวเลขคละกัน หรือเครื่องหมายขีดล่าง:

รูปแบบ : \W+

ถ้าคุณต้องการ เก็บอักขระอื่น เช่น ใส่เครื่องหมายวรรคตอนไว้ในวงเล็บ

เช่น หากต้องการตัดอักขระใดๆ ที่ไม่ใช่ตัวอักษร ตัวเลข จุด เครื่องหมายจุลภาค หรือช่องว่าง ให้ใช้ regex ต่อไปนี้:

รูปแบบ : [^0-9a-zA-Z\., ]+

วิธีนี้กำจัดอักขระพิเศษทั้งหมดได้สำเร็จ แต่ช่องว่างพิเศษยังคงอยู่

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

=RegExpReplace(RegExpReplace(A5,$A$2,""), " +", " ")

หรือเพียงแค่ใช้ฟังก์ชัน TRIM ดั้งเดิมที่มีเอฟเฟกต์เดียวกัน :

=TRIM(RegExpReplace(A5, $A$2, ""))

Regex เพื่อลบอักขระที่ไม่ใช่ตัวเลข

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

จับคู่อักขระใดๆ ที่ไม่ใช่ตัวเลข:

รูปแบบ : \D+

ตัดอักขระที่ไม่ใช่ตัวเลขโดยใช้คลาสที่ไม่มีค่า:

รูปแบบ : [^0-9]+

รูปแบบ : [^\d] +

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

Regex เพื่อลบทุกอย่างหลังเว้นวรรค

หากต้องการล้างทุกอย่างหลังเว้นวรรค ให้ใช้ช่องว่าง ( ) หรืออักขระ whitespace (\s) เพื่อค้นหาช่องว่างแรก และ .* เพื่อจับคู่อักขระใดๆ หลังจากนั้น

หากคุณมีสตริงบรรทัดเดียวที่มีเฉพาะช่องว่างปกติ (ค่า 32 ในระบบ ASCII 7 บิต) ไม่สำคัญว่าคุณจะใช้ regexes ใดต่อไปนี้ ในกรณีของสตริงหลายบรรทัด จะทำให้เกิดความแตกต่าง

หากต้องการลบทุกอย่าง หลังอักขระเว้นวรรค ให้ใช้ regex นี้:

รูปแบบ : " .*"

=RegExpReplace(A5, " .*", "")

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

หากต้องการตัดทุกอย่างออก หลังจากเว้นวรรค (รวมถึงช่องว่าง แท็บ การขึ้นบรรทัดใหม่ และการขึ้นบรรทัดใหม่) regex คือ:

รูปแบบ : \s.*

=RegExpReplace(A5, "\s.*", "")

เนื่องจาก \s ตรงกับประเภทช่องว่างที่แตกต่างกันสองสามประเภท รวมถึง บรรทัดใหม่ (\n) สูตรนี้จะลบทุกอย่างหลังจากช่องว่างแรกในเซลล์ ไม่ว่าจะมีกี่บรรทัดก็ตาม

Regex เพื่อลบข้อความหลังจากระบุ อักขระ

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

วิธีจัดการแต่ละบรรทัดแยกกัน:

รูปแบบทั่วไป : char.*

ในสตริงบรรทัดเดียว สิ่งนี้จะลบทุกอย่างหลังจาก char ในสตริงแบบหลายบรรทัด แต่ละบรรทัดจะถูกประมวลผลทีละรายการ เนื่องจากใน VBA Regex เครื่องหมายมหัพภาค (.) ตรงกับอักขระใดๆ ยกเว้นอักขระใหม่จุดเริ่มต้นของสตริง ^ เราจะจับคู่อักขระที่ไม่ใช่ช่องว่างตั้งแต่ศูนย์ขึ้นไป [^ ]* ที่ตามด้วยช่องว่าง " +" อย่างน้อยหนึ่งช่องทันที ส่วนสุดท้ายถูกเพิ่มเพื่อป้องกันช่องว่างนำหน้าในผลลัพธ์

หากต้องการลบข้อความก่อนเว้นวรรคแรกในแต่ละบรรทัด สูตรจะเขียนในโหมดเริ่มต้น "ตรงกันทั้งหมด" ( instance_num ละไว้):

=RegExpReplace(A5, "^[^ ]* +", "")

หากต้องการลบข้อความก่อนช่องว่างแรกในบรรทัดแรก และปล่อยให้บรรทัดอื่นๆ เหมือนเดิม อาร์กิวเมนต์ instance_num จะถูกตั้งค่าเป็น 1:

=RegExpReplace(A5, "^[^ ]* +", "", 1)

Regex เพื่อตัดทุกอย่างก่อนอักขระออก

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

รูปแบบทั่วไป : ^[^char]*char

แปลเป็นภาษามนุษย์ มันบอกว่า: "จากจุดเริ่มต้นของสตริงที่ทอดสมอโดย ^ จับคู่อักขระตั้งแต่ 0 ตัวขึ้นไป ยกเว้น char [^char]* จนถึงการเกิดขึ้นครั้งแรกของ char .

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

รูปแบบ : ^[^:]*:

เพื่อหลีกเลี่ยงช่องว่างนำหน้าในผลลัพธ์ ให้เพิ่มอักขระช่องว่าง \s* ใน สิ้นสุด สิ่งนี้จะลบทุกอย่าง g ก่อนทวิภาคแรกและตัดแต่งช่องว่างใดๆ ต่อจากนั้น:

รูปแบบ : ^[^:]*:\s*

=RegExpReplace(A5, "^[^:]*:\s*", "")

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

Regex เพื่อลบทุกอย่างยกเว้น

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

ตัวอย่างเช่น เมื่อต้องการลบอักขระทั้งหมดยกเว้นตัวพิมพ์เล็ก และจุด regex คือ:

รูปแบบ : [^a-z\.]+

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

=RegExpReplace(A5, "[^a-z\.]+", "")

Regex เพื่อลบแท็ก html ใน Excel

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

เนื่องจากแท็ก html จะอยู่ในวงเล็บมุมเสมอ คุณสามารถค้นหาแท็กเหล่านั้นได้โดยใช้หนึ่งใน regexes ต่อไปนี้

Negated class:

Pattern : ]*>

ในที่นี้ เราจะจับคู่วงเล็บปีกกาเปิด ตามด้วยอักขระใด ๆ ที่เป็นศูนย์หรือมากกว่านั้นยกเว้น วงเล็บมุมปิด [^>]* จนถึงวงเล็บมุมปิดที่ใกล้ที่สุด

ขี้เกียจค้นหา:

รูปแบบ :

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

ในการประมวลผลทุกบรรทัดเป็นสตริงเดียว:

รูปแบบทั่วไป : char(.