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列中列出的页数。所以$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中。

VBA插入具有计数功能的变量公式

1 个答案: