引用定義范圍內的特定單元格時出現錯誤 1004

Question

編輯添加解決方案：我正在嘗試做Sumproduct並且我是一個大傻瓜哈哈

我正在嘗試在 VBA 中進行非常簡單的計算，我需要遍歷兩個范圍並乘以特定單元格，然后將該值添加到占位符值。

代碼是：

Dim Input_Cas As Range
    Set Input_Cas = Worksheets("Calculations").Range("A2:A51")
Dim Input_Conc As Range
    Set Input_Conc = Worksheets("Calculations").Range("C2:C51")
    i = 1
Do Until IsEmpty(Range("Input_Cas")(i)) = True
    Tkm = Tkm + Range("Input_Tki")(i) * (Range("Input_Conc")(i) / 100)
    i = i + 1
Loop
Mix_Tkm = Tkm

• 定義為Input_Conc、Input_Tki、Input_Cas的范圍都在活動工作表中，並且在此塊上方的代碼中使用Dim / Set 。

• Tkm是雙倍的， Mix_Tkm也是一個Dim / Set范圍。

• 錯誤 1004 在Do Until... Loop的第一行中出現。

由於語法似乎沒有在IsEmpty(Range("Input_Cas")(i)) = True中引起任何問題，我不確定為什么相同的語法在它下面不起作用。 引用的所有單元格也包含數值，以防萬一。

我愛你們很棒的人，並提前感謝您的幫助。

編輯：范圍的Dim/Set是

Dim Input_Cas As Range
        Set Input_Cas = Worksheets("Calculations").Range("A2:A51")
Dim Input_Conc As Range
        Set Input_Conc = Worksheets("Calculations").Range("C2:C51")
Dim Input_Tki As Range
        Set Input_Tki = Worksheets("Calculations").Range("G2:G51")

Answer 1

正如建議的那樣，我正在為未來的人們發布自我的答案。

我試圖通過循環從 VBA 中的 excel 重新創建Sumproduct function。 我正在嘗試在 excel 中更有效地完成。 我不知道Sumproduct是一個東西，它完全符合我的嘗試。

感謝 Bigben 提供了我自己找不到的解決方案。