VBA滚动到顶部（不向左）

Question

我正在尝试编写一条命令，该命令将当前ActiveCell滚动到页面顶部。

由于Activecell在C列中，如果我使用下面的代码，它将A和B移到视线之外。

如何在不将A和B移出视野的情况下使用活动单元向上滚动。

谢谢

Application.Goto ActiveCell, Scroll:=True

Answer 1

只需尝试：

Sub Scroll()
    ActiveWindow.ScrollRow = ActiveCell.Row
End Sub

Answer 2

以下内容有效，谢谢！

Sub Scroll() 
    ActiveWindow.ScrollRow = ActiveCell.Row 
End Sub