プロが教える店舗&オフィスのセキュリティ対策術

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

A 回答 (2件)

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



選択範囲が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
    • good
    • 5

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



セル範囲を選択後

記録マクロで

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

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A