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 つのシートに自動的に入力する方法は？