如何使用其他代码替代Select和ActiveWindow实现同等功能效果

你原有的代码是通过选中A17单元格后触发冻结窗格，实现前16行固定的效果，这类依赖Select方法的写法存在执行效率低、会修改用户当前选中单元格状态、异常场景下容易报错的问题，以下是更优的实现方式：

等价功能优化写法 #

无需选中单元格即可实现完全一致的效果，代码可读性和执行效率都更高：

With ActiveWindow
    ' 先清除已有的冻结设置，避免异常
    .FreezePanes = False
    ' 0代表不冻结列，16代表冻结前16行，对应原代码选中A17冻结的效果
    .SplitColumn = 0
    .SplitRow = 16
    .FreezePanes = True
End With

可选扩展方案 #

如果需要频繁调整冻结范围，可以封装成通用函数，调用时直接传入要冻结的行数、列数即可：

' 通用冻结窗格函数，参数分别为要冻结的行数、列数，不传默认不冻结
Function FreezePane(Optional freezeRow As Long = 0, Optional freezeCol As Long = 0)
    With ActiveWindow
        .FreezePanes = False
        .SplitRow = freezeRow
        .SplitColumn = freezeCol
        .FreezePanes = True
    End With
End Function

' 调用示例：实现原代码的冻结前16行效果
Call FreezePane(freezeRow:=16)

优化优势 #

• 没有使用Select操作，不会改变用户当前选中的单元格，也避免了屏幕刷新带来的闪烁问题，执行效率提升明显
• 冻结范围通过参数直接声明，后续调整时无需修改单元格地址，代码维护成本更低
• 增加了提前清除原有冻结的逻辑，避免当前窗口已有冻结设置时，执行原代码出现不符合预期的结果

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