非表示行をまとめて削除するExcelマクロ

「エクセル 非表示 行 一括削除 マクロ」
という検索が行われていました。

非表示の行をまとめて削除するExcelマクロを探している方による検索です。

非表示の行を一括削除するサンプルマクロ

VBA（Visuala Basic for Applications）で、以下のようなマクロを作成してみました。

サンプルマクロの解説

いろいろな実装方法が考えられそうですが、ループ文の中でHiddenプロパティを調べて、非表示なら削除するというマクロにしてみました。

どの範囲をループで回すかですが、
　　Cells.SpecialCells(xlCellTypeLastCell).Row
でセル範囲の最終行を取得しています。

RangeオブジェクトのSpecialCellsメソッドの引数に、定数xlCellTypeLastCellを指定することで、最後のセルを表すRangeオブジェクトを取得して、そのRowプロパティで、そのセルの行番号を取得しています。

取得できた最終行から1行目に向かって、下から上へループを回して
　　For i = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
もし非表示なら削除をしています。
　　　If Rows(i).Hidden Then Rows(i).Delete

▼「インストラクターのネタ帳」を運営する伊藤潔人が、初めて書かせていただいた本『いちばんやさしいExcel VBAの教本』の Chapter 8 は、VBAの経験があるみなさんにも興味深く読んでいただけると考えています。