请各位老师出手帮忙指导，无限感激！！！

hu-123456789 · 发表于 2024-4-8 22:02

如何使用VPA实现，如表二输入数量，表一根据对应的款号、名字和日期自动汇总填充红色部分的数量

quqiyuan · 发表于 2024-4-8 22:15

你这个用公式还方便
=SUMIFS(表二!$D:$D,表二!$C:$C,$A3,表二!$B:$B,$B$1,表二!$A:$A,B2)

dragonthree · 发表于 2024-4-8 22:18

只有张三吗？没有李四？至少举例得有2个人吧？要么就和姓名无关

liulang0808 · 发表于 2024-4-9 07:04

Sub 按钮1_Click()
Dim sm As Double
Set d = CreateObject("scripting.dictionary")
arr = Sheets("表二").UsedRange
For j = 2 To UBound(arr)
      d(arr(j, 1) & arr(j, 2) & arr(j, 3)) = d(arr(j, 1) & arr(j, 2) & arr(j, 3)) + arr(j, 4)
Next j
arr = Sheets("表一").UsedRange
For j = 3 To UBound(arr)
      sm = 0
      For i = 2 To UBound(arr, 2) - 1
         arr(j, i) = d(arr(2, i) & arr(1, 2) & arr(j, 1))
         sm = sm + arr(j, i)
      Next i
      arr(j, UBound(arr, 2)) = sm
Next j
Sheets("表一").UsedRange = arr
End Sub

liulang0808 · 发表于 2024-4-9 07:05

附件内容供参考。。。。

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

[求助] 请各位老师出手帮忙指导，无限感激！！！