数据分类汇总

czl103

如附件所示，需要按照备注和状态对数据进行分类汇总，但是我写的代码只是将每种状态的第一个值取出来了，烦请大神帮忙，谢谢

天下任我行

Sub 下棋法之多条件多列汇总()
Dim 棋盘(1 To 10000, 1 To 6)
Dim 行数
Dim arr, x As Integer, sr As String, k As Integer
Set d = CreateObject("scripting.dictionary")
arr = Range("a2:h" & Range("H65536").End(xlUp).Row)
For x = 1 To UBound(arr)
    sr = arr(x, 8) & "-" & arr(x, 7)
    If d.Exists(sr) Then
      行数 = d(sr)
      棋盘(行数, 3) = 棋盘(行数, 3) + arr(x, 2)
      棋盘(行数, 4) = 棋盘(行数, 4) + arr(x, 3)
      棋盘(行数, 5) = 棋盘(行数, 5) + arr(x, 4)
      棋盘(行数, 6) = 棋盘(行数, 6) + arr(x, 5)
    Else
      k = k + 1
      d(sr) = k
      棋盘(k, 1) = arr(x, 8)
      棋盘(k, 2) = arr(x, 7)
      棋盘(k, 3) = arr(x, 2)
      棋盘(k, 4) = arr(x, 3)
      棋盘(k, 5) = arr(x, 4)
      棋盘(k, 6) = arr(x, 5)
    End If
Next x
   Range("J16").Resize(k, 6) = 棋盘
End Sub

czl103

天下任我行 发表于 2018-9-13 21:32
Sub 下棋法之多条件多列汇总()
Dim 棋盘(1 To 10000, 1 To 6)
Dim 行数

谢谢 稍后我试下

czl103

天下任我行 发表于 2018-9-13 21:32
Sub 下棋法之多条件多列汇总()
Dim 棋盘(1 To 10000, 1 To 6)
Dim 行数

厉害 学习了

shenjr@163.com

请使用润乾集算器，关于excel的各种数据处理问题均可简单几行代码解决
先下载试用版，满意后再用个人租用版，一年才几十元，非常便宜
QQ联系：70777019，976695，13065247，184305475