Access vba取表中的值

我的目标：让中国的大学生走出校门的那一刻就已经具备这些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)的作用是换行。