如何同步工作簿的所有工作表与在Excel当选择的相同範围？-英雄云拓展知识分享

有时，当我们使用excel工作簿时，我们需要在工作簿当选择相同范围的多个工作表，并对其进行同步以轻鬆便捷地查看信息。 以下方法将使您快捷，轻鬆地同步工作表，使其在工作簿中具有相同的范围。

使用“选择所有工作表”在所有工作表当选择相同的范围

一键快捷同步所有相同范围的工作表

使用VBA代码同步工作表

使用“选择所有工作表”在所有工作表当选择相同的范围

您可使所有工作表具有在工作簿当选择的相同范围，以下所示：

1。 在活开工作表当选择要在所有工作表当选择的范围。 例如范围A103：C112

2。 然后右键单击工作表选项卡，然后选择 选择所有工作表 从菜单中。 看截图：

3。 工作簿中的所有工作表将具有相同的范围选择。

一键快捷将所有工作表同步到相同范围

如果你已安装 Excel的tools，你可使用 同步工作表 轻鬆同步所有工作表以使其具有相同范围的功能，以下所示：

Excel的tools：具有300多个方便的Excel加载项，可以在30天内免费试用，没有任何限制。 立即获得

1。 激活工作表，然后选择要使用的范围。

2。 点击 企业 > 工作表工具 > 同步工作表，请参见屏幕截图：

3。 然后弹出一个提示框，提示您工作簿中的所有工作表将具有相同的选定范围和左上角的单元格。

4。 然后点击 OK，所有工作表均已同步，当您在所有工作表之间导航时，将选择具有相同范围的每一个工作表。 查看屏幕截图：

使用VBA代码同步工作表

使用以下VBA代码，您可以快捷使所有工作表具有相同的选定范围，并在窗口的相同位置显示选定的范围。

1。 在一个工作表当选择一个范围，然后单击 开发者 >Visual Basic中，一个新的 Microsoft Visual Basic利用程序窗口 将显示，

2。 点击 插入 > 模块，然后将以下代码复制并粘贴到模块中：

VBA：同步工作簿的所有工作表

Sub SynchSheets()
'Update 20130912
Dim WorkShts As Worksheet
Dim sht As Worksheet
Dim Top As Long
Dim Left As Long
Dim RngAddress As String
Application.ScreenUpdating = False
Set WorkShts = Application.ActiveSheet
Top = Application.ActiveWindow.ScrollRow
Left = Application.ActiveWindow.ScrollColumn
RngAddress = Application.ActiveWindow.RangeSelection.Address
For Each sht In Application.Worksheets
If sht.Visible Then
sht.Activate
sht.Range(RngAddress).Select
ActiveWindow.ScrollRow = Top
ActiveWindow.ScrollColumn = Left
End If
Next sht
WorkShts.Activate
Application.ScreenUpdating = True
End Sub

3。 然后点击  按钮或 F5 键履行代码，所有工作表将具有相同的选择范围，并在窗口的相同位置显示所选范围。

相干文章