用VBA设置固定列公式

设置F54列公式，用VBA设置多个工作表。

Sub SetFormulaInMarchSheets()Dim ws As WorksheetDim i As IntegerDim sheetName As StringFor i = 8 To 31sheetName = "3月" & i & "日"' 尝试获取指定名称的工作表On Error Resume NextSet ws = ThisWorkbook.Worksheets(sheetName)On Error GoTo 0If Not ws Is Nothing Thenws.Range("F54").Formula = "=SUM(F2:F52)"End IfSet ws = NothingNext i
End Sub

说明
代码会检查每个工作表的名称，确保只对日期范围（3月8日～3月31日）的工作表进行操作。

如果某个日期的工作表不存在，代码会自动跳过，不会报错。

公式将写入每个工作表的 F54 单元格，内容为 =SUM(F2:F52)。

如果需要调整公式或目标单元格，修改代码中的 "=SUM(F2:F52)" 和 Range("F54") 即可。