Excel ＶＢＡ等での処理方法

下記のような2行の表を、1行に組みなおす場合にどのようなこーどが書けばよいか教えてください。お願いいたします。

下記のように表1から表2のように組みなおしたいのですが。Ａ列には必ずしも数字が入っているとは限りません。また、行数も特定されていません。

No.1 ベストアンサー 回答者： myRange 回答日時： 2010/04/02 23:48

質問提示のレイアウトでのコードです。

違ったら適宜修正のこと。

'---------------------------------
Sub test()
　　Dim R As Long
　　Dim R2 As Long
　　R2 = 1
　　For R = 2 To Cells(Rows.Count, "B").End(xlUp).Row Step 2
　　　　R2 = R2 + 1
　　　　Cells(R2, "E").Value = Cells(R, "A").Value
　　　　Cells(R2, "F").Value = Cells(R, "B").Value
　　　　Cells(R2, "G").Value = Cells(R + 1, "B").Value
　　Next R
End Sub
'-----------------------------------

以上です。