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のすべての一意の値が抽出されます。この範囲の値が変更されると、一意の値リストはすぐに動的に変更されます。

　 重複セルと一意セルを選択します の有用性 Kutools for Excel 以下のスクリーンショットに示すように、すべての一意の値（最初の重複を含む）またはXNUMX回だけ表示される一意の値、および必要に応じて重複する値を簡単に選択して強調表示するのに役立ちます。
今すぐKutoolsfor Excelをダウンロードしてください！（30日間の無料トレイル）

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を繰り返して、一意の値のリストを自動的に更新できます。

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

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

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

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

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

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

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

31 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
francesco · 8 months ago
how to make the vba code work for a range where another formula was used?
on column B I have a formula, referring to columns D and E.
If I use apply the code to column L (let's say), (obviously, properly modifying the cells in the code) the macro returns the formula applied to columns M and N... It works, then, but not as I want!
How to keep the values in column B?
thanks
- Reply
To post as a guest, your comment is unpublished.
A · 1 years ago
thank you very much
- Reply
To post as a guest, your comment is unpublished.
Charlotte · 1 years ago
I try the VBA Code and the formula. The code VBA is working very well but I can't keep a file with macro. But th problem is that I can't make the formula working. Did anybody have an idea ? Thank you
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi Charlotte,
  Thank you for your comment. You can keep the file with macro for future use by saving the workbook as an Excel Macro-Enabled Workbook.
  For the formula problem, would you please provide a screenshot of your data? Thank you for your comment.
  
  Reply
To post as a guest, your comment is unpublished.
Cameron · 1 years ago
I'm using that =IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"") formula which is great for one column but my data is spread across a range of columns and rows. Can I edit the formula to include the whole area? My data lives from AC4 to AR60...
- Reply
To post as a guest, your comment is unpublished.
Alexis · 2 years ago
Hi, thank you for your help.
Now, how can I have my values also sorted alphabetically? (I do not want to use the filter on my master table)
Should I use a COUNTIFS instead of COUNTIF?
Please HELP
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi Alexis,
  Sorry can't hep to sort the extracted value alphabetically at the same time with formula. Thank you for your comment.
  
  Reply
To post as a guest, your comment is unpublished.
Charley · 2 years ago
I am trying to drag the formula down past my actual data so that I can input different sized data sets and not have to adjust anything. However, the last row after my actual data ends always returns a "0". I am using the unique values for something else in an adjacent column, and the 0 causes the last value to repeated (When I delete the 0 the value is no longer repeated). Any idea how to fix this? Also I am using Office 365 Business
- Reply
To post as a guest, your comment is unpublished.
parkerpress · 2 years ago
If I do this for a thousand row excel sheet on the latest version of Excel on a Mac, it never returns. The first row works, but when I duplicate down, excel goes into a compute mode that has not returned values for over two hours now.

Any thoughts on how to do this for large lists (up to 2k rows) that will return 50 or 60 unique values?

I mocked this up in the "Numbers" app, and it's working perfectly there, taking only a couple minutes to calculate. It's just taking so long in Excel that I wonder if it will ever complete. I plan on letting it "run" overnight to see what will happen.
- Reply
- To post as a guest, your comment is unpublished.
  Josh · 2 years ago
  
  Check your Calculating options. It needs to be set to automatic. File > Options > Formulas > Calculating options > Workbook Calculation (Automatic selection)
  
  Reply
To post as a guest, your comment is unpublished.
Matt · 3 years ago
How would you add a second variable? For instance, I want all the unique elements in one column that also share a similar value in another column. In your example, imagine a 3rd column titled "Department" that would have values like product, meat, etc. I realize those are all Produce, but hopefully you get my point. Would you modify the CountIF formula to a COUNTIFS or do you modify it in another way?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi Matt
  Please try this formula =IF(ISNA(VLOOKUP(A2,$C$2:$C$13,1,FALSE)),"Yes","").
  Supposing the two compared lists are Column A and Column C, If the unique values stay only in Column A but not in Column C, it will be displayed Yes in column B; while if return nothing in Column B, it means corresponding value stays in both Column A and Column C.
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  jyotiba mali · 2 years ago
  
  Thanks for the reply.. but hot to pull out that unique value if it displayed YES.. could you please advice me the formula to pull the unique value in different column.
  
  Reply
To post as a guest, your comment is unpublished.
Zac · 3 years ago
How would you add multiple criteria, such as if you only wanted to add to the dynamic list if the date was just 9/12?

I'm trying "&" in the MATCH formula, but it's not working.

For example, based on your example:
=IFERROR(INDEX($B$2:$B$9, MATCH(0 & B4,COUNTIF($D$1:D1, $B$2:$B$9) & $A$2:$A$9, 0)),"")
This throws an error or creates duplicates.

Alternatively, I've read that "+" might work, although I can't get it working. Or using SMALL.

Ideas?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear Zac,
  Sorry I can’t help with this, you can post your question in our forum: https://www.extendoffice.com/forum.html to get more Excel supports from our professional.
  
  Reply
To post as a guest, your comment is unpublished.
Mike · 3 years ago
Hi Crystal,
I am trying to use the VB version of the unique values list and running into an issue.
The range that I want to create a unique values column from is all formulas that refer to different tabs.
How does one get the value to transfer over instead of the formula?
- Reply
- To post as a guest, your comment is unpublished.
  Odette · 3 years ago
  
  I have the same problem, except that my formula refer to column names and cannot convert to absolute.
  How do I change the vba to paste the values and not the formula?
  
  Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear Mike,
  Please convert your formula references to absolute, and then apply the VB script.
  
  Reply
To post as a guest, your comment is unpublished.
Jones · 3 years ago
Any tips on getting the VBA option to work with Excel 2016 for macOS? I have followed the steps; however, when I run the macro, nothing happens at all. Thanks!
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Daer Jones,
  Please try the below VBA code and let me know whether it works for you. Thank you!
  
  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
  
  Reply
To post as a guest, your comment is unpublished.
Ryan · 3 years ago
Also, for whatever reason, the original formula provided:
=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")

returns a "circular reference" warning and will not calculate..
- Reply
- To post as a guest, your comment is unpublished.
  Andrew · 2 years ago
  
  I've had this happen before - my fix was that I was entering the formula into the cell D1 (equivalent in the worksheet I was using). Whichever cell the $D:$1 corresponds to you need to be entering it in the cell below - D2. Apologies if that's not why you got the error
  
  Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear Ryan,
  Which Office version do you use? The formula works well in my Office 2016 and 2013.
  
  Reply
To post as a guest, your comment is unpublished.
Ryan · 3 years ago
Hello, and thank you for your help.

I need exactly this functionality, but my list of "unique values" needs to extend across columns instead of rows, so the expanding list down the rows won't work for me.

How can I modify this formula in order to make the "unique values" list expand as I drag it across the columns?

Offset()?
Transpose()?
Indirect() with a string of absolute references concatenated with a reference to the column instead of row?

Thanks again!
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear Ryan,
  This formula =IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$2:D2, $B$2:$B$9), 0)),"") + Ctrl + Shift + Enter can help you to solve the problem.
  See below screenshot:
  
  Reply
