プロが教えるわが家の防犯対策術!

エクセルで指定した範囲内(A列からC列まで)で何も文字が入っていなければ(空白)、行を削除する、というマクロを教えてください。
いくつか調べて、以下を試しましたが、何も動作しませんでした。
どなたかアドバイスをいただければ助かります。
よろしくお願いします。
Sub DeleteBlankRows2()
Application.ScreenUpdating = False
On Error Resume Next
With Columns("A:C")
.SpecialCells(xlCellTypeConstants).EntireRow.Hidden = True
.SpecialCells(xlCellTypeFormulas).EntireRow.Hidden = True
.SpecialCells(xlCellTypeComments).EntireRow.Hidden = True

.SpecialCells(xlCellTypeVisible).EntireRow.Delete
.EntireRow.Hidden = False
End With
Application.ScreenUpdating = True
End Sub

A 回答 (1件)

ご提示のマクロは、こちらでは問題なく動作いたしました。


原因があるとすれば他のところではないでしょうか。
    • good
    • 0
この回答へのお礼

ご回答ありがとうございます。
確かに、他に問題がありました。このマクロを特定のシートのみで動作させるようにしてしまっていました。(Sheet1でのみ動く)

お礼日時:2007/07/13 11:16

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

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


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

人気Q&Aランキング