Excelの列範囲から一意の値のリストを動的に抽出するにはどうすればよいですか？

値が定期的に変化する列範囲の場合、どのように変化したかに関係なく、常に範囲からすべての一意の値を取得する必要があります。 一意の値の動的リストを作成するにはどうすればよいですか？ この記事では、その対処方法を説明します。

式を使用して、列範囲から一意の値のリストを動的に抽出します
VBAコードを使用して、列範囲から一意の値のリストを動的に抽出します

式を使用して、列範囲から一意の値のリストを動的に抽出します

以下のスクリーンショットに示すように、範囲B2：B9から一意の値のリストを動的に抽出する必要があります。 次の配列式を試してください。

1. D2などの空白のセルを選択し、次の数式を入力して、を押します。 Ctrlキー + シフト + 入力します 同時にキー。 （B2：B9は一意の値を抽出する列データであり、D1は数式が配置されている上記のセルです）

=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")

2.セルD2を選択し続け、フィルハンドルを下にドラッグして、指定した範囲からすべての一意の値を取得します。

これで、列範囲B2：B9のすべての一意の値が抽出されます。 この範囲の値が変更されると、一意の値リストはすぐに動的に変更されます。

VBAコードを使用して、列範囲から一意の値のリストを動的に抽出します

次のVBAコードを使用して、列範囲から一意の値のリストを動的に抽出することもできます。

1。 押す 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、以下のVBAコードをコピーしてに貼り付けます モジュール 窓。

VBAコード：範囲から一意の値のリストを抽出します

Sub CreateUniqueList()
Dim xRng As Range
Dim xLastRow As Long
Dim xLastRow2 As Long
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
xRng.Copy Range("D2")
xLastRow = xRng.Rows.Count + 1
ActiveSheet.Range("D2:D" & xLastRow).RemoveDuplicates Columns:=1, Header:=xlNo
xLastRow2 = Cells(Rows.Count, "B").End(xlUp).Row
For I = 1 To xLastRow2
  If ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Value = "" Then
     ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Delete
  End If
Next
End Sub

注意：コードでは、D2は一意の値リストを見つけるセルです。 必要に応じて変更できます。

3.ワークシートに戻り、をクリックします インセット > 形状 > 長方形。 スクリーンショットを参照してください：

4.ワークシートに長方形を描き、表示する必要のある単語をいくつか入力します。 次に、それを右クリックして選択します マクロの割り当て 右クリックメニューから。 の中に マクロの割り当て ダイアログボックスで CreateUniqueList マクロ名 ボックスをクリックし、 OK ボタン。 スクリーンショットを参照してください：

5.次に、長方形のボタンをクリックします。 Kutools for Excel ダイアログボックスが表示されます。抽出する必要のある一意の値が含まれている範囲を選択して、[ OK ボタン。

これ以降、上記の手順5を繰り返して、一意の値のリストを自動的に更新できます。

関連記事:

• Excelで動的な月間カレンダーを作成するにはどうすればよいですか？
• Excelのセル値に基づいて画像または画像をセルに動的に挿入するにはどうすればよいですか？
• Excelで別のシートへの動的ハイパーリンクを作成するにはどうすればよいですか？

---

最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80％向上させます

• 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
• スーパーフォーミュラバー （複数行のテキストと数式を簡単に編集できます）; 読書レイアウト （多数のセルを簡単に読み取って編集する）; フィルター範囲に貼り付け...
• セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
• [複製]または[一意]を選択します 行; 空白行を選択 （すべてのセルは空です）; スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
• 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
• テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
• スーパーフィルター （フィルタースキームを保存して他のシートに適用します）; 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
• ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
• 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。

続きを読みます... 無料ダウンロード... 購入... 

---

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

• Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
• 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
• 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!

続きを読みます... 無料ダウンロード... 購入...