Excel VBA ユニークな値のリストアップ

質問

Excel2003で、A列にデータが数万行ありますが、その中にあるのはいわば主キーであり、せいぜい10通りまでしかユニークな値はありません。またそれらユニークな値について、連番などの規則性や関連性はありません。そのユニークな値を、VbAの処理で全てリストアップして配列に入れたいのですが、効率的にやる方法はないでしょうか。数万行のデータを総当りして連想配列に入れるのは無駄な手間だと思いますし、何か良い方法はないでしょうか。

回答No.2

tom04 · ベストアンサー

こんにちは！

一案です。

Sub Sample1()
Range("A:A").AdvancedFilter Action:=xlFilterInPlace, unique:=True
Range("A:A").Copy Worksheets("Sheet2").Range("A1")
ShowAllData
End Sub

これでSheet2のA列に重複なしにデータが表示されているはずですので、
これを利用する方法はどうでしょうか？m(_ _)m

お礼

いいですね。フィルタオプションで重複なし抽出すれば良いことでした。

回答No.3

MarcoRossiItaly

元データのコピー＆「重複の削除」機能（AdvancedFilter メソッド）をするか、「統合」機能（Consolidate メソッド）を使うか、ピボットテーブルを VBA で操作します。

＞ピボットテーブルでは、ちょっと困ります。ユニーク値のリストアップは、処理全体の中で最初の1ステップでしかなく、……

1 ステップでしかないと、なぜ困るのでしょうか。手作業またはマクロでピボットテーブルレポートを作製し、抽出されたデータをコピーなど、マクロで操作すればいいだけでは。

重複データを削除し重複のないリストを作成するマクロ－AdvancedFilterメソッド　http://www.relief.jp/itnote/archives/003690.php
統合(Consolidate)でのデータ集計（Excel(エクセル) VBA入門）　http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_consolidate.html
ピボットテーブルをマクロで作成する　http://www.relief.jp/itnote/archives/018038.php
Excel 2010 で VBA を使用してピボットテーブル レポートとグラフを作成する（MSDN）　http://msdn.microsoft.com/ja-jp/library/office/hh243933(v=office.14).aspx

お礼

VBAの中でピボットテーブルや統合機能を操作するのって、コードも複雑になり、動作としてもちょっと遅くならないですかね？フィルタオプションがシンプルそうだと思いました。

回答No.1

wild-rain

ピボットテーブルを使って、含まれている項目を抽出してから、それを参照・利用するのではダメなのでしょうか。VBAではなく、エクセルの機能を使って行うことになりますが、データの追加・更新・削除があっても、ピボットテーブルは勝手に更新されるはずなので、そんなに困ることは無いように思います。

お礼

ピボットテーブルでは、ちょっと困ります。ユニーク値のリストアップは、処理全体の中で最初の1ステップでしかなく、それを元に色々な処理を行います。また多数のブックを次々に開いてそのリストアップをするので、素早く自動処理したいのです。
あと、質問文に、A列のことを「いわば主キー」と書きましたが、これは間違いですね。ユニークな値が数種類しかないわけですから。