在工作表函数中使用表列作为条件

Question

我想在我的一个计算中使用averageifs，该计算引用其中一个工作表中名为Table1 的表的列之一。如果我将公式粘贴到单元格中，我可以做到这一点。但是我有很多单元格，所以我想避免粘贴。总之我想说：

Selection.Value = WorkSheetfunction.AverageIff(Table1["Col A"], . . . .

Col A 是包含该数据值的列

目前可行：

With Selection
        .FormatConditions.Add Type:=xlExpression, Formula1:=formula

在哪里

formula = "=AVERAGEIFS(Table1[" + name + "],Table1[CELLNAME],Template!RC1,Table1[Date],Template!R1C)"

但正如我所说，我想让代码更高效，避免粘贴公式。那么如何将表格列作为条件插入到工作表函数中。

谢谢

Answer 1

那么如何将表格列作为条件插入到工作表函数中。

使用此代码：

Selection.Value = WorksheetFunction.AverageIfs(Range("Table1[Col A]"), _
                                     Range("Table1[CELLNAME]"), "<criteria1>", _
                                     Range("Table1[Date]"), "<criteria2>")

UPD：

我想用公式填充空白单元格
我不希望公式出现在单元格中

在这种情况下，我建议您采用以下解决方案：

With Selection
    .FormulaR1C1 = "=AVERAGEIFS(Table1[Col A],Table1[CELLNAME],Template!RC1,Table1[Date],Template!R1C)"
    .Value = .Value
End With

它使用公式计算值，然后.Value = .Value 部分用他们的结果重写公式。

---

同时查看此链接：how to avoid using Select/Active statements