请假大神如何用VBA实现统计

洋务德雷

其实这个问题透视表就可以解决
vba也可以。看一下吧，都罗列上去了。

lizhipei78

最简单的字典应用
统计收支汇总1.rar (19.41 KB, 下载次数: 3)

2023-3-25 13:00 上传

点击文件名下载附件

今日123

Sub 汇总()
  Dim r%, i%
  Dim arr, brr
  Dim d As Object
  Set d = CreateObject("scripting.dictionary")
  With Worksheets("sheet2")
    r = .Cells(.Rows.Count, 3).End(xlUp).Row
    arr = .Range("a1:c" & r)
  End With
  For i = 2 To UBound(arr)
    xm = arr(i, 1)
    If Not d.exists(xm) Then
      ReDim brr(1 To 3)
      brr(1) = xm
    Else
      brr = d(xm)
    End If
    k = IIf(arr(i, 3) = "收", 2, 3)
    brr(k) = brr(k) + arr(i, 2)
    d(xm) = brr
  Next
  With Worksheets("sheet1")
    .Range("a2").Resize(d.Count, 3) = Application.Transpose(Application.Transpose(d.items))
  End With
End Sub