新Excel VBA实现多条件销售额统计

函数数组与VBA多条件查找

在Excel中，通过函数数组可以进行多条件查找，但容易出错且运行速度较慢。为了解决这个问题，可以利用VBA来实现多条件查找，提高效率和准确性。

示例：商场电器销售额统计

以商场2015年第一季度电器销售统计为例，假设要统计“康佳”的“1月”份“各类家电”的销售额。首先，在Excel中建立一个对应列的工作簿，输入条件1：“产品名称”、条件2：“品牌名称”、条件3：“月份”。

VBA宏的建立

首先单击菜单栏中的“开发工具”，依次选择插入 -> 表单控件 -> 按钮，在表格中绘制一个按钮。接着，在弹出的查找对话框中选择“录制”，并命名宏为“查找”。然后点击“开发工具” -> “查看代码”，在VBA编辑器中插入一个模块，并输入相应的VBA代码。

VBA代码实现

在VBA编辑器中输入以下代码：

```vba

Sub 查找()

Dim i As Integer, j As Integer

arr1 Sheets("数据").Range("A2:D" Sheets("数据").Cells(, "A").End(xlUp).Row)

arr2 Sheets("查找").Range("A2:D" Sheets("查找").Cells(, "A").End(xlUp).Row)

For i 1 To UBound(arr2)

For j 1 To UBound(arr1)

If arr2(i, 1) arr1(j, 1) And arr2(i, 2) arr1(j, 2) And arr2(i, 3) arr1(j, 3) Then

arr2(i, 4) arr1(j, 4)

GoTo 100

End If

Next

arr2(i, 4) ""

100:

Next

Sheets("查找").Range("A2:D" Sheets("查找").Cells(, "A").End(xlUp).Row) arr2

End Sub

```

设置按钮完成统计

回到Excel表格，右键点击按钮，选择“编辑文字”，将按钮名称修改为“统计”。这样就完成了通过VBA实现多条件销售额统计的操作。这种方法能够提高查询效率和准确性，适用于复杂的多条件查找需求。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。