SUMIF函数在VBA和如何使用动态范围式

Question

我通过Excel VBA中试图SUMIF函数，但我得到“＃VALUE”错误。

Sub xd() 
R_lastrow = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row 
R_lastcolumn = Sheets(1).Cells(1, Columns.Count).End(xlToLeft).Column 

o_lastrow = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row 
o_lastcolumn = Sheets(2).Cells(1, Columns.Count).End(xlToLeft).Column 

For k = 2 To o_lastrow 
    For j = 2 To o_lastcolumn 
Sheets("Sheet2").Cells(k, j).Value = Sheets("Sheet2").Evaluate("SUMIF(Sheet1!&range(cells(2,R_lastrow),cells(2,R_lastcolumn)),range(1,j),Sheet1!&range(cells(j,R_lastrow))") 
    Next j 
Next k 
End Sub 

可否请你建议我在哪里，我错了

Answer 1

您需要的地址范围代入公式

未经检验：

Sub xd() 

    Const f As String = "SUMIF(Sheet1!<r1>,<r2>,Sheet1!<r3>)" 

    R_lastrow = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row 
    R_lastcolumn = Sheets(1).Cells(1, Columns.Count).End(xlToLeft).Column 

    o_lastrow = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row 
    o_lastcolumn = Sheets(2).Cells(1, Columns.Count).End(xlToLeft).Column 

    f1 = Replace(f, "<r1>", Range(Cells(2, R_lastrow), _ 
            Cells(2, R_lastcolumn)).Address(False, False)) 

    For k = 2 To o_lastrow 
     For j = 2 To o_lastcolumn 
      frm = Replace(f1, "<r2>", Cells(1, j).Address(False, False)) 
      frm = Replace(frm, "<r3>", Cells(j, R_lastrow).Address(False, False)) 
      Debug.Print frm 
      Sheets("Sheet2").Cells(k, j).Value = Sheets("Sheet2").Evaluate(frm) 
     Next j 
    Next k 
End Sub