To post as a guest, your comment is unpublished.
v.urala@gmail.com · 3 years ago
{=INDEX($Q$3:$Q$263,MATCH(0,COUNTIF(V$2:V2,$Q$3:$Q$263),0))} - found this to work from another site...

Use the Ctrl+Shift+Enter to get the array function (curly braces). Drag copy-paste the formulas until the #NA is shown. My data set was in Column-Q, it was compared to see if it existed in the unique's list in Column-V, which continually stretches along this same column.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Good Day.
  Please list all unique values of column Q with the abobv formula, and then use his formula =IF(D2=V1,"Match","No match") to compare if the uniques in cilumn Q compareing to column V in the same row.
  
  Reply
To post as a guest, your comment is unpublished.
Outdated · 3 years ago
This formula is outdated and doesn't work. I literally just set this exact excel sheet up to see if I could get this formula to work and it doesnt.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Hey guy,
  Which Office version do you use?
  
  Reply
To post as a guest, your comment is unpublished.
PJ · 4 years ago
I am decent at excel but I am really trying to wrap my head around how and why the above formula works (it works for what I am using it for but I must understand why). I get a little confused using arrays sometimes so any explanation in idiots terms would be extremely helpful

Regards
- Reply
To post as a guest, your comment is unpublished.
Eric · 4 years ago
Thank you for the tutorial. Using the formula method, how would you alter the formula if you wanted to add a category qualifer? Say in column C you distinguish whether the item is a fruit or a vegetable. How would you change the code to only sort the unique fruits and exclude the vegetables? I tried replacing COUNTIF with COUNTIFS, using the second countifs criteria of (LIST RANGE,"CATEGORY") but it returns blank. Would I need to expand my array and incorporate VLOOKUP?
- Reply

あなたのアカウントにログイン

パスワードのリセット