怎么用VBA做分类统计表

speller · 发表于 2018-8-3 16:44

本帖最后由 speller 于 2018-8-3 16:53 编辑

我需要在一个新的excel文件中做一个如test1.xls的sheet2分类统计表

要如何在新文件中编译VBA文件，读取test1.xls的sheet1的数据，统计符合条件的个数，并显示在新文件中的表内

求大神帮忙。

zeephom · 发表于 2018-8-3 17:03

用数据透视表就OK了
https://pan.baidu.com/s/18wlmp3-XGOOKXSqrEZHMqg
frme
有其他问题的话扫码进群沟通

凌空一羽 · 发表于 2018-8-3 17:32

test1.zip (42.94 KB, 下载次数: 62)

speller · 发表于 2018-8-3 17:41

凌空一羽发表于 2018-8-3 17:32

新建一个文件（统计文档.xls）做统计表来读取test.xls的文件，怎么处理？

凌空一羽 · 发表于 2018-8-3 18:12

speller 发表于 2018-8-3 17:41
新建一个文件（统计文档.xls）做统计表来读取test.xls的文件，怎么处理？

6ggggg.zip (54.87 KB, 下载次数: 57)

qnzxjly · 发表于 2018-8-4 01:58

不知道是不是你想要的，打开并汇总同文件夹下的test1文件如果有其他需求可联系qq571563425
小白练手，大神请多指教

Sub 统计()

Application.ScreenUpdating = False

Workbooks.Open ThisWorkbook.Path & "\test1.xls"
ThisWorkbook.Activate
[b3] = "=SUM(C3:K3)"
[c3] = "=COUNTIFS([test1.xls]Sheet1!$D:$D,C$2,[test1.xls]Sheet1!$F:$F,$A3)"
[b3].Copy
[b3:b6].PasteSpecial Paste:=xlPasteFormulas
[c3].Copy
[c3:k6].PasteSpecial Paste:=xlPasteFormulas
Range("b3:k6") = Range("b3:k6").Value
[a1].Select
Application.CutCopyMode = False
Workbooks("test1.xls").Close 0
ThisWorkbook.Save

Application.ScreenUpdating = True

MsgBox "汇总完成"
End Sub

统计文档.zip (49.26 KB, 下载次数: 106)

speller · 发表于 2018-8-4 13:24

qnzxjly 发表于 2018-8-4 01:58
不知道是不是你想要的，打开并汇总同文件夹下的test1文件如果有其他需求可联系qq571563425
小白练手，大神 ...

谢谢，可以用

speller · 发表于 2018-8-4 13:39

本帖最后由 speller 于 2018-8-4 13:41 编辑

凌空一羽发表于 2018-8-3 18:12

多谢大神！
如果是提取多个文件：test1.xls、test2.xls.....testn.xls（按日期统计），文件名在excel表中罗列出来，总表只统计总数：

再建分表，按日期统计：

要怎么处理？

qnzxjly · 发表于 2018-8-4 14:20

speller 发表于 2018-8-4 13:39
多谢大神！
如果是提取多个文件：test1.xls、test2.xls.....testn.xls（按日期统计），文件名在excel表 ...

能给我源文件么，那样容易做一点

speller · 发表于 2018-8-4 16:01

本帖最后由 speller 于 2018-8-5 10:45 编辑

qnzxjly 发表于 2018-8-4 14:20
能给我源文件么，那样容易做一点

发错了，抱歉

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

[求助] 怎么用VBA做分类统计表