非表示の行番号をVBAで調べる

動作検証バージョン：64bit Windows 10 Pro + 32bit Excel（バージョン2205 ビルド15225.20204 Microsoft Store）

「excel vba 非表示行調べる」
といった検索キーワードで時折アクセスがあります。

Excelのワークシート上で非表示に設定されている行があるときに、何行目が非表示になっているのかをVBAで調べるには、どのようなコードを書けばいいのかを探していらしたのでしょうか。

［スポンサードリンク］

非表示の行番号を調べるサンプルマクロ

以下のExcelマクロを実行すると、アクティブシートで非表示になっている行の行番号がイミディエイトウィンドウに出力されます。

Sub 非表示の行番号を調べる()
　Dim ws As Worksheet
　Set ws = ActiveSheet

　Dim last_row_num As Long
　With ws.UsedRange
　　last_row_num = .Item(.Count).Row
　End With

　Dim i As Long
　For i = 1 To last_row_num
　　If Rows(i).Hidden Then
　　　Debug.Print i
　　End If
　Next
End Sub

行が非表示のときに、その行番号を出力しているのが、最後のほうの

Dim i As Long
For i = 1 To last_row_num
　If Rows(i).Hidden Then
　　Debug.Print i

の部分です。

1からExcelの最大行1,408,576までFor～Nextループで処理するのはムダなので、Worksheet.UserRangeプロパティで取得できるRangeオブジェクトの最終行までにしています。

Dim last_row_num As Long
With ws.UsedRange
　last_row_num = .Item(.Count).Row
End With

最終更新日時：2022-07-08 14:51

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

3年前(2021年4月)の
人気記事

「行・列を表すRange」の記事一覧