Excel冻结太多行

Laz*_*ear 1 excel vba excel-vba

我正在尝试冻结Excel工作表中的前4行,但它冻结了20行.我正在使用以下VBA代码来冻结行:

Range("1:4").Select
With ActiveWindow
    .FreezePanes = True
End With
Run Code Online (Sandbox Code Playgroud)

这是一个截图,添加了显示我想要的内容,以及实际发生的情况.我滚动了一下以显示冻结,你可以看到第20行跳转到36.看起来G和H之间有一条垂直冻结线,但它并不重要(可能是右边距分页符).

任何帮助表示赞赏.谢谢.

在此输入图像描述

小智 6

如果要冻结前4行,请参考第5行.

Range("5:5").Select
With ActiveWindow
    .FreezePanes = True
End With
Run Code Online (Sandbox Code Playgroud)

请参阅excel vba冻结窗格而不选择以及如何避免在Excel VBA宏中使用Select.

没有.选择.

With ActiveWindow
    If .FreezePanes Then .FreezePanes = False
    .SplitColumn = 0
    .SplitRow = 4
    .FreezePanes = True
End With
Run Code Online (Sandbox Code Playgroud)