如何用VBA分组统计各分类下的数量

wanghui3g · 发表于 2011-1-1 21:59

各位大侠，元旦快乐！！

我想用VBA统计出各分类下的图书数量。

谢谢大家！

HHAAMM · 发表于 2011-1-1 22:07

这个用函数或vba都很简单，问下楼主是做什么工作的！！

wanghui3g · 发表于 2011-1-1 22:10

做IT的，嘿嘿，应是IT里的业余选手，最近涉及些报表，不知怎么做了，一直用透试表，但有时还有别的列，闲每次太麻烦，所以想知道用VBA怎么做

wanghui3g · 发表于 2011-1-1 22:13

版主大侠，给我介绍一本初学VBA的书吧

HHAAMM · 发表于 2011-1-1 22:23

Excel本身有这个功能，先用这个吧
（2楼问题是因为你的附件看着眼熟，

俺是买书的）

xuexi2xuexi · 发表于 2011-1-1 22:25

Sub 统计()
Dim A, D As Object, i&
Set D = CreateObject("scripting.dictionary")
A = Range("A2").Resize(Range("a" & Rows.Count).End(xlUp).Row - 1, 1)
For i = 2 To UBound(A)
If Not D.exists(A(i, 1)) Then
      D.Add A(i, 1), 1
      Else
      D(A(i, 1)) = D(A(i, 1)) + 1
End If
Next
'假如把结果放到sheet2表的第一列和第二列
With Sheets("SHeet2")
.Activate
.Cells.Clear
.[a1].Resize(D.Count, 1) = WorksheetFunction.Transpose(D.keys)
.[b1].Resize(D.Count, 1) = WorksheetFunction.Transpose(D.items)
End With
End Sub

wanghui3g · 发表于 2011-1-1 22:35

这个功能也不会，学习了

wanghui3g · 发表于 2011-1-1 22:36

很强大，学习了，部份代码没看懂，我得研究研究

huyonghong · 发表于 2024-3-31 14:42

如果有两个分类为条件呢？

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

[求助] 如何用VBA分组统计各分类下的数量

回复 2楼 HHAAMM 的帖子

回复 2楼 HHAAMM 的帖子

回复 5楼 HHAAMM 的帖子

回复 6楼 xuexi2xuexi 的帖子