Excelのマクロを教えてください。

質問

Excelのマクロを教えてください。
Sheet1
F列（商品） F2テレビ、F3DVD、F4携帯電話、サプライ、、、F32まで商品あり。
I列～N列の１段目（人＊増える場合あり） I1佐藤、J1高橋、K1田中、L1中村、、、
I2～N32まで、１、２、３と個数が入力されています。
A列～E列とG列とH列は今回の処理に不要なデータがいます。

これをSheet2に

A列に人、B列に商品、C列に数
例）
A1 佐藤、B1 テレビ、C1 1
A2 佐藤、B2 DVD 、C2 3
A3 高橋、B3 携帯電話、C3 2

のように、書き出すマクロを教えていただけませんか？
別にマクロでなくても、Excel2007までの機能でできることであればそれでもいいです。

丸投げして申し訳ありません。

回答No.1

keithin

sub macro1()
　dim c as long
　dim r as long
　dim n as long

　worksheets("Sheet2").cells.clearcontents
　worksheets("Sheet1").select
　n = 1

　for c = range("I1").column to range("IV1").end(xltoleft).column
　for r = 2 to 32
　if cells(r, c) <> "" then
　　worksheets("Sheet2").cells(n, "A").value = cells(1, c).value
　　worksheets("Sheet2").cells(n, "B").value = cells(r, "F").value
　　worksheets("Sheet2").cells(n, "C").value = cells(r, c).value
　　n = n + 1
　end if
　next r
　next c
end sub

みたいな。