excel通過VBA進行多條件統計

通過函數數組可以進行多條件查找，但是容易出錯，而且很慢。下面分享一條通過VBA實現多條件查找的經驗給大家

工具/原料

 

• EXCEL軟件

方法/步驟

 

1. 1

   以商場2015年第一季度電器銷售統計為例子，“產品”、“品牌”、“月份”3個條件的銷售額進行查詢。

   
2. 2

   假設要統計“康佳”的“1月”份“各類家電”的銷售額，先建一個對應列的工作簿。如圖，輸入條件1：“成品名稱”，條件2:“品牌名稱”，條件3：“月份”

   
3. 3

   下面到了建立宏的步驟：單擊菜單欄中的“開發工具”——插入——表單控件——按鈕，在出現的十字箭頭上拖住畫出一個按鈕，如圖所示。

    

   49EXCEL技巧——如何用VBA實現快速查找

    
   
4. 4

   在彈出的查找紅對話框中選擇“錄制”，在彈出的“錄制新宏”對話框中，修改宏名稱為“查找”，單擊確定。

   
5. 5

   單擊“開發工具”——查看代碼，打開VBA編輯器，如圖所示。

   
6. 6

   在VBA編輯器點擊插入-模塊，如圖

   
7. 7

    現在我們來輸入代碼：

   Sub 查找()

   Dim i As Integer, j As Integer

   arr1 = 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:

   Next

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

   End Sub

   
8. 8

     現在回到EXCEL表格，右擊按鈕，選擇“編輯文字”，修改按鈕名稱為“統計”。那么就完成了