複数のワークシートにまたがる一意の値のリストをExcelで作成するにはどうすればよいですか？

Author Xiaoyang Last modified 2025-08-26

Excelで複数のワークシートにまたがるデータを扱う場合、情報を統合して一意の値のリストを生成する必要があるかもしれません。Excelにはこのタスク用の直接的な組み込み機能はありませんが、それを実現するためのいくつかの方法があります。この記事では、複数のワークシートから一意の値のリストを作成するための3つの実践的なアプローチを紹介します。

複数のワークシートから一意の値のリストを作成する

VBAコードを使用して
Kutools AI アシスタントを使用して
数式を使用して（Excel 365）

VBAコードを使用して複数のワークシートから一意の値のリストを作成する

すべてのワークシートからすべての一意の値をリスト化するには、次のVBAコードが役立つかもしれません。以下の手順を行ってください：

1. 「ALT + F11」キーを押して「Microsoft Visual Basic for Applications」ウィンドウを開きます。

2. 「挿入」＞「モジュール」をクリックし、次のマクロをモジュールウィンドウに貼り付けます。

VBAコード：複数のワークシートから一意の値のリストを作成する：

Sub SheelsUniqueValues()
Dim xObjNewWS As Worksheet
Dim xObjWS As Worksheet
Dim xStrAddress As String
Dim xIntRox As Long
Dim xIntN As Long
Dim xFNum As Integer
Dim xMaxC, xColumn As Integer
Dim xR As Range
xStrName = "Unique value"
Application.ScreenUpdating = False
xMaxC = 0
Application.DisplayAlerts = False
For Each xObjWS In Sheets
    If xObjWS.Name = xStrName Then
        xObjWS.Delete
        Exit For
    End If
Next
Application.DisplayAlerts = True
For xFNum = 1 To Sheets.Count
    xColumn = Sheets(xFNum).Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    If xMaxC < xColumn Then
        xMaxC = xColumn
    End If
Next xFNum
Application.DisplayAlerts = True
Set xObjNewWS = Sheets.Add(after:=Sheets(Sheets.Count))
xObjNewWS.Name = xStrName
For xColumn = 1 To xMaxC
    xIntN = 1
    For xFNum = 1 To Sheets.Count - 1
        Set xR = Sheets(xFNum).Columns(xColumn)
        If TypeName(Sheets(xFNum).Columns(xColumn).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)) <> "Nothing" Then
            xIntRox = xR.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
            Sheets(xFNum).Range(Cells(1, xColumn).Address & ":" & Cells(xIntRox, xColumn).Address).Copy
            Cells(xIntN, xColumn).PasteSpecial xlValues
            xIntN = xIntRox + xIntN + 1
        End If
    Next xFNum
    If xIntRox - 1 > 0 Then
    xIntRox = xIntN - 1
    xStrAddress = Cells(1, xColumn).Address & ":" & Cells(xIntRox, xColumn).Address
    Range(xStrAddress).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    Range(xStrAddress).Copy
    Cells(1, xColumn + 1).PasteSpecial xlValues
    Range(xStrAddress).AdvancedFilter Action:=xlFilterInPlace, Unique:=False
    Columns(xColumn).Delete
    Range(xStrAddress).Sort key1:=Cells(1, xColumn), Header:=xlNo
    End If
Next xColumn
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. 上記のコードを貼り付けた後、F5キーを押してこのコードを実行すると、「Unique value」という名前の新しいワークシートが作成され、すべてのシートの列Aにある一意の名前が次のようにリストされます：

a screenshot showing data in different worksheets and the extracted unique values in another worksheet

Kutools AI アシスタントを使用して複数のワークシートから一意の値のリストを作成する

このセクションでは、Kutools AI アシスタントを使用して複数のワークシートから簡単に一意の値のリストを作成する方法を紹介します。

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

「Kutools」＞「AI アシスタント」をクリックして「Kutools AI アシスタント」ペインを開き、ペイン内で次の操作を行ってください：

チャットボックスに要求を入力します。例えば：
このブック内のすべてのワークシートの列Aからすべての一意の値を抽出し、一意の値を新しいシートにリスト化してください。
そして、Enterキーを押すか「送信」ボタンをクリックします。Kutools AIは質問を分析し、終了したら「実行」ボタンをクリックすると、複数のシートからすべての一意の値が新しいシートに表示されます。デモをご覧ください：

数式を使用して複数のワークシートから一意の値のリストを作成する（Excel 365）

Excelで数式を使用して複数のワークシートから一意の値のリストを作成したい場合は、Excel 365のUNIQUEやVSTACKなどの動的配列関数を組み合わせることでこれを実現できます。

次の数式を空白のセルに入力し、Enterキーを押して複数のシートから一意の値を単一の列に抽出します。スクリーンショットをご覧ください：

=UNIQUE(VSTACK(Sheet1!A1:A11, Sheet2!A1:A11, Sheet3!A1:A11, Sheet4!A1:A11))

extract unique values from multiple sheets by formula

この数式の説明：

VSTACK: 複数の範囲（例：Sheet1!A1:A11, Sheet2!A1:A11, Sheet3!A1:A11, Sheet3!A1:A11）を1つの垂直配列に結合します。
UNIQUE: 重複を除外し、結合されたリストから一意の値のみを返します。
A1:A11: 実際のデータ範囲に対応するように範囲を調整します。

この記事では、Excelで複数のワークシートから一意の値のリストを作成するための3つの効果的な方法について説明しました。各方法には利点があり、Excelのバージョン、スキルレベル、特定のニーズに最も適したものを選択できます。さらに多くのExcelのヒントやコツに関心がある場合、当サイトでは数千ものチュートリアルを提供しています。

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数