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

解決済

質問者：telmi
質問日時：2001/07/27 14:27
回答数：3件

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

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

　を

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

　にしたい。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： ahsblue
回答日時：2001/07/27 15:56

終了（データ件数）条件が不明ですので、６固定のサンプルです。

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

Dim i As Integer

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

- 0
- 件

通報する

この回答へのお礼

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

通報する

お礼日時：2001/07/28 09:59

No.3

回答者： bin-chan
回答日時：2001/07/28 00:45

手っ取り早いのは、

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

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

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