1、指定单元格在工作表位置
下例:指定A10单元格位于左上角
Sub 指定单元格至左上角() ActiveWindow.ScrollColumn = Range("a10").Column ActiveWindow.ScrollRow = Range("a10").Row End Sub