KutoolsforOffice— 1 つのソリューション、5 つの強力なツール。少ない労力で大きな成果。

Excel ワークブック内のすべてのワークシートで同じ範囲を選択するには、どのように同期すればよいですか？

著者テクニカルサポート変更日

Excel ワークブックを操作していると、複数のワークシートで同じ範囲を選択して、データをより効率的に比較・分析したい場面がよくあります。以下の方法を使えば、すべてのワークシートで範囲を選択する操作を素早く同期でき、情報を一貫して確認しやすくなります。

範囲が選択された状態のSheet1のスクリーンショット同じ範囲が選択された状態のSheet2のスクリーンショット

「すべてのシートを選択」機能で全ワークシートの同じ範囲を選択

ワンクリックで全ワークシートの同じ範囲を素早く同期

VBA コードを使用してワークシートの同期

「すべてのシートを選択」機能で全ワークシートの同じ範囲を選択

下図のように、ワークブック内のすべてのワークシートで同じ範囲を選択できます。

1。アクティブなワークシートで、全ワークシートに適用したい範囲（例：「A103:C112」）を選択します。

2。ワークシートタブを右クリックし、「すべてのシートを選択」をメニューから選択します。

Excelの右クリックメニュー内の「すべてのシートを選択」オプションのスクリーンショット

3。これにより、ワークブック内のすべてのワークシートで同じ範囲が選択されます。

注：この方法で全ワークシートに同じ範囲を選択する場合、同じ範囲のみ選択可能であり、ウィンドウ内の同じ位置にすべての範囲を選択してくださいを表示することはできません。

ワンクリックで全ワークシートを同じ範囲に素早く同期

「Kutools for Excel」がすでにインストール済みであれば、「ワークシートの同期」機能を使えば、以下のようにしてすべてのワークシートを同じ範囲に簡単に同期できます。

Kutools for Excelは、複雑な作業を効率化する300 以上の高度な機能を提供し、創造性と業務効率を高めます。AI 機能を統合したKutools は正確にタスクを自動化し、データ管理を簡単にします。Kutools for Excel の詳細情報。。。         無料トライアル。。。

1。ワークシートをアクティブにして、ご希望の範囲を選択してください。

2。クリックします。 KUTOOLS PLUS ＞ ワークシート ＞ ワークシートの同期。

3。すると、プロンプトボックスが表示され、「ワークブック内のすべてのワークシートで同じ範囲を選択してください」というメッセージとともに、左上端のセルが適用対象となることが通知されます。

ワークシート同期プロンプトボックスのスクリーンショット

4。「OK」をクリックすると、すべてのワークシートが同期され、ワークシート間を移動する際にも常に同じセル範囲が選択された状態になります。スクリーンショットをご覧ください：

同じ選択範囲を表示する同期済みワークシートのスクリーンショット同じ選択範囲を表示する同期済みワークシートのスクリーンショット
同じ選択範囲を表示する同期済みワークシートのスクリーンショット同じ選択範囲を表示する同期済みワークシートのスクリーンショット
注：ワークシートの同期のプロンプトボックスで「次回から表示しない」をチェックすると、次回この機能を使用する際にこのボックスは表示されません。

 

ヒント：

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」キーを押してコードを実行すると、すべてのワークシートで同じ範囲が選択され、ウィンドウ内の同じ位置に「範囲を選択してください」と表示されます。