どーも 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...） |
最後に
いかがでしたでしょうか？
この記事が開発のお役に立てれば幸いです。
ではでは。
