エクセル マクロ 値のある行のみ転記

こんばんは、エクセル2010を使っていて、データの整理で困っているので教えて頂けませんか？

画像の茶色の部分のようにＡ～Ｖまでにデータがあり、それを、Ｘ～ＡＳに上詰めで移動させたいと思います。

茶色の部分は値と空白が入り混じっていて、Ａ～Ｖの間には、かならず1行に1つ以上値があります。
反対に言えば、表外の白い部分は必ず空白です。

その茶色の部分のみを、Ｘ～ＡＳに上詰めで移動させたいのです。

8万行程度ありますので、なるべく負担の無い形で転記したいです。

詳しいかた、教えて頂けませんでしょうか。
よろしくお願いいたします。

質問者からの補足コメント

• 

  ちなみに、転記は値のみではなく、書式も転記したいです。
  よろしくお願いいたします。

    補足日時：2015/11/14 03:35

No.1 ベストアンサー 回答者： goold-rnan 回答日時： 2015/11/14 06:18

空白行だけを削除すればいいのでは？

https://oshiete.goo.ne.jp/qa/1338987.html #3

この回答へのお礼

ちょうど同じ様な質問がありました、教えて頂き、ありがとうございました！

お礼日時：2015/11/14 14:47

No.2 回答者： 翻車魚 回答日時： 2015/11/14 08:48

いつもマクロに頼っていらっしゃるようですが、これはマクロを使用することなくできる作業です。

A列の前に列を挿入して、そこにデータの有無を示す値を入れればあとは
・オートフィルタでデータのある行を表示
・ジャンプ（Ctrl+G）でアクティブセル（表示されているセル）を選択
・コピー
・別のシートに貼り付け
・B列からW列をコピー
・元のシートに挿入したA列を削除してデータ有無のマークを消す。
・元のシートのX1セルを指定して貼り付け
の手順で作業が完了します。

左上の範囲を示す箇所に「A1:A80000」と入力し、A1セルに
=CONCATENATE(B1,C1,...V1,W1）
と入力し確定したら
Ctrl+Dでその数式をコピーすれば準備は完了です。
※「A1:A80000」の範囲は実際にデータのある行の範囲を指定してください。

このようにExcelの基本操作とちょっとした関数式で実行可能です。
どうしてもマクロ化したいということであれば、
この一連の作業を記録マクロに登録してはいかがでしょう。