VBA插入变量公式与计数

Question

我想在工作簿中将公式插入到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$10已经编码的列中列出的页数。 所以$A & "variable" 。 另外可以插入相同数量的行是可变的，即如果工作簿中有3张，则将公式插入C2:D4中。

VBA非常新，所以非常感谢任何帮助

Answer 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。