複数条件で、重複しないデータのカウント

解決済

質問者：pallmall09
質問日時：2013/02/06 13:29
回答数：2件

以下のようなシートがあります（sheet1）。
数は20万件ほどあります。

場所　日付　種類　名前　ランク
　　　　　　　　　　　　鈴木　　１
　　　　　　　　　　　　鈴木　　１
　　　　　　　　　　　　鈴木　　１
　　　　　　　　　　　　山本　　１
　　　　　　　　　　　　田中　　２
　　　　　　　　　　　　田中　　２
　　　　　　　　　　　　田中　　３
　　　　　　　　　　　　伊藤　　３

この中で、ランクの数を数えたいと思います。
上記表でいえば、ランク１は2件、ランク２は1件という具合です。

名前での重複者を数式で検出して（countif）処理しようと思いましたが
データの件数が多すぎるため、フリーズしてしまいます。
別シート（sheet2）にデータ抽出をしようと思い、マクロを触っていたのですが
うまく行きません。
件数的に、マクロでないと処理は難しいかと思うのですが
ご教授いただけませんでしょうか。
なお、私が組んでみたマクロは下記の通りです。
よろしくお願い申し上げます。

なお、上記例で試した際に
ランク３を1件とカウントする場合と、2件とカウントする場合
指定の違いが分かれば幸いに存じます。

Sub　データ抽出()
Dim myRow As Variant
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Worksheets1
Set ws2 = Worksheets2
myRow = ws1.Range("D" & Rows.Count).End(xlUp).Row

ws2.Range("A:E").ClearContents

ws1.Range("A1:E" & myRow).AdvancedFilter _
Action:=xlFilterCopy, _
　　　　　 criteriarange:=　　　　　←ここの組み方がわからず…。
copytorange:=ws2.Range("A1"), unique:=True

End Sub

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

No.2ベストアンサー

回答者： keithin
回答日時：2013/02/06 13:47

>数は20万件ほどあります。

ということでエクセル２００７以降では、データタブにある「重複の削除」で一発で出来ます。
必要に応じてデータを複写等してから作業してください。
件数が必要でしたら、その後に行数を数えます。

この回答への補足

早々にご返答ありがとうございました。

一度、ご指摘いただいた「重複の削除」を利用したことがあったのに
全く思いつきませんでした…。

今回ご教授いただいた中で、項目の選択ができることも学べ、処理も無事できました。
ありがとうございます。

よって、時間差はありましたが、ベストアンサーにさせていただきます。
本当にありがとうございました。

補足日時：2013/02/06 15:34

通報する