


どーも Take です。
この記事では Excel の表の最終行・最終列番号を取得するプロシージャ(関数)について
よく忘れるので、備忘録として記述します。
コピペで問題ないと思うので(引数は指定が必要ですが)、ぜひ皆様も何かで使ってみてください。
表の最終行番号
以下がソースコードです。
1 2 3 4 5 | Function getMaxRow(sheetName As String, row As String) getMaxRow = Worksheets(sheetName).Range(row & "65536").End(xlUp).row End Function |
引数にシート名と列番号を指定して、その最終行番号を取得します。
項目名 | 値 | 説明 |
プロシージャ名 | getMaxRow | 最終行番号取得 |
戻り値 | 指定したシート名の列の最終行番号 | - |
第一引数 | sheetName | シート名 |
第二引数 | row | 列番号(A,B,C...形式) |
表の最終列番号
以下がソースコードです。
1 2 3 4 5 | Function getMaxCol(sheetName As String, row As String) getMaxCol = Range("IV" & col).End(xlToLeft).Column End Function |
引数にシート名と列番号を指定して、その最終行番号を取得します。
項目名 | 値 | 説明 |
プロシージャ名 | getMaxCol | 最終列番号取得 |
戻り値 | 指定したシート名の列の最終列番号 | - |
第一引数 | sheetName | シート名 |
第二引数 | col | 行番号(1,2,3...) |
最後に
いかがでしたでしょうか?
この記事が開発のお役に立てれば幸いです。
ではでは。