之前文章讲了在Excel VBA中的两种循环语句,for与do while循环,并且做了个把数字从1到20依次填充到单元格区域的案例。今天继续讲循环结构基础部分内容,如何在循环结构中实现对数据的汇总,这里需要用到计数器与累加器的概念。

来看一下今天的案例,打开 “咸将输出” Excel工作表,在表格里面的黄色区域内依次统计咸将的出现人数及总输出伤害:

如果用函数的话非常容易做的,用COUNTA与SUM函数就能解决,这个在工作中如果用VBA来计算就完全没必要,有点舍近求远的感觉。这里是为了教学需要进行演示,来看一下这里的汇总求和在VBA里代码要怎么来写。

写入以下代码:

Sub zzz() Dim i As Integer 计数器 = 0 累加器 = 0 i = 3 Do While Range("C" & i) <> "" 计数器 = 计数器 + 1 累加器 = 累加器 + Range("D" & i) i = i + 1 Loop Range("E10") = 计数器 Range("F10") = 累加器 End Sub

运行后看一下结果:

结果是完全正确的,这就是计数器与累加器的汇总方法,怎么更容易理解它们呢?其实计数器与累加器它们就是变量,等同于代码里的 i ,这里一共就用到了3个变量,i 控制了循环次数,计数器与累加器的初始值为0,计数器很好理解每次统计加上1代表人数,累加器就是每次扫描到的单元格里的值就存到这个变量,循环语句运行一次在累加器里就存进去一次,不断累加,最后得到汇总结果。

今天的循环语句中计数器与累加器的基本概念就介绍到这里,案例是最基础的,只有基础打牢固了以后就能用VBA来应对更复杂的业务,感谢阅读。