こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセルのマクロで、選択範囲の空白行を削除する方法

タイトルの通りですが、エクセルのマクロを使って、選択範囲にデータの入っていない空白行を削除するマクロを作りたいのですが、うまく行きません。
(空白行の判定は、1つの列だけで、O.K.です。)
どなたか、詳しい方、アドバイスお願いします。

投稿日時 - 2003-10-27 22:56:11

QNo.690712

困ってます

質問者が選んだベストアンサー

こういうやり方もあります。

選択範囲が1~100行で、空白行の判定をA列で行っていますので適宜修正してください。

Sub TestMacro()
Dim i As Integer
For i = 1 To 100
If Sheets("Sheet1").Cells(i, "A") = "" Then
Sheets("Sheet1").Rows(i).Select
Selection.Delete Shift:=xlUp
End If
Next i
End Sub

投稿日時 - 2003-10-27 23:13:26

このQ&Aは役に立ちましたか?

2人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

こんばんは 参考程度ですが

セル範囲を選択後

記録マクロで

編集 ジャンプ セル選択 空白セル にチェック OK
編集 削除 行全体 OK

で以下のように生成されます

Sub Macro1()
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
End Sub

投稿日時 - 2003-10-27 23:06:46

あなたにオススメの質問