excel通过VBA进行多条件统计

1、以商场2015年第一季度电器销售统计为例子，“产品”、“品牌”、“月份”3个条件的销售额进行查询。

3、下面到了建立宏的步骤：单击菜单栏中的“开发工具”——插入——表单控件——按钮，在出现的十字箭头上拖住画出一个按钮，如图所示。

5、单击“开发工具”——查看代码，打开VBA编辑器，如图所示。

7、现在我们来输入代码：Sub 查找()Dim i As Integer, j As Integerarr1 = Sheets("数据").Range("稆糨孝汶;A2:D" & Sheets("数据").Cells(Rows.Count, "A").End(xlUp).Row)arr2 = Sheets("查找").Range("A2:D" & Sheets("查找").Cells(Rows.Count, "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:NextSheets("查找").Range("A2:D" & Sheets("查找").Cells(Rows.Count, "A").End(xlUp).Row) = arr2End Sub