VBA插入带计数的变量公式答案

【问题标题】：VBA insert variable formula with countingVBA插入带计数的变量公式
【发布时间】：2019-06-07 08:38:51
【问题描述】：

我想为工作簿中的工作表数插入公式到columns C & D，我很高兴生成可用工作表的列表并有一个公式；

=SUMPRODUCT(SUMIF(INDIRECT("'"&$A$1:$A$10&"'!"&"$BI$1:$BI$1000"),C4,INDIRECT("'"&$A$1:$A$10&"'!"&"$ax$1:$ax$1000")))

进行处理。我希望将 $A$10 更改为已编码的 a 列中列出的工作表数。所以$A & "variable"。另外是否可以插入相同数量的行是可变的，即如果工作簿中有 3 张工作表等，则在 C2:D4 中插入公式。

对 VBA 非常陌生，因此非常感谢任何帮助

【问题讨论】：

是的，你可以这样做。你可能想看看Range.FormulaR1C1 函数。 (docs.microsoft.com/en-us/office/vba/api/excel.range.formular1c1)

标签： excel vba excel-formula

【解决方案1】：

我不太理解您的公式，但我认为您希望公式的行数与工作表的行数相同。你可以试试这段代码：

Public Sub InsertFormulae() 'Sample Name
    Dim inCount As Integer      'To move through rows
    inCount = 2
    ActiveSheet.Range("C2:D" & Rows.Count).ClearContents  'To reset C and D columns
    For Each Worksheet In ActiveWorkbook.Worksheets       'To cycle through all sheets
        ActiveSheet.Range("C" & inCount).Formula = ""     'Insert Formula for C Column instead of ""
        ActiveSheet.Range("D" & inCount).Formula = ""     'Insert Formula for D Column instead of ""
        inCount = inCount + 1
    Next Worksheet
End Sub

这将满足您的条件，即如果您有 3 张工作表，公式将放在 C2:D4 中。

【讨论】：