Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14693 / 76738

←次へ　｜　前へ→


	【67534】出現の名称をDictionaryで出す

Yoshiｍ - 10/12/11(土) 8:53 -


	引用なし

	パスワード

Dictionaryで行き詰っています。よろしくお願いします。

B列に地域名（あ、さ、た、き、す）
C列に商品名（A、B、C型など）

商品名を基準に

商品出現回数＿商品名＿地域名
　　　２　　　　　A　　　あ、き、す
　　　３　　　　　C　　　さ　
　　　１　　　　　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

0 hits

▼

【67534】出現の名称をDictionaryで出す Yoshiｍ 10/12/11(土) 8:53

≪