VBAについて

質問

下記のコードは条件を指定してカウントするものなのですがもう一つ条件を増やしたいのです。
下記のコードに加えてD列にある日付を2010/1/1日～2010/12/31までといった感じで指定したいのです。
重要なポイントなんですが指定して算出したものは日付に関係なくすべての
データに算出されているような状態にしたいのです。
例えばデータが20000件あるとしてそのうちの半分が2011年分もう半分が2012年分だとして
日付の条件は2012年の10000件だとすると2011年の条件に入ってない方のデータにも2012年で算出したデータが入力される状態です。
わかりにくいですがお詳しい方ぜひ、助けてください。
よろしくお願いします。

Sub sample()
Dim dic As Object
Dim lastRow As Long
Dim r As Long
Dim key As String
Set dic = CreateObject("Scripting.Dictionary") 'Dictionaryオブジェクト
lastRow = Range("A" & Rows.Count).End(xlUp).Row 'A列最終行
'データ収集
For r = 3 To lastRow '3行目から最終行まで
key = Range("A" & r).Value & Chr(0) & Range("Z" & r).Value 'キー値はA列注目行の値+Z列注目行の値(間にchr(0))
If Not dic.exists(key) Then 'キー値が無ければ
dic.Add key, 1 'キーを追加して、値(個数)を１に
Else '既にキー値があれば
dic(key) = dic(key) + 1 'そのキーの値(個数)+1
End If
Next
'表示
For r = 3 To lastRow '3行目から最終行まで
key = Range("A" & r).Value & Chr(0) & "1" '探す値はA列注目行の値+"1"(間にchr(0))
Range("BW" & r).Value = dic(key) 'BW列にその値(個数)を表示
Next
End Sub

回答No.2

n-jun · ベストアンサー

Sub sample()
Dim dic As Object
Dim lastRow As Long
Dim r As Long
Dim key As String
Set dic = CreateObject("Scripting.Dictionary") 'Dictionaryオブジェクト
lastRow = Range("A" & Rows.Count).End(xlUp).Row 'A列最終行
'データ収集
For r = 3 To lastRow '3行目から最終行まで

If Year(Cells(r, "D").Value) = 2010 Then '日付が２０１０年ならば

key = Range("A" & r).Value & Chr(0) & Range("Z" & r).Value 'キー値はA列注目行の値+Z列注目行の値(間にchr(0))
If Not dic.exists(key) Then 'キー値が無ければ
dic.Add key, 1 'キーを追加して、値(個数)を１に
Else '既にキー値があれば
dic(key) = dic(key) + 1 'そのキーの値(個数)+1
End If

End If '★追加
Next
'表示
For r = 3 To lastRow '3行目から最終行まで
key = Range("A" & r).Value & Chr(0) & "1" '探す値はA列注目行の値+"1"(間にchr(0))
Range("BW" & r).Value = dic(key) 'BW列にその値(個数)を表示
Next
End Sub

みたいな事ですか？

お礼

ありがとうございました。
大変助かりました。

回答No.1

bin-chan

> 日付の条件は2012年の10000件だとすると2011年の条件に
> 入ってない方のデータにも2012年で算出したデータが入力される状態です。

数行の例で良いので、データと抽出条件をシート画像キャプチャで例示してください。

お礼

補足がおかしくなってすみませんでした。
みなさんのおかげで解決できました。

補足

下記のデータは2012/1/1～2012/12/31の間でA列の番号別でZ列の1の回数を数えています。
不正解例だと2011年のデータに2012年でカウントしたデータが
入っていません。
何度もすみませんがよろしくお願いします。

正解例
A列　　　D列（日付）　　　Z列　　　1回数（BW列）
1234 2012/1/15 1 1
1234 2012/2/20 5 1
1234 2012/2/21 2 1
1234 2011/8/15 2 1
1234 2011/9/29 3 1
9999 2012/1/15 4 2
9999 2012/2/20 1 2
9999 2012/11/21 1 2
9999 2011/12/15 5 2
1111 2012/9/29 6 2
1111 2012/1/15 1 2
1111 2012/2/20 1 2
1111 2012/2/21 5 2
1111 2011/6/15 1 2
1111 2011/7/29 1 2
不正解例
A列　　　D列（日付）　　　Z列　　　1回数（BW列）
1234 2012/1/15 1 1
1234 2012/2/20 5 1
1234 2012/2/21 2 1
1234 2011/8/15 2
1234 2011/9/29 3
9999 2012/1/15 4 2
9999 2012/2/20 1 2
9999 2012/11/21 1 2
9999 2011/12/15 5
1111 2012/9/29 6 2
1111 2012/1/15 1 2
1111 2012/2/20 1 2
1111 2012/2/21 5 2
1111 2011/6/15 1
1111 2011/7/29 1