如何向現有數組元素添加值？

Question

假設我有兩個數組（Arr1 和 Arr2）用於.Countifs Application 。

我的第三個數組是 7 個元素的固定大小，我想在整個Array2 中循環該.Countifs並將值添加到Array3 。

到目前為止，我對我的代碼所做的是將.Countifs值傳遞給Array3並每次都覆蓋它。

盡管我嘗試在網上查找，但我所能找到的只是向數組添加元素，但不更新循環中的現有值。

我錯過了什么？

For y = LBound(arr2) To UBound(arr2)

arr3(y) = Application.WorksheetFunction.CountIfs(Sheets(3).Range("B:B"), arr1(Z, x), Sheets(3).Range("E:E"), arr2(y))

Next y

Answer 1

嘗試：

For y = LBound(arr2) To UBound(arr2)


Debug.Print arr3(y)
Debug.Print Application.WorksheetFunction.CountIfs(Sheets(3).Range("B:B"), arr1(Z, x), Sheets(3).Range("E:E"), arr2(y))

arr3(y) = arr3(y) + Application.WorksheetFunction.CountIfs(Sheets(3).Range("B:B"), arr1(Z, x), Sheets(3).Range("E:E"), arr2(y))

Next y

使用 F8 運行代碼，您將知道在數組和函數中計算哪些值，調試將在立即窗口（Cntrl + G）中打印它們