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

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にある一意の名前が次のようにリストされます：

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

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

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

1. チャットボックスに要求を入力します。例えば：
   このブック内のすべてのワークシートの列Aからすべての一意の値を抽出し、一意の値を新しいシートにリスト化してください。
2. そして、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))

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