数据统计

72cm

求各位大佬帮忙一下，这个是我想要的统计表，每当在B列出现多行相同名称时，都能自动将其数据统计在G列中，还有就是每当B列新增了名称也能在统计表中自动添加，我使用的是office 2010版本的excel，请问这个要怎么编写函数公式或VBA程序，先谢谢了

无关岁月

1. Sub 按钮1_Click()
   
2. Dim d, arr, i, j, m, s
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("b4:c" & [b65536].End(3).Row)
   
5. For i = 1 To UBound(arr)
   
6.     If Len(arr(i, 1)) Then
   
7.         s = arr(i, 1)
   
8.         If d(s) = 0 Then
   
9.             m = m + 1
   
10.             d(s) = m
    
11.             arr(m, 1) = s
    
12.             arr(m, 2) = arr(i, 2)
    
13.         Else
    
14.             j = d(s)
    
15.             arr(j, 2) = arr(j, 2) & "，" & arr(i, 2)
    
16.         End If
    
17.     End If
    
18. Next
    
19. [e4].Resize(m, 2) = arr
    
20. End Sub

复制代码

良良

E4=IFERROR(INDEX(B:B,SMALL(IF((MATCH(B$4:B$999&"",B$4:B$999&"",)=ROW($1:$996))*(B$4:B$999<>""),ROW($4:$999)),ROW(A1))),"")

F4=IF(E4="","",TEXTJOIN("，",1,IF(B$4:B$999=E4,C$4:C$999,"")))

沈默00

F4=TEXTJOIN(";",,FILTER(C4:C28,B4:B28=E4))   下拉

沈默00

沈默00

你的2010版，365函数用不了，，
用VBA经典字典嵌套.......

72cm

沈默00 发表于 2024-8-22 15:26
你的2010版，365函数用不了，，
用VBA经典字典嵌套.......

十分感谢你的帮助

72cm

无关岁月 发表于 2024-8-22 12:04

十分感谢你的帮助，这个也解决了我的问题。

我的城市你来过

=REDUCE($B$3:$C$3,UNIQUE(TOCOL($B$4:$B$28,3)),LAMBDA(x,y,VSTACK(x,HSTACK(y,TEXTJOIN(",",,FILTER($C$4:$C$28,$B$4:$B$28=y))))))