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

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

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

ลบอักขระที่ซ้ำกันของสตริงข้อความด้วย User Defined Function

ลบคำที่ซ้ำกันคั่นด้วยเครื่องหมายวรรคตอนด้วย User Defined Function


ลูกศรสีฟ้าฟองขวา ลบอักขระที่ซ้ำกันของสตริงข้อความด้วย User Defined Function

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

doc-remove-ซ้ำ-ตัวอักษร-1

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

doc-remove-ซ้ำ-ตัวอักษร-1

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

doc-remove-ซ้ำ-ตัวอักษร-1


ลูกศรสีฟ้าฟองขวา ลบคำที่ซ้ำกันคั่นด้วยเครื่องหมายวรรคตอนด้วย 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, ",") ลงในเซลล์ว่างถัดจากข้อมูลของคุณดูภาพหน้าจอ:

doc-remove-ซ้ำ-ตัวอักษร-1

4. จากนั้นคัดลอกสูตรลงในเซลล์ที่คุณต้องการและคำที่ซ้ำกันทั้งหมดจะถูกลบออกจากทุกเซลล์ ดูภาพหน้าจอ:

doc-remove-ซ้ำ-ตัวอักษร-1

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


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

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

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office/Excel 2007-2021 และ 365 รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติเต็มรูปแบบ ทดลองใช้ฟรี 30 วัน รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (66)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ยังพัง...ไม่โชว์อะไรเลย นี่คือข้อมูลเซลล์ของฉัน: 27000,พื้นฐาน,ผลิตภัณฑ์,วัสดุ,จาก,ไม้,หิน,ดิน,ดิบ,วัสดุ,27100,พื้นฐาน,ป่า,ผลิตภัณฑ์,ทั่วไป,27110,พื้นฐาน,ป่า,ผลิตภัณฑ์,โรงเลื่อย,ผลิตภัณฑ์,27120,พื้นฐาน ,ป่าไม้,ผลิตภัณฑ์,ไม้,เยื่อกระดาษ,27200,แก้ว เห็นได้ชัดว่ามีสิ่งหลอกลวงอยู่บ้าง. ปล่อยเซลล์ว่างไว้ ความคิด?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่เป็นไร ฉันงี่เง่า เนื่องจากฉันต้องการดึงคำเท่านั้น ฉันจึงเปลี่ยนชื่อโมดูล RemoveDupes แต่ไม่ได้เปลี่ยน RemoveDupes ในโค้ดในภายหลัง แก้ไขแล้วทุบตัวเองด้วยค้อน....
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
และฉันได้รวม RemoveDupes กับ ConCat (ความดีของ VBA ไม่ใช่ CON(I-SUCK-BECAUSE-I'M-MICROSOFT)CATENATE) ลงในสิ่งนี้: =RemoveDupes(ConCat(",",G495:G502),",") ดังนั้น มันดึงเซลล์ของฉันเข้าไปแล้วเช็ดสิ่งหลอกลวงทั้งหมดออก ขอบคุณสำหรับ RemoveDupes นี่คือ ConCat: Function ConCat(Delimiter As Variant, ParamArray CellRanges() As Variant) As String Dim Cell As Range, Area As Variant If IsMissing(Delimiter) Then Delimiter = "" สำหรับแต่ละพื้นที่ใน CellRanges ถ้า TypeName( พื้นที่) = "ช่วง" จากนั้นสำหรับแต่ละเซลล์ในพื้นที่ ถ้า Len (Cell.Value) จากนั้น ConCat = ConCat & ตัวคั่น & Cell.Value ถัดไป ConCat = ConCat & ตัวคั่น & Area End หาก ConCat ถัดไป = กลาง (ConCat, Len (ตัวคั่น) ) + 1) สิ้นสุดฟังก์ชัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันลองวิธีแก้ปัญหาของคุณ "ลบคำที่ซ้ำกันโดยคั่นด้วยเครื่องหมายวรรคตอนด้วย User Defined Function" และใช้งานได้ดีกับคำหลายคำในเซลล์ แต่ไม่สามารถแก้ปัญหาของฉันได้ทั้งหมด ฉันมีเซลล์หนึ่งเซลล์ที่มีค่าหลายค่าและต้องการเปรียบเทียบกับเซลล์อื่นที่มีค่าหลายค่า จากนั้นให้ลบเซลล์ที่ซ้ำกันระหว่างสองเซลล์ มีวิธีทำเช่นนั้นหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เหมือนกันนี่ ช่วยด้วย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
กระทู้นี้ยังอยู่ไหม ฉันจะซาบซึ้งอย่างยิ่งกับข้อมูลเชิงลึกเกี่ยวกับฟังก์ชัน VBA นี้ .. คำถามของฉันเกี่ยวข้องกับโค้ด โดยที่ถ้าฉันจำเป็นต้องสั่งการให้ค้นหาเครื่องหมายวรรคตอนเฉพาะเป็นตัวคั่น .. ถ้าฉันต้องใช้ "@" เป็น เครื่องหมายวรรคตอน?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คำแนะนำของคุณน่าทึ่งมาก! ฉันจัดเรียง 58,400 รายการในเวลาประมาณ 2 นาทีและบันทึกงานหนึ่งสัปดาห์ (หรือมากกว่า) สำเนาของฉันยากขึ้นเล็กน้อยในการเปลี่ยนตัวอย่างนี้ " V&O Liquid Fuel Lantern 13-1 / 2in blk fuel lantern " เป็น " V&O Liquid Fuel Lantern 13-1 / 2in blk " ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ได้โปรด ฉันต้องการความช่วยเหลือจากคุณ ฉันลองใช้รหัสของคุณแล้ว แต่มันใช้งานไม่ได้ อาจเป็นเพราะฉันมีหมายเลข ฉันมีหมายเลขโทรศัพท์ซ้ำกันคั่นด้วยเครื่องหมายจุลภาค โปรดบอกฉันว่าต้องทำอย่างไร ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เหมือนกันนี่ ช่วยด้วย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Brilliant ขอบคุณ! ขอบคุณ! ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สุดยอด ขอบคุณครับ!.....
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เฮ้ ฉันต้องการความช่วยเหลือจากคุณ ฉันควรทำอย่างไรหากฉันต้องการแยกสำเนาที่ซ้ำกัน ใน A1 (asdfghjiklkk) ดังนั้น k จึงเป็นอักขระที่ซ้ำกัน ฉันต้องการ A2 (k) ฉันควรทำอย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นไปได้ไหมที่จะปรับฟังก์ชันหากมีคำบางคำที่ฉันต้องการทำซ้ำในขณะที่คำที่เหลือไม่ซ้ำ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เช่นเดียวกับการบันทึก ขอบคุณมากสำหรับคำแนะนำนี้ ช่วยฉันได้มาก! :)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สิ่งนี้มีประโยชน์มาก ฉันได้ลองแล้วและได้ผลสำหรับฉันยกเว้น ยอดเยี่ยม !!!!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
นี่เป็นวิธีแก้ปัญหาที่ยอดเยี่ยมและเรียบง่ายในการค้นหาวลีที่ซ้ำกันภายในเซลล์เดียว ง่ายกว่าโซลูชันมาโครแบบยาวบางตัวที่ฉันพบขณะค้นหาคำตอบสำหรับปัญหาของฉัน ขอบคุณมาก!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับรหัสนี้ - ช่วยฉันประหยัดเวลาได้มาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีข้อมูลเช่น 1. แสดงด้านล่างในเซลล์เดียวและฉันต้องการ 2 1. ZERPUR, MAHENDRAGARH, HARYANA-123029, 30771237, 8813073653, ZERPUR(16), MAHENDRAGARH, HARYANA-123029, 30771237, 8813073653 ฉันต้องการสิ่งนี้ ชอบ :- ZERPUR,MAHENDRAGARH, HARYANA-123029, 30771237, 8813073653 ขอบคุณและขอแสดงความนับถือ Hanuman Singh 9034509168
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สอนฉันยังไง ต้องรู้ด้วย..
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เราหาตำแหน่งของอักษรตัวพิมพ์เล็กตัวที่ 1 ได้ไหม


สอบ - RAMSHsJHSAhsjDDD ------ฉันต้องการทราบตำแหน่งของอักษรตัวเล็กตัวที่ 1 ตามสูตร = s
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี เมฮาบัน
คุณสามารถใช้สูตรอาร์เรย์ต่อไปนี้เพื่อรับตำแหน่งของอักษรตัวพิมพ์เล็กตัวแรก:
=MATCH(1,IF(ABS(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))-109.5)<=12.5,1),0)
อย่าลืมกด Ctrl + Shift + Enter คีย์พร้อมกัน


