新Excel VBA實現(xiàn)多條件銷售額統(tǒng)計

2024-06-01

2066

函數(shù)數(shù)組與VBA多條件查找在Excel中，通過函數(shù)數(shù)組可以進行多條件查找，但容易出錯且運行速度較慢。為了解決這個問題，可以利用VBA來實現(xiàn)多條件查找，提高效率和準(zhǔn)確性。示例：商場電器銷售額統(tǒng)計以商場2

函數(shù)數(shù)組與VBA多條件查找

在Excel中，通過函數(shù)數(shù)組可以進行多條件查找，但容易出錯且運行速度較慢。為了解決這個問題，可以利用VBA來實現(xiàn)多條件查找，提高效率和準(zhǔn)確性。

以商場2015年第一季度電器銷售統(tǒng)計為例，假設(shè)要統(tǒng)計“康佳”的“1月”份“各類家電”的銷售額。首先，在Excel中建立一個對應(yīng)列的工作簿，輸入條件1：“產(chǎn)品名稱”、條件2：“品牌名稱”、條件3：“月份”。

首先單擊菜單欄中的“開發(fā)工具”，依次選擇插入 -> 表單控件 -> 按鈕，在表格中繪制一個按鈕。接著，在彈出的查找對話框中選擇“錄制”，并命名宏為“查找”。然后點擊“開發(fā)工具” -> “查看代碼”，在VBA編輯器中插入一個模塊，并輸入相應(yīng)的VBA代碼。

在VBA編輯器中輸入以下代碼：

```vba

Sub 查找()

Dim i As Integer, j As Integer

arr1 Sheets("數(shù)據(jù)").Range("A2:D" Sheets("數(shù)據(jù)").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

arr2(i, 4) ""

100:

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

End Sub

```

回到Excel表格，右鍵點擊按鈕，選擇“編輯文字”，將按鈕名稱修改為“統(tǒng)計”。這樣就完成了通過VBA實現(xiàn)多條件銷售額統(tǒng)計的操作。這種方法能夠提高查詢效率和準(zhǔn)確性，適用于復(fù)雜的多條件查找需求。