Excel页面布局视图下冻结窗格失效，能否通过VBA实现首行冻结？

可以通过VBA模拟冻结首行的效果，因为Excel原生在页面布局视图中不支持冻结窗格功能。以下是具体实现代码和说明：

实现代码 #

将以下代码粘贴到目标工作表的代码模块中（右键工作表标签 → 查看代码）：

' 存储固定表头的形状对象
Private headerShape As Shape

Private Sub Worksheet_Activate()
    ' 切换到页面布局视图时创建固定表头
    If ActiveWindow.View = xlPageLayoutView Then
        CreateFixedHeader
    End If
End Sub

Private Sub Worksheet_Scroll()
    ' 滚动时同步表头位置，保持在窗口顶部
    If ActiveWindow.View = xlPageLayoutView Then
        UpdateHeaderPosition
    End If
End Sub

Private Sub Worksheet_Deactivate()
    ' 离开工作表时清除固定表头
    On Error Resume Next
    headerShape.Delete
    On Error GoTo 0
End Sub

Private Sub CreateFixedHeader()
    Dim headerRange As Range
    Set headerRange = Me.Rows(1)
    
    ' 删除已存在的固定表头
    On Error Resume Next
    Me.Shapes("FixedHeader").Delete
    On Error GoTo 0
    
    ' 复制首行内容为图片，创建浮动形状
    Set headerShape = Me.Shapes.AddPicture( _
        headerRange.CopyPicture(xlScreen, xlPicture), _
        LinkToFile:=False, SaveWithDocument:=True, _
        Left:=headerRange.Left, Top:=ActiveWindow.Top, _
        Width:=headerRange.Width, Height:=headerRange.Height)
    
    headerShape.Name = "FixedHeader"
    headerShape.Placement = xlFreeFloating
End Sub

Private Sub UpdateHeaderPosition()
    ' 保持表头始终在窗口顶部
    headerShape.Top = ActiveWindow.Top
End Sub

代码说明 #

• Worksheet_Activate：工作表激活时，若当前是页面布局视图，自动创建首行的副本作为固定表头。
• Worksheet_Scroll：滚动工作表时，实时更新表头位置，确保它始终停留在窗口顶部。
• Worksheet_Deactivate：切换到其他工作表时，自动删除固定表头，避免影响其他视图操作。
• CreateFixedHeader：将首行内容复制为图片，生成一个浮动形状作为固定表头，保证视觉效果和原首行一致。
• UpdateHeaderPosition：同步表头形状的顶部位置与窗口顶部，实现"冻结"效果。

注意事项 #

• 如果首行内容有修改，需要重新激活工作表（切换到其他工作表再切回来），或者手动运行CreateFixedHeader子程序来更新表头。
• 若要让所有工作表都支持该功能，可以将核心逻辑移到ThisWorkbook的SheetActivate事件中。

内容的提问来源于stack exchange，提问作者Snorlax