Excel ＶＢＡ等での処理方法

質問

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

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

回答No.1

myRange · ベストアンサー

質問提示のレイアウトでのコードです。
違ったら適宜修正のこと。

'---------------------------------
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
'-----------------------------------

以上です。