|
Dictionaryで行き詰っています。よろしくお願いします。
B列に地域名(あ、さ、た、き、す)
C列に商品名(A、B、C型など)
商品名を基準に
商品出現回数_商品名_地域名
2 A あ、き、す
3 C さ
1 B た
という表に仕上げたいのですが
地域名のところに出すやり方がわかりません、コードにアドバイス入れていただけませんでしょうか・・・
Sub test()
Dim myR As Range, Mycell As Range
Dim dic, key
Dim k As Long
Dim v
Set myR = Range("C2" & ":" & "C" & Range("C" & Rows.Count).End(xlUp).Row)
Set dic = CreateObject("Scripting.Dictionary")
For Each Mycell In myR
v = Mycell.Value
If v <> "" Then
dic(v) = dic(v) + 1
End If
Next
k = 1
For Each key In dic.Keys
If dic(key) >= 1 Then
k = k + 1
Cells(k, "G").Value = dic(key)
Cells(k, "H").Value = key
End If
Next
End Sub
|
|