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

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

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

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

使用 VBA 代码同步工作表

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

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

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

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

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

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

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

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

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

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

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

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

相关文章