จะเข้าร่วมข้อความในคอลัมน์โดยไม่ซ้ำกันใน 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 ปุ่ม. ดูภาพหน้าจอ:

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

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