如何在 Excel 工作簿的所有工作表中同步相同選定的區域?

巴西世界杯梅西

使用 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 Sub3. 接著點擊「執行」按鈕或按「F5」鍵來執行程式碼,所有工作表都會選取相同的區域,並在視窗的相同位置顯示選定的區域。

jap为什么是对日本人的蔑称
唐人街英语怎么说