vba - Excel卡住太多行

Question

我试图卡住我的 Excel 工作表中的前 4 行，但卡住了 20 行。我正在使用以下 VBA 代码来卡住行:

Range("1:4").Select
With ActiveWindow
    .FreezePanes = True
End With

这是一个屏幕截图，添加了注释以显示我想要的内容以及实际发生的情况。我滚动了一下以显示卡住，您可以看到第 20 行跳到第 36 行。看起来 G 和 H 之间有一条垂直卡住线，但这并不重要(可能是右边距分页符)。

感谢任何帮助。谢谢。

Answer 1

如果要卡住前 4 行，请引用第 5 行。

Range("5:5").Select
With ActiveWindow
    .FreezePanes = True
End With

参见 excel vba freeze pane without select和 How to avoid using Select in Excel VBA macros .

没有。选择。

With ActiveWindow
    If .FreezePanes Then .FreezePanes = False
    .SplitColumn = 0
    .SplitRow = 4
    .FreezePanes = True
End With