หวังว่ามันจะช่วยคุณได้ ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี skyyang

มันทำงานอย่างถูกต้อง .....
อันที่จริงฉันก็ต้องการสิ่งเดียวกัน ..

ขอบคุณมาก !!


เมฮาร์บัน ซิงห์ปาล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วิธีลบสตริงที่ซ้ำกันที่ตรงกัน...คุณช่วยบอกฉันที


ความนับถือ,
Kiran
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีค่ะ คุณกีรินทร์
คุณสามารถยกตัวอย่างปัญหาของคุณได้หรือไม่? หรือจะแทรกรูปภาพที่แนบมาก็ได้
รอการตอบกลับของคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมาก มันช่วยฉันได้มากกว่านี้ แต่ฉันต้องการบางอย่างที่เฉพาะเจาะจงมากขึ้นสำหรับชุดข้อมูลของฉัน
ฉันมีข้อมูลสองคอลัมน์ ไอดีและข้อมูล ในคอลัมน์ข้อมูล รหัสโปรเจ็กต์ต่อเซลล์ เช่น "Kant-, Udp-, Akr- ฯลฯ" จะถูกทำซ้ำ สำหรับชุดข้อมูลของฉัน project_id มากกว่า 15 และได้รับการแก้ไขแล้ว ดังนั้นฉันต้องการลบซ้ำ _id ออกจากเซลล์ แต่เก็บอันแรกไว้
ตัวอย่าง: Kant-526 (0.0287),Kant-527 (0.0113),Kant-528 (0.0262) /// Kant-526 (0.0287),527 (0.0113),528 (0.0262),
Kant-543 (0.0685), Kant-544 (0.0685),Udp-097 (0.0141) /// Kant-543 (0.0685),544 (0.0685),Udp-097 (0.0141)

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

