Excelで複数のシートにわたる同じセルからリストを作成するにはどうすればよいですか？

次のVBAコードを使用すると、複数のワークシートにわたる指定されたセルからリストを簡単に作成できます。以下のように操作します：

ステップ1：リストを作成する元となる指定されたセルを選択します。今回の例では、セルE6を選択します。

ステップ2：Alt + F11キーを同時に押してMicrosoft Visual Basic for Applicationsウィンドウを開き、挿入 > モジュールをクリックして、次のコードをモジュールウィンドウに貼り付けます。

VBA：複数のシートにわたる同じセルからリストを作成する

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub

ステップ3：F5キーを押すか、実行ボタンをクリックしてこのVBAを実行します。

そして、すべてのワークシート上の指定されたセルからのすべての値が、新しいワークシート「KutoolsforExcel」にコピーされます。スクリーンショットをご覧ください：

このVBAはリストを新しいワークシートに埋め込み、リスト内の値は静的であり、元の値が変更されても更新されません。

しかし、時にはリストを特定の範囲に埋め込み、リストの値が常に指定されたセルの元の値と一致するようにしたい場合もあります。これらのニーズに対応するには、次の方法をお試しください。

この方法では、Kutools for Excelの「ワークシート参照を自動的に増やす」機能を使用して、複数のワークシートにわたる同じセルから動的なリストを作成します。

ステップ1：動的リストを埋める範囲を選択し、Kutools > その他 > ワークシート参照を自動的に増やすをクリックします。

ステップ2：開いた「ワークシート参照を埋める」ダイアログボックスで、

(1) 「塗りつぶし順序」ボックスをクリックし、ドロップダウンリストから塗りつぶしタイプを選択します。今回の例では、「列ごとに塗りつぶしてから行ごとに塗りつぶす」を選択します；

(2) 埋める数式 ボックスで、動的リストを作成するセルのアドレスを指定し、次に ロック ボタン をクリックして数式をロックします。

(3) 塗りつぶし範囲ボタンをクリックします。

これで、すべてのワークシート上の指定されたセルの値が、以下のスクリーンショットに示すように指定された範囲に埋め込まれます：

元の値が変更されると、この指定されたリスト内の対応する値も自動的に変更されます。

Excelで異なるシートの同じセルを自動的に1つのシートに埋めるにはどうすればよいですか？