vba 判断是否数组_Excel VBA中数组的应用案例！-CSDN博客

本文介绍了如何在VBA中处理数组，特别是判断数组元素是否满足特定条件并创建新数组的过程。通过示例代码展示了如何在数组中找到特定值（如'二办'），并将符合条件的销量累加。文章还讲解了IF判断语句的简洁用法，数组的声明和赋值，以及如何处理包含空值的数组，确保非空值相邻。最后，讨论了代码换行和输出换行的方法，帮助读者更好地理解和运用VBA处理数组。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

我的目标：让中国的大学生走出校门的那一刻就已经具备这些office技能，让职场人士能高效使用office为其服务。支持我，也为自己加油！

前面一节我们学习了如何把Sheet中的数据读取到VBA数组中，读取完后，数组中的元素经常会参与一些判断或者运算得到一个新的数组，这个新的数组往往是我们需要的结果，需要写入到Sheet里。

怎么把代码中得到的新数组写入到Sheet中呢？

我们先来看个例子：

要求：求二办的总销量和平均销量。

按照上一节中思路，我们先把这三列数据读取到一个数组中，循环出数组中关于办事处的元素，然后判断办事处是否为二办，如果是，那就计数，销量累加，全部判断结束以后，累加的结果就是总销量，总销量除以计数结果就是平均销量。

那么我们能不能在判断等于二办之后，把销量的值给读取到一个新的数组里，全部判断完毕，就会得到一个新数组，这个数组的和就是总销量了。

代码如下：

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后跟的代码有区别：

第一段代码得到的结果是：