求助下边一列数据怎么求每个人的和

gxt1988 · 发表于 2021-1-5 01:20

张三
12
15
王五
12
58
33
李四
13
96
85
36
王五
33
66
99
李四
33
99
55
23
王五
22
89
258
六六
12

liulang0808 · 发表于 2021-1-5 07:21

Sub 按钮1_Click()
Set d = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
For j = 1 To UBound(arr)
      If VBA.IsNumeric(arr(j, 1)) Then
         d(str1) = d(str1) + arr(j, 1)
      Else
         str1 = arr(j, 1)
      End If
Next j
[h1].Resize(d.Count) = WorksheetFunction.Transpose(d.keys)
[i1].Resize(d.Count) = WorksheetFunction.Transpose(d.items)
End Sub

liulang0808 · 发表于 2021-1-5 07:22

建议楼主发帖带附件。

gxt1988 · 发表于 2021-1-7 19:36

有没有公式可以实现的

简单0913 · 发表于 2022-10-11 14:43

加了一个辅助列

		自动登录	找回密码
密码			免费注册

求助 下边一列数据怎么求每个人的和

评分

求助下边一列数据怎么求每个人的和