[已解决]如何对一个工作簿下的各个工作表自动进行相同操作

hlnzj

编写一个宏，它再计算时只能计算一个工作簿中已经打开的（也就是激活的）工作表中的数据。如果一个工作簿中有几个工作表（sheet1、sheet2、sheet3......)，都需要进行计算，怎样才能做到呢？也就是说在一个工作簿内，能不能将已激活的工作表和未激活的工作表同时都进相同的数据计算。

最佳答案

月排行榜 / 总排行榜

L50814026

2013-8-24 23:40

今天应该是你M我吧，改了一下。你试试看看是不是你要的效果。
因为数组用不好，不是用数组做的，数据较多的话，运行有点慢。

跳转到最佳答案楼层

无聊的疯子

用代码,不仅能把同一个工作薄里所有工作表的数据进行汇总,

还可以对同一文件夹,或者指定文件夹里所有的工作薄里指定包含内容的工作表进行汇总,


只要你能想到的,代码就能做到,这就是  未必啊

L50814026

我大概知道LZ表达的意思了。待我有时间帮你弄一下

L50814026

今天应该是你M我吧，改了一下。你试试看看是不是你要的效果。
因为数组用不好，不是用数组做的，数据较多的话，运行有点慢。

hlnzj

您好，今天我将您修改后的程序试用了，真是达到了我需要的效果，对我的帮助太大了，太感谢了。我还有个想法就是，将每个工作簿下的每个工作表中的数据计算完成后，在该文件夹下再新建一个工作簿，名称为“计算结果汇总”，该工作簿中Sheet1工作表的A列为”工作表名称”，B列为“Total金额正常“，C列为“Total金额可疑”，D列为“Total利息正常”，E列为““Total利息可疑”，A列工作名称自动取该文件夹中每个工作簿下的所有工作表名称，B、C、D、E列自动取该工作表计算完成后的本金合计以及利息合计，所有工作表中的数据取完后在最下边一行进行自动合计，具体要求见以下附件所示：                                                                               
第一个工作簿中第一个工作表”1月“样式:

户名	金额	借款日	到期日	占用形态	天数	年利率	应收利息	Total金额正常	Total金额可疑	Total利息正常	Total利息可疑
XXX	100	2012/5/8	2013/3/22	正常	318	9%	7.95	100.00	500.00	7.95	61.00
YYY	500	2008/2/1	2009/2/1	可疑	366	12%	61

第一个工作簿中第二个工作表”2月“样式：

户名	金额	借款日	到期日	占用形态	天数	年利率	应收利息	Total金额正常	Total金额可疑	Total利息正常	Total利息可疑
AAA	2700	2012/3/18	2013/3/29	正常	376	6.550%	184.71	2700	3590	184.71	1034.482433
BBB	3590	2010/5/9	2013/5/9	可疑	1096	9.465%	1034.4824

第二个工作簿中第一个工作表”3月“样式：

户名	金额	借款日	到期日	占用形态	天数	年利率	应收利息	Total金额正常	Total金额可疑	Total利息正常	Total利息可疑
FFF	960	2011/6/9	2013/9/22	正常	836	8.960%	199.7483	960	40000	199.7482667	39326.57444
GGG	40000	2003/2/1	2013/2/1	可疑	3653	9.689%	39326.57

第二个工作簿中第二个工作表”4月“样式：

户名	金额	借款日	到期日	占用形态	天数	年利率	应收利息	Total金额正常	Total金额可疑	Total利息正常	Total利息可疑
MMM	21360	2002/9/28	2013/9/6	正常	3996	7.434%	17625.7166	21360	4350	17625.71664	1637.829375
NNN	4350	2005/7/31	2010/2/10	可疑	1655	8.190%	1637.82938

需要新建的工作簿”计算结果汇总“样式：
[/table][table=49%]
工作表名称

Total金额正常

Total金额可疑

Total利息正常

Total利息可疑

1月

100

500

7.95

61.00

2月

2700

3590

184.71

1034.482433

3月

960

40000

199.7482667

39326.57444

4月

21360

4350

17625.71664

1637.829375

合计

25020

47940

18010.17491

41998.88625

您看能帮忙做一下吗，如果能把这个编写好了，我的工作量就能大大减轻了，先谢谢前辈了！

hlnzj

工作表名称        Total金额正常        Total金额可疑        Total利息正常        Total利息可疑
1月                   100.00                     500.00                      7.95                  61.00
2月               2700                      3590                     184.71                  1034.482433
3月                    960                     40000                    199.7482667           39326.57444
4月                   21360                     4350                    17625.71664           1637.829375
合计                    25020                    47940                    18010.17491           41998.88625

hlnzj

刚才传的表有点乱，我再传一下，这下能看明白吧。

L50814026

hlnzj 发表于 2013-8-31 01:07
刚才传的表有点乱，我再传一下，这下能看明白吧。

你最好是传个你做的文件，还有最后的汇总文件上来。

hlnzj

实际也有表，就是bmp图像不能上传

hlnzj

怎么才能给你传过去呢，能用qq吗？