=SUBSTITUTE(SUBSTITUTE("กันต์-","",2), ("กันต์-","",2)
ที่นี่ 1 อันดับแรกสำหรับการแทนที่ Kant ครั้งที่สองและถัดไปทุกๆ Kant- การลบเพียงแค่เพิ่ม ("Kant-","",2) พิเศษ มันใช้งานได้สำหรับฉัน แต่ฉันชอบ VBA ที่ดี
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอขอบคุณสำหรับโค้ด

คุณช่วยฉันได้ไหม? ฉันกำลังใช้ฟังก์ชันมาโครเพื่อลบคำที่คั่นด้วยเครื่องหมายวรรคตอนของเซลล์ อย่างไรก็ตาม ข้อมูลของฉันไม่ใช่คำ แต่เป็นวลีจริงๆ เช่นเดียวกับแทนที่จะเป็น "KTE, KTO, KTW, KTO" เป็นคำอธิบายสั้น ๆ เช่น "เตรียมการเรียกเก็บเงิน ตรวจสอบอีเมลของฉัน อัปเดตสัญญา ตรวจสอบอีเมลของฉัน"

เป็นไปได้ไหมที่จะอัปเดต VBA เพื่อลบวลีที่ซ้ำกันแทนที่จะเป็นคำ

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

ฟังก์ชัน RemoveDuplicateValue(xStr As String, xDelim As String) เป็น String
ติ่มซำ xValue
ถ้า (Len(xDelim) > 0) และ (Len(Trim(xStr))) > 0) แล้ว
ด้วย CreateObject("Scripting.Dictionary")
สำหรับแต่ละ xValue ใน Split(xStr, xDelim)
ถ้า Trim(xValue) <> "" และไม่มี .exists(Trim(xValue)) แล้ว .Add Trim(xValue), Nothing
ต่อไป
ถ้า .Count > 0 แล้ว RemoveDuplicateValue = Join(.keys, xDelim)
จบด้วย
อื่น
RemoveDuplicateValue = xStr
End If
ฟังก์ชั่นเอนด์

