Excel VBA中意外生成垂直冻结窗格的排查与解决方法

问题场景 #

编写的VBA脚本意图冻结每个工作表的1-5行，但运行后意外生成了垂直冻结窗格，需要定位错误并修正。

错误原因 #

代码中冻结窗格的逻辑存在问题：

ws.Rows("1:5").Select
ActiveWindow.FreezePanes = True

当选中整行1:5后执行FreezePanes，Excel会以选中区域的右下角单元格（即Excel最大列的第5行，如XFD5）为基准设置冻结分割线。这会同时触发水平冻结（前5行）和垂直冻结（所有左侧列），这就是出现意外垂直冻结的核心原因。

修正方案 #

要仅冻结前5行，无需选中整行，只需定位到第6行第1列的单元格，再执行冻结操作——此时Excel会仅冻结该单元格上方的所有行，不会产生垂直冻结。同时建议避免使用Activate和ActiveWindow，改用工作表自身的窗口对象，提升代码稳定性。

修正后的完整代码 #

Sub FormatSheets()
    Dim ws As Worksheet
    ' 遍历工作簿中所有工作表
    For Each ws In ThisWorkbook.Sheets

        ' 设置所有列宽为9.75
        ws.Cells.EntireColumn.ColumnWidth = 9.75

        ' 先解除所有冻结窗格
        ws.Windows(1).FreezePanes = False
 
        ' 定位到第6行第1列，冻结上方5行
        ws.Cells(6, 1).Select
        ws.Windows(1).FreezePanes = True

        ' 设置K列宽度为26.79
        ws.Columns("K").ColumnWidth = 26.79

        ' 设置K列单元格文本自动缩小适配
        ws.Range("K:K").ShrinkToFit = True

        ' 设置第1行行高为118.5
        ws.Rows(1).RowHeight = 118.5

        ' 设置打印边距为最小值，并配置打印选项
        With ws.PageSetup
            .LeftMargin = Application.InchesToPoints(0.25)
            .RightMargin = Application.InchesToPoints(0.25)
            .TopMargin = Application.InchesToPoints(0.25)
            .BottomMargin = Application.InchesToPoints(0.25)
            .HeaderMargin = Application.InchesToPoints(0.25)
            .FooterMargin = Application.InchesToPoints(0.25)
            .FitToPagesWide = 1
            .FitToPagesTall = False
            .PrintTitleRows = "$1:$4"
        End With
    Next ws
End Sub

额外优化说明 #

• 用ws.Windows(1)替代ActiveWindow，避免因工作表切换导致的活动窗口关联错误，代码更鲁棒。
• 使用With语句批量处理PageSetup属性，简化代码结构，提升可读性。

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