如何使用VBA自动计算整个工作薄每个季度的数据

shixuyy

  
共四个季度，每季度三个月计算
如何用vba 使其自动计算 ，把工作簿中的数据都自动算出来
结果：
一季度：燃气费、修理费、路费、保险费、检测费、分别是多少
二季度：燃气费、修理费、路费、保险费、检测费、分别是多少
三季度：
四季度：

shixuyy

自己顶下贴    请各位帮帮忙撒

excel玉米

执行下面程序。
Sub Macro1()
Dim i%, arr(), k, brr(), m%, n%
Dim d As Object
Set d = CreateObject("Scripting.dictionary")
arr = Sheet2.Range("a1").CurrentRegion
arr(2, 1) = "一季度": arr(3, 1) = "一季度": arr(4, 1) = "一季度"
arr(5, 1) = "二季度": arr(6, 1) = "二季度": arr(7, 1) = "二季度"
arr(8, 1) = "三季度": arr(9, 1) = "三季度": arr(10, 1) = "三季度"
arr(11, 1) = "四季度": arr(12, 1) = "四季度": arr(13, 1) = "四季度"

m = UBound(arr): n = UBound(arr, 2)
ReDim Preserve brr(1 To m, 1 To n)
For i = 1 To m
  k = d(arr(i, 1))
  If k = "" Then
  s = s + 1: d(arr(i, 1)) = s: k = s
  brr(s, 1) = arr(i, 1)
  End If
  For j = 2 To n
   brr(k, j) = brr(k, j) + arr(i, j)
  Next
Next

Sheet2.Range("i2").Resize(s, n) = brr '输出结果到工作表指定区域
End Sub

media888

案例.zip (18.35 KB, 下载次数: 12)

2018-6-6 21:39 上传

点击文件名下载附件

      这样吗？

shixuyy

excel玉米 发表于 2018-6-6 21:25
执行下面程序。
Sub Macro1()
Dim i%, arr(), k, brr(), m%, n%

能解释下 这段代码的意思吗 或思路吗 ，小白一个 就能读懂 定义 变量 和for 循环

excel玉米

Sub Macro1()
Dim i%, arr(), k, brr(), m%, n%
Dim d As Object
Set d = CreateObject("Scripting.dictionary")      ‘定义字典
arr = Sheet2.Range("a1").CurrentRegion          ’设置数组范围
‘-------下面这段是将数组里面的月份改为季度，方面后面按季度加总
arr(2, 1) = "一季度": arr(3, 1) = "一季度": arr(4, 1) = "一季度"
arr(5, 1) = "二季度": arr(6, 1) = "二季度": arr(7, 1) = "二季度"
arr(8, 1) = "三季度": arr(9, 1) = "三季度": arr(10, 1) = "三季度"
arr(11, 1) = "四季度": arr(12, 1) = "四季度": arr(13, 1) = "四季度"

m = UBound(arr): n = UBound(arr, 2)   ’m取得数组的下标，n取得数组的右标
ReDim Preserve brr(1 To m, 1 To n)     ‘重新定义数组brr,方便将结果存入数组
For i = 1 To m                            '遍历数据有效行
  k = d(arr(i, 1))                          '用字典查询关键词（数据第1列）是否已经存入字典     
  If k = "" Then                            '如果结果为空白，则该关键字尚未加入字典
  s = s + 1: d(arr(i, 1)) = s: k = s    新的行位置指针值s+1递增（即新添一个单词）、接着把该关键词加入字典、最后对k变量赋值=s指针
  brr(s, 1) = arr(i, 1)           把这个新单词的第1列内容写入结果数组
  End If
  For j = 2 To n               '接下来，遍历第2列只到最后，把该关键词对应的统计数据加总到结果数组brr相应的行、列位置。
   brr(k, j) = brr(k, j) + arr(i, j)  '这里不管开始查询时字典内是否有这个关键词，最后都是以t变量为记录时行位置的指针。
  Next
Next

Sheet2.Range("i2").Resize(s, n) = brr '输出结果到工作表指定区域
End Sub

excel玉米

学习VBA，先看别人的程序，按[F8]逐步运行，在【视图】菜单栏调出【本地窗口】和【监视窗口】，查看每个变量的值，摸清程序的意义。然后尝试自已写，不懂的先用百度搜索，实在不会的再在论坛求助。
从易到难，祝你成功！

shixuyy

excel玉米 发表于 2018-6-7 08:45
学习VBA，先看别人的程序，按[F8]逐步运行，在【视图】菜单栏调出【本地窗口】和【监视窗口】，查看每个变 ...

特别感谢玉米， 我想每个工作表都算出来 ，想了个最笨的方法 就是 把工作表名称改了，然后试着把 sheet2.range改为 activesheet.range  显示错误

excel玉米

请查看附图中每个工作表的关系，将程序中出现的两处 sheet2改为对应要算的表，运行一次得出一次结果即可。