VBAのコードに関する質問です。博識の方、恐れ入りますがご教授ください。添付画像のように左の表→右の表に変換するコードを教えてください。データベースから引っ張ってくるとD列「貸出品型式」が複数の時、同じセル内で抽出されますが、右の表みたいに1セル1情報に変換したいです。分かりやすく赤字にしているだけで黒字のままで問題ないです。恐れ入りますが何卒宜しくお願い致します。

添付図の通り、同じシートのF列以降に表示でいいなら

F列以降最初の項目名は先に入力されているとして



Sub test()

Dim r1 As Long, r2 As Long

Dim buf As Variant

r2 = 1

For r1 = 2 To Cells(Rows.Count, 1).End(xlUp).Row

For Each buf In Split(Cells(r1, 4).Value, \u0026quot;,\u0026quot;)

r2 = r2 + 1

Cells(r2, 6).Resize(, 3).Value = Cells(r1, 1).Resize(, 3).Value

Cells(r2, 9).Value = buf

Next buf

Next r1

End Sub