ワークシートの最終行・最終列の番号を取得する方法をまとめます。
ワークシートの最終行番号を取得
1 2 3 4 5 |
Sub Test() Dim A As Long A = Rows.Count Cells(1, 1).Value = A End Sub |
これでセルA1にワークシートの最終行の番号が入力されます。
ワークシートの最終列番号を取得
1 2 3 4 5 |
Sub Test() Dim A As Long A = Columns.Count Cells(1, 1).Value = A End Sub |
セルA1にワークシートの最終列番号が入力されます。
まとめ
最終行・最終列の番号を取得することができれば、値が入力されている最後のセルの位置を調べることができます。
詳細はこちらをご覧ください。
コメント