跳至主要内容

如何在 Excel 工作簿的所有工作表中同步相同的选定区域？

Author: Tech Support Last Modified: 2025-07-31

在使用 Excel 工作簿时，您可能需要在多个工作表中选择相同的区域，以便更高效地比较或分析数据。以下方法将帮助您快速同步所有工作表中的选定区域，从而更方便地一致查看信息。

A screenshot of Sheet1 with a range selected A screenshot of Sheet2 with the same range selected

通过“全选工作表”功能在所有工作表中选择相同区域

一键快速同步所有相同区域的工作表

使用 VBA 代码同步工作表

通过“全选工作表”功能在所有工作表中选择相同区域

您可以使所有工作表在同一工作簿中选择相同的区域，如下所示：

1. 在活动工作表中选择一个要在所有工作表中选择的区域。例如，区域“A103:C112”。

2. 然后右键单击工作表标签，并从菜单中选择“全选工作表”。

A screenshot of the 'Select All Sheets' option in Excel's right-click menu

3. 工作簿中的所有工作表都将选择相同的区域。

注意：使用此方法在所有工作表中选择相同区域时，只能选择所有工作表中的相同区域，但无法在窗口的相同位置显示所有选定区域。

一键快速同步所有工作表到相同区域

如果您已经安装了“Kutools for Excel”，可以使用“同步工作表”功能轻松同步所有工作表，使其具有相同的区域，具体操作如下：

Kutools for Excel 提供了超过 300 种高级功能，简化复杂任务，提升创造力与效率。 通过集成 AI 能力，Kutools 能够精准自动执行任务，让数据管理变得轻松简单。Kutools for Excel 的详细信息...         免费试用...

1. 激活一个工作表并选择要使用的区域。

2. 单击 Kutools Plus > 工作表 > 同步工作表。

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

A screenshot of the Synchronize Worksheets prompt box

4. 单击“确定”，所有工作表都会被同步。当您在所有工作表之间切换时，每个工作表都会选择相同的区域。请参见截图：

A screenshot of synchronized worksheets showing the same selected range A screenshot of synchronized worksheets showing the same selected range
A screenshot of synchronized worksheets showing the same selected range A screenshot of synchronized worksheets showing the same selected range
注意：如果在“同步工作表”提示框中勾选了“下次不再显示”，则下次应用此功能时该框将不会出现。

 

提示：

使用 VBA 代码同步工作表

使用以下 VBA 代码，您可以快速使所有工作表选择相同的区域，并在窗口的相同位置显示选定区域。

1. 在一个工作表中选择一个区域，然后单击“开发工具”>“Visual Basic”，将显示一个新的“Microsoft Visual Basic for Applications 窗口”。

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”键执行代码，所有工作表都将选择相同的区域，并在窗口的相同位置显示选定区域。