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

ステップ1：リストを作成する指定のセルを選択します。 この場合、セルE6を選択します。

ステップ2：プレス 他の + F11 キーを同時に押してMicrosoftVisual 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：動的リストに入力する範囲を選択し、[ クツール > その他 > ワークシートを動的に参照する.

手順2：[ワークシート参照の入力]ダイアログボックスを開いて、

（1）をクリックします 注文を満たす ボックスをクリックし、ドロップダウンリストから塗りつぶしの種類を選択します。 私たちの場合、 セルの後にセルを垂直に塗りつぶす;

で（2） 数式を入力 ボックスで、動的リストを作成するセルアドレスを指定し、[ ロック (Comma Separated Values) ボタンをクリックして、各々のジョブ実行の詳細（開始/停止時間、変数値など）のCSVファイルをダウンロードします。 数式をロックします。

（3）をクリックします 充填範囲

これで、以下のスクリーンショットに示すように、すべてのワークシートの指定されたセルの値が指定された範囲に入力されていることがわかります。

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

同じセルを異なるシートからExcelのシートに自動入力するにはどうすればよいですか？