有時，當我們使用excel工作簿時，我們需要在工作簿中選擇相同範圍的多個工作表，並對其進行同步以輕鬆便捷地查看信息。 以下方法將使您快速，輕鬆地同步工作表，使其在工作簿中具有相同的範圍。

使用“選擇所有工作表”在所有工作表中選擇相同的範圍

一鍵快速同步所有相同範圍的工作表

使用VBA代碼同步工作表

使用“選擇所有工作表”在所有工作表中選擇相同的範圍

您可以使所有工作表具有在工作簿中選擇的相同範圍，如下所示：

1。 在活動工作表中選擇要在所有工作表中選擇的範圍。 例如範圍A103：C112

2。 然後右鍵單擊工作表選項卡，然後選擇 選擇所有工作表 從菜單中。 看截圖：

3。 工作簿中的所有工作表將具有相同的範圍選擇。

一鍵快速將所有工作表同步到相同範圍

如果你已經安裝 Excel的Kutools，你可以使用 同步工作表 輕鬆同步所有工作表以使其具有相同範圍的功能，如下所示：

Excel的Kutools：具有300多個方便的Excel加載項，可以在30天內免費試用，沒有任何限制。 立即獲取

1。 激活工作表，然後選擇要使用的範圍。

2。 點擊 Enterprise > 工作表工具 > 同步工作表，請參見屏幕截圖：

3。 然後彈出一個提示框，提醒您工作簿中的所有工作表將具有相同的選定範圍和左上角的單元格。

4。 然後點擊 OK，所有工作表均已同步，當您在所有工作表之間導航時，將選擇具有相同範圍的每個工作表。 查看屏幕截圖：

使用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 鍵執行代碼，所有工作表將具有相同的選擇範圍，並在窗口的相同位置顯示所選範圍。

相關文章