试试这个：

Application.Goto Range("X25"), Scroll:=True

本文提供更多信息和选项，您可能会发现有用：
https://msdn.microsoft.com/en-us/library/office/ff839232.aspx

试试这个。我实际上是用“记录宏”功能得到大部分代码的。当你不知道如何做某事时，这是一个非常方便的工具

my_cell = "ZZ2200"  'change this to whatever you need
cell_row = Range(my_cell).Row
cell_col = Range(my_cell).Column

'moves to the top left corner
ActiveWindow.SmallScroll ToRight:=-9999
ActiveWindow.SmallScroll Up:=-99999

'moves to your active cell
ActiveWindow.ScrollRow = cell_row
ActiveWindow.ScrollColumn = cell_col

'selects your cell
Range(my_cell).Select