Ｅｘｃｅｌｌ ＶＢＡ：dataの空白行を削除したい。

質問

ｅｘｃｅｌｌのマクロを使って、
次のようなデータで、データのない行を削除して詰めたいのですが。
どうすればよいのでしょうか。

　　Ａ　　　Ｂ　　　Ｃ
１　ｔ１　　＊＊　　＊＊
２　ｔ２　　＊＊　　＊＊
３
４　ｔ３
５
６　ｔ４

　を

１　ｔ１　　＊＊　　＊＊
２　ｔ２　　＊＊　　＊＊
３　ｔ３
４　ｔ４

　にしたい。

回答No.2

ahsblue · ベストアンサー

終了（データ件数）条件が不明ですので、６固定のサンプルです。
ポイントは、データ（行）の最後からループすることです。
そうすると、削除したデータと検索する位置が重ならないためすっきりとしたプログラムとなります。

Dim i As Integer

For i = 6 To 1 Step -1 '6のところにデータ総件数（空行含む）
If Cells(i, 1) = "" Then
Rows(i).Delete
End If
Next i

お礼

簡単にできるんですね。
最後からループするのは、気づきませんでした。
使わせてもらいます。
ありがとうございました。

回答No.3

bin-chan

手っ取り早いのは、
１．「行番号」の列を追加し連番を付与する。
２．列Ａ（ｔの値の列）をキーにソートする。
３．そうすると「空白行」だけ固まりますから「行番号のみの行を削除」。
４．「行番号」列をキーにソートし直す。
５．最後に「行番号」列を削除する。

上記の手作業を「マクロの記録」で行えばＶＢＡになるし、
そこまでしなくても、と思えば手作業でもたいした手間ではないと思います。

カーソルキーの操作でCtrl+矢印キーでその方向の端まで移動できるので
３．の処理はスクロールさせなくても可能です。
（範囲選択するならCtrl+Shift+矢印キーでｏｋ）

お礼

そういう方法があるんですね。
全然、思いつきませんでした。
参考になりました。

ありがとうございました。

回答No.1

HitomiKurose

他力本願ですが…。下記サイトを紹介します。

参考URL：

http://www2.odn.ne.jp/excel/waza/macro.html#SEC4

お礼

早速、見に行きました。
解説があって、いいですね。
参考になります。
ありがとうごさしました。