ไปยังเนื้อหาหลัก

จะลบอักขระหรือคำที่ซ้ำกันในสตริงของเซลล์ Excel ได้อย่างไร

ผู้เขียน: Xiaoyang แก้ไขล่าสุด: 2024-10-08

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

สูตรจะเติมลงในเซลล์ด้านล่าง

ภาพหน้าจอของ kutools สำหรับ excel ai

ปลดล็อก Excel Magic ด้วย Kutools AI

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

ลูกศรสีฟ้าฟองขวา ลบคำที่ซ้ำกันคั่นด้วยเครื่องหมายวรรคตอนด้วย 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 ระบุเซลล์ที่คุณต้องการใช้และลูกน้ำ (,) หมายถึงเครื่องหมายวรรคตอนที่คั่นระหว่างคำในเซลล์คุณสามารถเปลี่ยนเป็นเครื่องหมายวรรคตอนอื่น ๆ ตามที่คุณต้องการได้

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!