[[20120517150056]]　『複数の検索結果をカンマで区切って一つのセルに』（さくら）　ページの最後に飛ぶ

『複数の検索結果をカンマで区切って一つのセルに』（さくら）

下記のように分かれたシートがあり、
Sheet1のB列を検索値として、Sheet1のC列にSheet2のB列のコードをｶﾝﾏで区切って抽出したいのですが、うまくいきません。

Sheet1

 　A   　   B   　  C
1 りんご　果物
2 さくら　花　　　
3 麦茶　　飲物
4 チョコ　菓子
5 なし    果物

Sheet2

 　 A　　 B  
1　果物　B01　
2　花　　C02
3　果物　G55
4　飲物　F04
5　飲物　S02
6  菓子　A03

★Sheet1（結果）

 　A   　   B   　  C
1 りんご　果物　　B01,G55
2 さくら　花　　　C02
3 麦茶　　飲物    F04,S02
4 チョコ　菓子　　A03
5 なし    果物    B01,G55

どなたかお知恵を拝借できませんでしょうか。よろしくお願いします。
(Office2007)

 Sub test()
   Dim i&, D As Object, S$, v
      Set D = CreateObject("scripting.dictionary")
      v = Sheets("sheet2").Cells(1, 1).CurrentRegion.Value
      'D Set
      For i = 1 To UBound(v)
         D(v(i, 1)) = D(v(i, 1)) & "," & v(i, 2)
      Next
      '処理
      With Sheets("sheet1")
         For i = 1 To .Cells(.Rows.Count, "a").End(xlUp).Row
            S = .Cells(i, 2).Value
            .Cells(i, 3).Value = Mid(D(S), 2)
         Next
      End With
 End Sub

ありがとうございました。
教えて頂いたマクロで無事に作業できそうです。
（さくら）

コメント返信：

[ 一覧(最新更新順) ]

[[20120517150056]] 『複数の検索結果をカンマで区切って一つのセルに』（さくら） ページの最後に飛ぶ

[[20120517150056]]　『複数の検索結果をカンマで区切って一つのセルに』（さくら）　ページの最後に飛ぶ