Excel vba sumifs在带有条件的多个范围对象上

Question

我正在尝试构建一个宏来创建基于具有2个标准的Sumifs公式的表。 第一个标准范围从没有表格格式的表中获取值，并且每天的行数都会更改，因此我使用Internet中的Lastrow示例。这种情况的标准是“ C”用于在西班牙购买的“ C”

第二条标准范围是同一表中的另一列，而无需表格格式和标准2来自枢轴表中的一行的

'Generar Formulas de a Partir de L (C= Montos de Compra)
    Range("L" & Rows.Count).End(xlUp).Offset(3).Select
    ActiveCell.FormulaR1C1 = "C"
    Range("L" & Rows.Count).End(xlUp).Offset(1).Select

'Se aplica la formula de SUMIFS para dos condiciones, de Operación y tit
   Dim lRowJ As Long
   Dim lRowAA As Long
   Dim lRowV As Long
   Dim rngCriterio1 As Range
   Dim rngCriterio2 As Range
   Dim rngSuma As Range
'Asignación de los rangos
   lRowJ = Range("J" & Rows.Count).End(xlUp).Row
   lRowAA = Range("AA" & Rows.Count).End(xlUp).Row
   lRowV = Range("V" & Rows.Count).End(xlUp).Row
   Set rngCriterio1 = Range("J2" & lRowJ)
   Set rngCriterio2 = Range("AA2" & lRowAA)
   Set rngSuma = Range("V2" & lRowV)
'Uso de los rangos en la fórmula.
Range(ActiveCell, ActiveCell) = WorksheetFunction.SumIfs _
    (rngSuma, rngCriterio1, "C", rngCriterio2, "=RC[-9]")
'Liberación de los objetos.
  Set rngCriterio1 = Nothing
  Set rngCriterio2 = Nothing
  Set rngSuma = Nothing

' Se autocompleta con la formula
    
    Dim ultimaFila As Long
    ultimaFila = Range("C" & Rows.Count).End(xlUp).Row
    Selection.AutoFill Destination:=Range(ActiveCell.Address & ":L" & ultimaFila)

值在每个自动完成的单元格中，它甚至都不放置公式