メインコンテンツへスキップ

Kutools for Office — 1つのスイート、5つのツールで、もっと多くのことを成し遂げましょう。

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

Author Tech Support Last modified

Excel ワークブックで作業しているとき、データを効率的に比較したり分析したりするために、複数のワークシート間で同じ範囲を選択する必要がある場合があります。以下の方法は、すべてのワークシートで選択した範囲を迅速に同期し、一貫して情報を確認しやすくするのに役立ちます。

A screenshot of Sheet1 with a range selected A screenshot of Sheet2 with the same range selected

「全シート選択」を使用してすべてのワークシートで同じ範囲を選択する

ワンクリックですべてのワークシートの同じ範囲を迅速に同期する

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

「全シート選択」を使用してすべてのワークシートで同じ範囲を選択する

以下のように、ワークブック内のすべてのワークシートで同じ範囲を選択することができます：

1. すべてのワークシートで選択したいアクティブなワークシートの範囲を選択します。例えば、「A103:C112」という範囲です。

2. 次に、ワークシートタブを右クリックし、メニューから「全シート選択」を選択します。

A screenshot of the 'Select All Sheets' option in Excel's right-click menu

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

注: この方法で全ワークシートで同じ範囲を選択することはできますが、ウィンドウ内の同じ位置にすべての選択範囲を表示することはできません。

ワンクリックですべてのワークシートを同じ範囲に迅速に同期する

「Kutools for Excel」をインストールしている場合、「ワークシートの同期」機能を使用して、すべてのワークシートを簡単に同じ範囲に同期させることができます。手順は次のとおりです：

Kutools for Excelは、300以上の高度な機能を提供し、複雑なタスクを簡素化し、創造性と効率を向上させます。 AI機能と統合され、Kutoolsは正確にタスクを自動化し、データ管理を容易にします。Kutools for Excelの詳細情報...無料トライアル...

1. ワークシートをアクティブにし、使用したい範囲を選択します。

2. Kutools Plus > ワークシート > ワークシートの同期 をクリックします。

3. プロンプトボックスが表示され、ワークブック内のすべてのワークシートで同じ選択範囲と左上のセルが選択されることを通知します。

A screenshot of the Synchronize Worksheets prompt box

4. 「OK」をクリックすると、すべてのワークシートが同期されます。ワークシート間を移動すると、各ワークシートで同じ範囲が選択されていることがわかります。スクリーンショットをご覧ください：

A screenshot of synchronized worksheets showing the same selected range A screenshot of synchronized worksheets showing the same selected range
A screenshot of synchronized worksheets showing the same selected range A screenshot of synchronized worksheets showing the same selected range
注: 「次回からこのメッセージを表示しない」チェックボックスをオンにすると、次回この機能を使用する際にこのボックスは表示されなくなります。

 

ヒント：

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