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

相关文章