エクセル マクロ セルを一気に移動させる（再投稿）

質問

すみません、質問が慌てていたので、再投稿させてください。

WINDOWS-XP、エクセル2003を使っています。

Ａ列に下記のようになっているエクセル表があります。
図番の下に個数の表示がされています。
これは規則的に交互交互に登録されています。
図番******の下にある数値は、個数です。
そこで、その個数の部分だけを図番の隣のセル、つまりＢ列に移動させたいのです。
さらに、図番の下に空欄ができるので、その空欄を上につめて１つの表にしたいのです。
以上のことが、完了するマクロを教えてください。
このようなデータが３千件つらなっています。

　Ａ列　　　Ｂ列
SK108700　
1
AB911100
5
DS310500
1
DS310500
1

以上、わかりにくい説明ですみませんが、なにとぞよろしくお願いします。

回答No.1

Tasuke22

操作でマクロを作ればいいでしょう。マクロは2つ要ります。
なお、マクロ実行前にはシートのバックアップを取っていてください。

(1)数値の移動
・カーソルを値が１のところに合わせて、マクロスタートする。
・セルを選択してSK108700の右のB列に移動かコピーする。
・値５にカーソルを移動する。ここでマクロを停止する。

　あとは3000回繰り返すか、マクロを編集して3000回行えるようにする。

(2)行の削除
・数値１のところの行番号へカーソルを合わせて、マクロスタートする。
・その行を選んで削除する。
・数値５のところにカーソルを合わせてマクロを終了する。

　あとは3000回繰り返すか、マクロを編集して3000回行えるようにする。