我的目标:让中国的大学生走出校门的那一刻就已经具备这些Office技能,让职场人士能高效使用Office为其服务。支持鹏哥,也为自己加油!
前面一节我们学习了如何把Excel中的数据读取到VBA数组中,读取完后,数组中的元素经常会参与一些判断或者运算得到一个新数组,然后写入到Excel中去。
我们先来看个例子:
要求:求二办的总销量和平均销量。
按照上一节中思路,我们先把这三列数据读取到一个数组中,然后判断办事处是否为二办,如果是,那就计数,销量累加,全部判断结束以后,累加的结果就是总销量,总销量除以计数结果就是平均销量。
那么我们能不能在判断等于二办之后,把销量的值给读取到一个新的数组里,全部判断完毕,就会得到一个新数组,这个数组的和就是总销量了。
代码如下:
Sub test()Dim arr1, arr2(1 To 15), i%, n%arr1 = Range("a2", [c2].End(xlDown))'先把数据读取到数组arr1中去For i = 1 To Range("a2", [c2].End(xlDown)).Rows.Count If arr1(i, 1) = "二办" Then arr2(i) = arr1(i, 3): n = n + 1 '假如符合条件,就把该数组第三维中对应的元素读取到新的数组arr2中去,同时计数NextMsgBox "二办的总销量为" & WorksheetFunction.Sum(arr2) _ & "二办的平均销量为" & WorksheetFunction.Sum(arr2) / nEnd Sub
向右滑动可以查看完整代码
上面这段代码中还有两个以前没提到过的知识点:
1、If判断语句,如果只有一种情况,那可以写在一行,不用End If 来结束,同时then后,如果有多个需要执行的语句,中间要用冒号隔开。
2、写代码时如果代码太长了想写到下一行去,先敲空格,在敲下划线,然后回车。
上面代码中,我们是先声明了一个1 to 15 的数组用于装判断后得到的结果,得到的新数组如下(可通过本地窗口看到):
那如何才能让这些数值排列在一起,空值排列在一起呢?
代码如下:
Sub test1()Dim arr1, arr2(1 To 15), i%, n%arr1 = Range("a2", [c2].End(xlDown))For i = 1 To Range("a2", [c2].End(xlDown)).Rows.Count If arr1(i, 1) = "二办" Then n = n + 1: arr2(n) = arr1(i, 3)NextMsgBox "二办的总销量为" & WorksheetFunction.Sum(arr2) _ & Chr(13) & "二办的平均销量为" & WorksheetFunction.Sum(arr2) / nEnd Sub
向右滑动可以查看完整代码
这样就可以让数字排列在一起。
细心的同学会发现两段代码最后MsgBox后跟的代码有区别:
第一段代码得到的结果是:
第二段代码得到的结果是:
所以在VBA中,Chr(13)的作用是换行。
知识点:
1、数组的读取。
2、数组中元素的表示方法。
3、不是直接以区域的方式赋值给数组时,数组声明需要写明数组的上标的上线、下限。
4、对于有空值的数组,如何让非空值挨在一起。
5、代码换行的方法。
6、输出的内容换行的方法。
本节的分享就到这里,鹏哥祝大家每天都有进步。
从基础操作到VBA,
两杯咖啡的钱,
换取一份如此详细的Excel视频资料,
你还在犹豫?
欲购从速,联系微信号:527240310
非诚勿扰!
每天进步一点,每天提升一点!