如何同步工作簿的所有工作表与在Excel中选择的相同范围？

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

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

使用VBA代码同步工作表;

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

---

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

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

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

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

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

请注意： 若要以这种方式在所有工作表中选择相同的范围，它只能在所有工作表中选择相同的范围，但不能在窗口的同一位置显示所有选定的范围。

---

使用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 键执行代码，所有工作表将具有相同的范围，并在窗口的相同位置显示所选范围。

---

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

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

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

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

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

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

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

备注：如果您检查 下次不告诉我 在 同步工作表 提示框，当您下次应用此功能时，该框将不会出现。

有关更多详细信息 同步工作表，请访问： 此处.