合并相同内容单元格

36K纯帅

各位大神好，现在有个合并相同内容单元格需求，能否用VBA解决呢，主要是相同内容不在相邻行，自己写的代码满足不了，感谢大家
基础数据




期待效果：

即A、B两列相同内容合并在一起

橒♂蝣

=LET(x,UNIQUE(A2:B4), HSTACK(x,MAP(INDEX(x,,1)&INDEX(x,,2),LAMBDA(m,TEXTJOIN("、",1,FILTER(C:C,A:A&B:B=m))))))

quqiyuan

=TEXTJOIN("，",,FILTER(C:C,A:A&B:B=F2&G2))

gwjkkkkk

Option Explicit
Sub TEST5()
    Dim ar, i&, j&, r&, dic As Object, strKey$, iPosRow&
   
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = [A1].CurrentRegion: r = 1
    For i = 2 To UBound(ar)
        strKey = ar(i, 1) & "|" & ar(i, 2)
        If Not dic.exists(strKey) Then
            r = r + 1
            dic(strKey) = r
            For j = 1 To UBound(ar, 2)
                ar(r, j) = ar(i, j)
            Next j
        Else
            iPosRow = dic(strKey)
            ar(iPosRow, 3) = ar(iPosRow, 3) & "," & ar(i, 3)
        End If
    Next i
   
    Columns("F:H").Clear
    [F1].Resize(r, UBound(ar, 2)) = ar
    Set dic = Nothing
    Beep
End Sub

gwjkkkkk

VBA法，请参考。。。