使用範圍單元格的sumifs - 錯誤1004

Question

我需要你的幫助。

如果我運行這段代碼，有沒有問題發生（是關注Sheet1.Range（「F2：BL6991」））

Colnumber = Sheet2.Range("A1").End(xlToRight).Column 
    'MsgBox (Colnumber) 

    For j = 3 To Colnumber 

     For i = 2 To Rownumber 
     Sheet2.Cells(i, j).Value = Application.WorksheetFunction.SumIfs(Sheet1.Range("F2:BL6991"), Sheet1.Range("E2:E6991"), Sheet2.Cells(i, 1)) 


     Next i 

    Next j 

但是當我嘗試改變這種代碼：（ⅰ從Sheet1.Range我的代碼（改變 「F2：BL6991」），以Sheet1.Range（細胞（2，J + 3），細胞（6991，J + 3）））

Colnumber = Sheet2.Range("A1").End(xlToRight).Column 
     'MsgBox (Colnumber) 

     For j = 3 To Colnumber 

      For i = 2 To Rownumber 
      Sheet2.Cells(i, j).Value = Application.WorksheetFunction.SumIfs(Sheet1.Range(cells(2,j+3), cells(6991, j+3)) , Sheet1.Range("E2:E6991"), Sheet2.Cells(i, 1)) 


      Next i 

     Next j 

它給了我錯誤1004.

即使我用這個代碼，它給了我同樣的錯誤：

Sheet1.Range(cells(2,6), cells(6991, 6)) 

或

Sheet2.Cells(i, j).Value = varResult 
     varResult = Application.WorksheetFunction.SumIfs(_ 
         Arg1:=Sheet1.Range(Cells(2, 6), Cells(6991, 6)), _ 
         Arg2:=Sheet1.Range("E2:E6991"), _ 
         Arg3:=Sheet2.Cells(i, 1)) 

你能指導我哪裏做錯了，如何也解決？

TIA

Answer 1

你的主要問題是，SUMIF僅持有3個參數：

SUMIF(range, criteria, [sum_range]) 

這將工作：

Dim Range1 As Range 
Dim Condition As Range 

Set Range1 = Worksheets("Sheet1").Range("F2:BL6991") 

Colnumber = Sheet2.Range("A1").End(xlToRight).Column 
For j = 3 To Colnumber 
    For i = 2 To 10 
     Set Condition = Worksheets("Sheet2").Cells(i, 1) 
     Sheet2.Cells(i, j).Value = Application.WorksheetFunction.SumIf(Range1, Condition) 
    Next i 
Next j