EXCELで縦から横への並び替え

質問

ある集計結果を並び替えたいのですが、
001　　AAA　　1位　A店
　　　　　　　　　2位　B店
002　　BBB　　1位　A店
　　　　　　　　　2位　B店
　　　　　　　　　3位　C店
という結果を
001　　AAA　　1位　A店　　　2位　B店
のように並び変えたいのですが、データが非常に多くて、手作業では
大変かと思うので、どなたか助けていただけないでしょうか？
宜しくお願いします。
AAA、BBBは品名で全ての店舗で販売してるわけではないです。
そのため、販売店舗(A店、B店・・・)が品によってバラバラです。

回答No.1

ka_na_de

こんなんでどうでしょう？
データバックアップ後自己責任で確認してください。

Sub Macro1()

　Dim i, HinmeiNo, Runking

　HinmeiNo = 0
　i = 1

　Do

　　If Cells(i, 1) <> "" Then
　　　HinmeiNo = HinmeiNo + 1
　　　Runking = 1
　　　i = i + 1
　　Else
　　　Runking = Runking + 1
　　　Cells(HinmeiNo, 1 + Runking * 2) = Cells(i, 3)
　　　Cells(HinmeiNo, 2 + Runking * 2) = Cells(i, 4)
　　　Rows(i).Delete
　　End If

　Loop Until Cells(i, 3) = ""

End Sub

お礼

御礼が遅くなりました。
ありがとうございました。