Excel VBA質問箱 IV

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

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


14689 / 76734 ←次へ | 前へ→

【67534】出現の名称をDictionaryで出す
質問  Yoshim  - 10/12/11(土) 8:53 -

引用なし
パスワード
   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

2 hits

【67534】出現の名称をDictionaryで出す Yoshim 10/12/11(土) 8:53 質問
【67535】Re:出現の名称をDictionaryで出す kanabun 10/12/11(土) 9:50 発言
【67538】Re:出現の名称をDictionaryで出す kanabun 10/12/11(土) 10:44 発言
【67540】Re:出現の名称をDictionaryで出す kanabun 10/12/11(土) 11:21 発言
【67537】Re:出現の名称をDictionaryで出す 山猿 10/12/11(土) 10:20 発言
【67539】Re:出現の名称をDictionaryで出す UO3 10/12/11(土) 11:07 回答
【67542】Re:出現の名称をDictionaryで出す Yoshim 10/12/11(土) 11:52 お礼

14689 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free