エクセルのマクロについて教えてください。

エクセルのマクロについて教えてください。

　 　 a b c d
A 　 1 2 3 4
B 　5 6 7 8

　　 ↓

　　　aA1
　　　bA2
　　　cA3
　　　dA4
　　　aB5
　　　bB6
　　　cB7
　　　dB8

という並びになるようにしたいので、よろしくお願いします。

No.1 ベストアンサー 回答者： hige_082 回答日時： 2010/07/23 23:09

こんな感じかな

Sub test()
Dim x, y
For y = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For x = 2 To Cells(1, Columns.Count).End(xlToLeft).Column
Worksheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = _
Cells(1, x).Value & Cells(y, 1).Value & Cells(y, x).Value
Next
Next
End Sub

参考まで

この回答へのお礼

早速の回答、ありがとうございました。
できました。助かりました。

お礼日時：2010/07/24 00:08