エクセル 条件によりセル内の文字を結合する方法を教えてください

質問

下表で同じ品番で色が複数あるときに本数を先頭行に集計しています。
同じ品番で色が複数ある場合に備考欄のセルに結合して表示する関数又はマクロで方法を教えてください。
色が重複する時は色の本数表示はしません。（A1はBが2本ありますがB*2とはしません）
No.行はデータとして扱う行になります。

No.　　　品番　　　本数　　　合計　　　　　色　　　　　備考
1　　　　　A1　　　　　1　　　　　　4　　　　　A　　　　　A/B/C
　　　　　 A1　　　　　1　　　　　　　　　　　　B
　　　　　 A1　　　　　1　　　　　　　　　　　　B
　　　　　 A1　　　　　1　　　　　　　　　　　　C
2　　　　　A2　　　　　1　　　　　　1　　　　　A　　　　　A
3　　　　　A3　　　　　1　　　　　　1　　　　　B　　　　　B

よろしくお願いします。

回答No.1

n-jun · ベストアンサー

Sub　test_3()
　Dim　i　As　Long,　j　As　Long
　Dim　st　As　String
　j　=　0
　For　i　=　2　To　Cells(Rows.Count,　2).End(xlUp).Row　+　1
　　　　　j　=　IIf(j　=　0,　i,　j)
　　　　　If　Range("B"　&　i).Value　=　Range("B"　&　i　+　1).Value　Then
　　　　　　　　st　=　IIf(InStr(st,　Range("E"　&　i).Value)　=　0,　st　&　Range("E"　&　i).Value　&　"/",　st)
　　　　　Else
　　　　　　　　st　=　IIf(InStr(st,　Range("E"　&　i).Value)　=　0,　st　&　Range("E"　&　i).Value　&　"/",　st)
　　　　　　　　Range("F"　&　j).Value　=　Left(st,　Len(st)　-　1)
　　　　　　　　st　=　"":　j　=　0
　　　　　End　If
　Next
End　Sub
これでしょうか。

お礼

考えていたことができました。ありがとうございました。