如何第一列中重复的值提出来？

luhming

c列是人名，有重复项，如果有重复，则要求把所有重复的人对应的A列的值填在E列单元格里，求VBA代码

shiruiqiang

先遍历，字典重复就array(+1,+补贴名称)

luhming

shiruiqiang 发表于 2024-7-2 16:30
先遍历，字典重复就array(+1,+补贴名称)

大神，vba有点小白，能帮写一下吗

dragonthree

textjoin函数就可以了

dragonthree

=TEXTJOIN("、",1,IF($c$2:$c$1000=c2,$a$2:$a$1000,"")),数组公式，

心的启点

你这个补贴的金额要不要累加起来？

limonet

关键字：map

Qs18

Sub qs() '2024/7/2
    Dim arr, dic, i
    With Sheet1
        arr = .Range("a1").CurrentRegion.Value
        Set dic = CreateObject("scripting.dictionary")
        For i = 2 To UBound(arr)
            s = arr(i, 3)
            If Not dic.exists(s) Then
                dic(s) = arr(i, 1)
            Else
                If InStr(dic(s), arr(i, 1)) = 0 Then
                    dic(s) = dic(s) & "、" & arr(i, 1)
                End If
            End If
            
        Next
    For i = 2 To UBound(arr)
        arr(i, 5) = dic(arr(i, 3))
    Next
    .Range("e1").Resize(UBound(arr), 1) = Application.Index(arr, 0, 5)
    End With
End Sub

limonet

请大家忽略，以后不回复了。

Qs18

试试.................