EXCELのVBAで重複を除いたカウント

EXCELのVBAでSQLの

SELECT COUNT(DISTINCT(ITEMS)) FROM TABLE
WHERE SHOP = 'A'

と同様のことを行いたいのですが、どのように考えたらよいでしょうか。
同じようなことができる関数でもよいです。

No.2 ベストアンサー 回答者： imogasi 回答日時： 2004/12/16 09:38

＞同じようなことができる関数でもよいです

これを質問に入れたために質問の意図がぼやけました。
エクセルの関数は、値を加工したり、１つ持って来たり
は出来ますが、レコードの取得という考えは出来ません。
例えばＤＧＥＴなど、それらしい名前の関数もありますが、１フィールドの値だけしか返しません。
１レコードの全項目を項目ごとに取ってくれば１レコード分は揃えられると思いますが。
件数合計や計数合計なら計算できる可能性はあります。
質問には「COUNT」となっているので、出来る可能性は
あります。今すぐ思いつくのは、作業列を使いますが
（後述）。
＞ＳＱＬ
アクセスＶＢＡで出来るごとく、エクセルＶＢＡでもオブジェクト（＝プログラム）の参照設定をやる方法を会得すれば、ＳＱＬ文の実行が出来ます。コード作成・実行環境ＶＢＥがアクセスのものを使うかエクセルのＶＢＥであるかの違いと思います。
当然既設定のソフト環境が違いますので、知識が要ります。
エクセルでも、「クエリ」でヘルプで照会してみると、
「外部データベースからデータを抽出する方法」
など載ってます。DISTINCTが使えるかどうか不知。
＞WHERE SHOP = 'A'とDISTINCT
ＶＢＡでやればソートしておき、各レコードに付いてＳｈｏｐがＡか判別し、ＩＴＥＭキーが変化するごとに１だけカウントアップさせる方法が簡単でしょう。
（関数での回答例）取り急ぎでベターな回答か判りませんが。
（データ例）Ａ２：Ｂ１２（Ｃ，Ｄは関数式を入れた結果を先まわりに掲出したもの）
Ａ列　　Ｂ列　　　　Ｃ列　　　Ｄ列
ax a x　　1
ay a y　　1
bz b z　　1
by b y　　1　
ax a x　　2
az a z　　1
ax a x　　3
bu b u　　1
cv c v　　1
cx c x　　1
ay a y　　2
（関数式）作業列
Ｃ２に=LEFT(" ",4-LEN(A2))&A2&LEFT(" ",5-LEN(B2))&B2
Ａ列は４桁以内のコードか文字列、Ｂ列は５桁以内のコードか文字列と仮定。結合したキーを作る際に桁合わせをしているもの。
Ｃ３以下に式を複写する。
Ｄ２に=COUNTIF($C$2:C2,C2)
Ｄ３以下に式を複写する。
上記セル以外に
=SUMPRODUCT((A1:A12="a")*(D1:D12=1))
結果は３です（a-x,a-y,a-zの組み合わせ)。
（アドバイス）
質問文に「ＳＱＬ」「ＤＩＳＴＩＮＣＴ」などを出しているが、エクセル上手の方がみんなＳＱＬを理解できるかどうか疑問。
質問として、エクセルのカテで、文章で「Ａ列がａで、且つＡ列とＢ列のデータを組み合わせて、重複分を除く件数のカウントの関数式」とでも質問した方が良いのではなかったでしょうか。

この回答へのお礼

ありがとうございました。
アドバイスまで頂きましたが、
SQLを理解している人に回答頂ければ結構だとおもいました。
家庭向けではなく技術者向けに質問すべきだったかもしれません。

お礼日時：2004/12/25 08:20

No.1 回答者： BLUEPIXY 回答日時： 2004/12/16 01:57

エクセルの表をＳＱＬのデータソースとして、そのままＳＱＬを発行して求めることはできます。

ヘルプでＳＱＬで検索してみて下さい。

それ意外に方法だと、簡単にはできないと思います。
最悪、質問文のＳＱＬと同等の動作をするプロシージャーを作成しなければならないと思います。

ワークシート上である程度作業することで作業を軽減できるとは思います。
例えば、データの抽出で重複をしないで、抽出しデータ数を数えるとか

ＤＣＯＵＮＴＡとＣＯＵＮＴＩＦを複合して求めることもできると思います。

この回答へのお礼

ありがとうございました。
結果、SQL文と似たプロシージャーを作成しました。

お礼日時：2004/12/25 08:17