用VBA设置固定列公式

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

Sub SetFormulaInMarchSheets()
    Dim ws As Worksheet
    Dim i As Integer
    Dim sheetName As String
    
    For i = 8 To 31
        sheetName = "3月" & i & "日"
        ' 尝试获取指定名称的工作表
        On Error Resume Next
        Set ws = ThisWorkbook.Worksheets(sheetName)
        On Error GoTo 0
        
        If Not ws Is Nothing Then
            ws.Range("F54").Formula = "=SUM(F2:F52)"
        End If
        Set ws = Nothing
    Next i
End Sub

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

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

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

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