Visual Basic Excel 冻结第一行

在 Excel 中，当您滚动工作表时，第一行可能会消失，这可能会让您的工作更加困难。幸运的是，您可以使用一些代码来冻结第一行，让它在屏幕顶部始终可见。下面是如何使用 Visual Basic 在 Excel 中冻结第一行：

冻结第一行

要冻结第一行，您需要使用 ActiveWindow.SplitRow 方法。这个方法将在当前选定的单元格行之上创建一个分割线，将其拆分成两个区域，并将顶部区域滚动到屏幕顶部。您需要在代码的开头插入以下行：

ActiveWindow.SplitRow = 1
ActiveWindow.FreezePanes = True

这将把第一行分成两部分，第一部分将被固定在您的屏幕上方，而第二部分将可以滚动。要取消冻结，您可以简单地将 FreezePanes 属性设置为 False。

ActiveWindow.FreezePanes = False

完整代码

最终代码如下所示：

Sub FreezeTopRow()
    ActiveWindow.SplitRow = 1
    ActiveWindow.FreezePanes = True
End Sub

Sub UnfreezeTopRow()
    ActiveWindow.FreezePanes = False
End Sub

这个代码将创建两个子程序，一个用于冻结第一行，另一个用于取消冻结。如果您想在 Excel 中冻结顶部多行，请使用类似的代码，只是需要将 ActiveWindow.SplitRow 属性替换为要冻结的行数。