解决方案 | vba批量冻结首行，所有sheet一次性设置

Sub FreezeTopRowAllSheets()
    Dim ws As Worksheet

    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 激活工作表
        ws.Activate
        ' 冻结首行
        ActiveWindow.FreezePanes = False
        Rows("2:2").Select
        ActiveWindow.FreezePanes = True
    Next ws

    ' 提示完成
    MsgBox "所有工作表的首行已冻结", vbInformation
End Sub