重要なお知らせ

「教えて! goo」は2025年9月17日(水)をもちまして、サービスを終了いたします。詳細はこちら＞

電子書籍の厳選無料作品が豊富！

指定した範囲内が空白なら行削除するマクロ

締切済

  • 質問者：das101
  • 質問日時：
  • 回答数：1件

エクセルで指定した範囲内（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件)

No.1

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


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

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

通報する
お礼日時：2007/07/13 11:16

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

Q質問する（無料）

ページトップページトップ

Q質問する（無料）

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

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報