จะลบอักขระหรือคำที่ซ้ำกันในสตริงของเซลล์ได้อย่างไร?
สมมติว่ามีอักขระหรือคำที่ซ้ำกันในแต่ละเซลล์และคุณต้องการลบรายการที่ซ้ำกันและเหลือเพียงอักขระหรือคำที่ไม่ซ้ำ คุณจะแก้ปัญหานี้ใน Excel ได้อย่างไร
ลบอักขระที่ซ้ำกันของสตริงข้อความด้วย User Defined Function
ลบคำที่ซ้ำกันคั่นด้วยเครื่องหมายวรรคตอนด้วย User Defined Function
ลบอักขระที่ซ้ำกันของสตริงข้อความด้วย User Defined Function
หากคุณมีรายการสตริงข้อความตอนนี้คุณต้องลบอักขระที่ซ้ำกันดังภาพหน้าจอต่อไปนี้ ที่นี่ฉันสามารถพูดคุยเกี่ยวกับรหัส VBA เพื่อจัดการกับมัน
1. กด ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications.
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.
รหัส VBA: ลบอักขระที่ซ้ำกันของสตริงข้อความในเซลล์
Function RemoveDupes1(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
RemoveDupes1 = xOutValue
End Function
3. จากนั้นบันทึกและปิดรหัสนี้กลับไปที่แผ่นงานแล้วป้อนสูตรนี้ = removedupes1 (A2) (A2 เป็นเซลล์ข้อมูลที่คุณต้องการลบรายการที่ซ้ำกัน) ลงในเซลล์ว่างนอกเหนือจากข้อมูลของคุณดูภาพหน้าจอ:
4. จากนั้นลากจุดจับเติมไปยังเซลล์ช่วงที่คุณต้องการใช้สูตรนี้อักขระที่ซ้ำกันทั้งหมดจะถูกลบออกจากแต่ละเซลล์ทันที
ลบคำที่ซ้ำกันคั่นด้วยเครื่องหมายวรรคตอนด้วย User Defined Function
หากมีบางคำที่คั่นด้วยเครื่องหมายวรรคตอนบางคำในเซลล์คุณสามารถลบคำที่ซ้ำกันได้ตามต้องการ โปรดทำตามขั้นตอนต่อไปนี้:
1. ค้างไว้ ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications.
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.
รหัส VBA: ลบคำที่ซ้ำกันโดยคั่นด้วยเครื่องหมายวรรคตอนของเซลล์
Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
Dim x
'Updateby Extendoffice
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 RemoveDupes2 = Join(.keys, delim)
End With
End Function
3. จากนั้นบันทึกและปิดรหัสนี้กลับไปที่แผ่นงานและป้อนสูตรนี้ = RemoveDupes2 (A2, ",") ลงในเซลล์ว่างถัดจากข้อมูลของคุณดูภาพหน้าจอ:
4. จากนั้นคัดลอกสูตรลงในเซลล์ที่คุณต้องการและคำที่ซ้ำกันทั้งหมดจะถูกลบออกจากทุกเซลล์ ดูภาพหน้าจอ:
หมายเหตุ: ในสูตรข้างต้น A2 ระบุเซลล์ที่คุณต้องการใช้และลูกน้ำ (,) หมายถึงเครื่องหมายวรรคตอนที่คั่นระหว่างคำในเซลล์คุณสามารถเปลี่ยนเป็นเครื่องหมายวรรคตอนอื่น ๆ ตามที่คุณต้องการได้
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
