【Excel2003】コピーするマクロ

質問

【Excel2003】コピーするマクロ

Excelファイルで以下のようなデータがあります。

　　Ａ　　　　　　　Ｂ
１　佐藤雄一
２　男
３　（空白行）
４　山本優子
５　女
６　（空白行）
７　・・・
８　・・・
９　（空白行）

上記のようなデータを下記のように変更したいです。
マクロ等を使用し、楽に修正するやり方を教えて下さい。
マクロを使用しなくても楽に修正する方法があればそれでも良いです。
分量が膨大なのでよろしくお願いします。

　　Ａ　　　　　　　Ｂ
１　佐藤雄一　　男
２　山本優子　　女
３　・・・　　　　　・・・

回答No.1

merlionXX · ベストアンサー

マクロの一例です。
標準モジュールに書いてください。
オリジナルのデータは必ずコピーをとってから試してくださいね。
配置はお書きのとおり、1行目から始まっていることが前提です。

Sub test01()
　　Dim x As Long, i As Long '変数宣言
　　With ActiveSheet
　　　　x = .Cells(Rows.Count, "A").End(xlUp).Row '最終行取得
　　　　For i = 1 To x Step 3 '1行目から最終行まで、3行おきに
　　　　　　.Cells(i, "B") = Cells(i + 1, "A") '転記
　　　　　　.Cells(i + 1, "A").ClearContents 'クリア
　　　　Next i '繰り返し
　　　　.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete '空白行削除
　　End With
End Sub