|
楼主 |
发表于 2020-2-23 20:52
|
显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
老师我代码是这样的,没有自动做统计,请老师指教
Private Sub Worksheet_Activate()
Call Sheet2.汇总统计
Set d = CreateObject("scripting.dictionary")
arr = Sheet1.Range("a3:a" & Sheet1.[a65536].End(3).Row)
ReDim brr(1 To UBound(arr), 1 To 3)
For i = 1 To UBound(arr)
d(arr(i, 1)) = i
Next
crr = Sheet2.Range("a6:j" & Sheet2.[a65536].End(3).Row)
For i = 1 To UBound(crr)
n = d(crr(i, 2))
If n > 0 Then
If crr(i, 9) > 0 Then brr(n, 1) = brr(n, 1) + crr(i, 9)
If crr(i, 10) > 0 Then
brr(n, 2) = brr(n, 2) + crr(i, 10)
brr(n, 3) = brr(n, 1) - brr(n, 2)
End If
End If
Next
Sheet1.[e3].Resize(UBound(brr), 3) = brr
End Sub |
|