を書きました。
以前は、最終行までループさせるために、上から順番に見ていって、
空欄があったら終わりという方法でチェックしていましたが、
もっと良い方法を見つけました。
以下のコードだと、空欄があっても、最後までカウントして結果を出してくれます。
スポンサーリンク
VBAでシートのデータの最終行、最終列を取得するコード
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Sub データの最終行取得() Dim wsData As Worksheet Set wsData = ThisWorkbook.Worksheets("データ") MsgBox wsData.Cells(Rows.Count, [列]).End(xlUp).Row End Sub Sub データの最終列取得() Dim wsData As Worksheet Set wsData = ThisWorkbook.Worksheets("データ") MsgBox wsData.Cells([行], Columns.Count).End(xlToLeft).Column End Sub |