如何在单元格上分配公式，具体取决于vba中不同的工作表的值

我正在尝试为总结报告写一个VBA脚本我在第一个工作表中有多个工作表我有一个总结报告下面的计算我需要做循环多个工作表

Sheets("Dashboard").Select Range("D5").Select Selection.Formula = "=COUNTIF(Sheet2!E:E,""Passed"")" 

像上面我有多个公式适用于单元格，我不想写每个工作表的公式任何build议PLZ

Answer 1

这里是如何循环工作簿中的所有工作表：（避免使用Select ）

  Dim sh As Worksheet For Each sh In ActiveWorkbook.Worksheets If sh.Name <> "NameOfSheet" Then sh.Range("D5").Formula = "=COUNTIF('" & sh.Name & "'!E:E,""Passed"")" End If Next