固定行数分类汇总求和

写给记忆的往事 · 发表于 2014-4-11 23:18

高手请进，固定行数分类汇总求和，并将结果放入对应的表格内，附件如下

LangQueS · 发表于 2014-4-12 10:32

参考：

固定函数分类汇总.zip (41.46 KB, 下载次数: 30)

yjh_27 · 发表于 2014-4-12 20:07

自定义函数

XXC · 发表于 2014-4-13 11:42

LangQueS 发表于 2014-4-12 10:32
参考：

你好Dim arr1()
Set d = CreateObject("scripting.dictionary")
arr = Range("a2:c" & Cells(Rows.Count, 2).End(xlUp).Row)
For i = 1 To UBound(arr)
   If Not d.exists(arr(i, 1)) Then
      n = n + 1
      d(arr(i, 1)) = n
      ReDim Preserve arr1(1 To 3, 1 To n)
      arr1(1, n) = arr(i, 1)
      arr1(2, n) = arr(i, 2)
      arr1(3, n) = arr(i, 3)
Else
      m = d(arr(i, 1))
      arr1(2, m) = arr1(2, m) + arr(i, 2)
      arr1(3, m) = arr1(3, m) + arr(i, 3)
   End If
Next
[e2].Resize(n, 3) = Application.Transpose(arr1)
End Sub
能具体说说程序的说明吗？看了你这个，老是理解不了。
比如说If Not d.exists(arr(i, 1)) Then 明明arr(i, 1)) 是存在的，对吗？

LangQueS · 发表于 2014-4-13 12:55

XXC 发表于 2014-4-13 11:42
你好Dim arr1()
Set d = CreateObject("scripting.dictionary")
arr = Range("a2:c" & Cells(Rows.Coun ...

2楼参考直接使用了数据透视表，未用代码。

建议在论坛搜索“数据透视表”相关主题。

写给记忆的往事 · 发表于 2014-4-26 15:45

LangQueS 发表于 2014-4-12 10:32
参考：

用数据透视思路确实不错，只可惜不能将数据填入我要求的指定单元格，而且封面的内容也没有同步更改哦，还是点个赞，谢谢啦

写给记忆的往事 · 发表于 2014-4-26 15:46

yjh_27 发表于 2014-4-12 20:07
自定义函数

自定义函数的思路也很好，但是与我的要求有差距

写给记忆的往事 · 发表于 2014-4-26 15:49

XXC 发表于 2014-4-13 11:42
你好Dim arr1()
Set d = CreateObject("scripting.dictionary")
arr = Range("a2:c" & Cells(Rows.Coun ...

第一次运行的时候arr(1, 1)) 是不存在的哦

zax010 · 发表于 2014-4-27 09:51

请测试，供参考。

固定行数分类汇总.rar (47.83 KB, 下载次数: 10)

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