จากนั้นใช้สูตรนี้: =RemoveDuplicateValue(A2,",") เปลี่ยนตัวคั่น เป็นของคุณเอง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี สกายหยาง



ฉันหวังว่าจะได้รับความช่วยเหลือเกี่ยวกับเซลล์ต่อไปนี้:

PR-เปอร์โตริโก; สหรัฐอเมริกา-สหรัฐอเมริกา; สหรัฐอเมริกา-สหรัฐอเมริกา

ฉันต้องการลบสหรัฐอเมริกาและสหรัฐอเมริกาที่ซ้ำกัน เนื่องจากเครื่องมืออัปโหลดของฉันจะไม่อนุญาตให้ทำซ้ำ



ฉันใช้ VBA ด้านบนและแทนที่ตัวคั่นสูตรด้วย ";" ยัติภังค์ทำให้เกิดปัญหานี้หรือไม่? มันส่งกลับ #NAME? ทุกครั้งที่ฉันเรียกใช้สูตร ฉันยังใหม่กับมาโคร/VBA แต่ฉันแน่ใจว่าไฟล์นั้นถูกบันทึกเป็นไฟล์ที่เปิดใช้งานมาโคร ฉันพยายามติดตามสิ่งเหล่านี้ไปยัง T.


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

Current: พีอาร์-เปอร์โตริโก; สหรัฐอเมริกา-สหรัฐอเมริกา; สหรัฐอเมริกา-สหรัฐอเมริกา
ต้องการ: PR-PUERTO RICO; สหรัฐอเมริกา-สหรัฐอเมริกา

หวังว่านี่จะสมเหตุสมผลและขอบคุณมากสำหรับการตอบกลับอย่างรวดเร็ว
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ไมเคิล
คุณเพียงแค่ต้องใช้โค้ดด้านล่างนี้ แล้วใช้สูตรนี้: =RemoveDuplicateValue(A2,";") โปรดลอง หวังว่าจะช่วยคุณได้!

ฟังก์ชัน RemoveDuplicateValue(xStr As String, xDelim As String) เป็น String
ติ่มซำ xValue
ถ้า (Len(xDelim) > 0) และ (Len(Trim(xStr))) > 0) แล้ว
ด้วย CreateObject("Scripting.Dictionary")
สำหรับแต่ละ xValue ใน Split(xStr, xDelim)
ถ้า Trim(xValue) <> "" และไม่มี .exists(Trim(xValue)) แล้ว .Add Trim(xValue), Nothing
ต่อไป
ถ้า .Count > 0 แล้ว RemoveDuplicateValue = Join(.keys, xDelim)
จบด้วย
อื่น
RemoveDuplicateValue = xStr
End If
ฟังก์ชั่นเอนด์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมาก. คำตอบของคุณยินดีมากกว่ากาแฟสักถ้วยของฉัน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี สิ่งนี้มีประโยชน์จริง ๆ
แต่ฉันต้องการลบทั้งคำหลังจาก "NO TO:"

เช่น: ไม่มี: [C11bx1]

NO TO: [C11bx3] แบบนี้
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
โหลดเพิ่มเติม
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL