VBA如何将selection居中

你可以使用以下代码将当前选定区域居中：

Sub CenterSelection()
    ActiveWindow.ScrollRow = Selection.Rows(1).Row
    ActiveWindow.ScrollColumn = Selection.Columns(1).Column
    With ActiveWindow
        .ScrollRow = .ScrollRow - .VisibleRange.Rows.Count / 2
        .ScrollColumn = .ScrollColumn - .VisibleRange.Columns.Count / 2
    End With
End Sub

将这段代码复制到VBA编辑器中，然后在Excel中选择要居中的区域，运行此宏即可将选定区域居中。