如何在 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」鍵來執行程式碼，所有工作表將選取相同的儲存格範圍，並在視窗的相同位置顯示所選區域。

相關文章