จะเข้าร่วมข้อความในคอลัมน์โดยไม่ซ้ำกันใน Excel ได้อย่างไร?

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

เข้าร่วมข้อความในคอลัมน์โดยไม่ซ้ำกับสูตร
เข้าร่วมข้อความในคอลัมน์โดยไม่ซ้ำกันตามค่าเซลล์อื่นด้วยรหัส VBA
เข้าร่วมข้อความในคอลัมน์ได้อย่างง่ายดายตามค่าเซลล์อื่นด้วยเครื่องมือที่น่าทึ่ง
บทแนะนำเพิ่มเติมสำหรับการรวมเซลล์ ...

เข้าร่วมข้อความในคอลัมน์โดยไม่ซ้ำกับสูตร

ดังภาพหน้าจอด้านล่างนี้แสดงว่าคุณต้องการรวมข้อความในคอลัมน์ A ลงในเซลล์เดียวโดยไม่ซ้ำกัน กรุณาดำเนินการดังนี้

1. เลือกเซลล์ว่างคัดลอกสูตรด้านล่างลงไปแล้วกดปุ่ม อื่น ๆ + เปลี่ยน + เข้าสู่ คีย์ในเวลาเดียวกัน

=TEXTJOIN(", ", TRUE, IF(MATCH(A2:A12, A2:A12, 0)=MATCH(ROW(A2:A12), ROW(A2:A12)), A2:A12, ""))

หมายเหตุ ในสูตร ", ” เป็นตัวคั่นของข้อความที่รวมกัน A2: A12 คือเซลล์คอลัมน์ที่คุณจะรวมเข้าด้วยกัน โปรดเปลี่ยนตามที่คุณต้องการ

ตอนนี้ข้อความในคอลัมน์ที่ระบุจะถูกรวมเข้าด้วยกันโดยไม่ซ้ำกัน

เข้าร่วมข้อความในคอลัมน์โดยไม่ซ้ำกันตามค่าเซลล์อื่นด้วยรหัส VBA

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

1. ในแผ่นงานมีข้อความที่คุณจะเข้าร่วมให้กดปุ่ม อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล, จากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่างรหัสโมดูล

รหัส VBA: เข้าร่วมข้อความในคอลัมน์โดยไม่ซ้ำกันตามค่าของเซลล์อื่น

Sub JoinTextsWithoutDuplicates()
'Updated by Extendoffice 20190924
    Dim xRg As Range
    Dim xArr As Variant
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    Dim xDic As Object
    Dim xValue
    Dim xStr, xStrValue As String
    Dim xB As Boolean
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "Does not support multiple selections", , "Kutools for Excel"
        Exit Sub
    End If
    If xRg.Columns.Count <> 2 Then
        MsgBox "There must be only two columns in the selected range", , "Kutools for Excel"
        Exit Sub
    End If
    xArr = xRg
    Set xDic = CreateObject("Scripting.Dictionary")
    xDic.CompareMode = 1
    For I = 1 To UBound(xArr)
        If Not xDic.Exists(xArr(I, 1)) Then
            xDic.Item(xArr(I, 1)) = xDic.Count + 1
            xArr(xDic.Count, 1) = xArr(I, 1)
            xArr(xDic.Count, 2) = xArr(I, 2)
        Else
            xStrValue = xArr(I, 2)
           xB = True
            For Each xStr In Split(xArr(xDic.Item(xArr(I, 1)), 2), ",")
                If xStr = xStrValue Then
                    xB = False
                    Exit For
                End If
            Next
            If xB Then
            xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
            End If
        End If
    Next
    Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส ในการโผล่ขึ้นมา Kutools สำหรับ Excel ให้เลือกช่วงที่มีทั้งค่าที่คุณจะเข้าร่วมตามข้อความและข้อความที่คุณจะเข้าร่วมจากนั้นคลิกที่ OK ปุ่ม

จากนั้นค่าที่ไม่ซ้ำกันจะถูกแยกออกและข้อความเฉพาะที่เกี่ยวข้องในคอลัมน์อื่นจะถูกรวมเข้าด้วยกันและวางไว้ในแผ่นงานใหม่

เข้าร่วมข้อความในคอลัมน์ได้อย่างง่ายดายตามค่าเซลล์อื่นด้วยเครื่องมือที่น่าทึ่ง

หมายเหตุ เนื่องจากยูทิลิตี้นี้จะนำไปใช้โดยตรงในช่วงเดิมโปรดทำสำเนาข้อมูลต้นฉบับก่อนที่จะใช้การดำเนินการด้านล่าง

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

2 ใน แถวรวมขั้นสูง โปรดทำดังนี้:

• เลือกคอลัมน์ที่มีค่าที่คุณจะเข้าร่วมตามข้อความแล้วคลิก คีย์หลัก;
• เลือกคอลัมน์ที่มีข้อความที่คุณจะเข้าร่วมในเซลล์แล้วคลิก รวมกัน > ลูกน้ำ;
• หากมีคอลัมน์เหลือโปรดระบุเงื่อนไข ในกรณีนี้ฉันเลือกคอลัมน์การขายและเลือก คำนวณ > ผลรวม
• คลิก OK ปุ่ม. ดูภาพหน้าจอ:

จากนั้นคุณจะเห็นข้อความทั้งหมดในคอลัมน์ที่ระบุเข้าร่วมตามคอลัมน์หลัก ดูภาพหน้าจอ:

บทความที่เกี่ยวข้อง

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

🤖	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% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี...