VBA練習2

最終行・列を取得するマクロ

質問者

Excelで最終行を取得したいです。データがない列もあり、空欄の行もあります。

回答者

私の考えたExcelでの最終行の取得です。

Sub 最終行列取得()
    Dim i As Integer
    Dim x(100) As Integer   ' 整数を格納できる要素数 100 の配列(行用)の宣言
    Dim y(100) As Integer   ' 整数を格納できる要素数 100 の配列(列用)の宣言
    'Excel 2003までは65,536行、256列、Excel 2007以降は1,048,576行、16,384列。

    ' 配列へ最終行・列の書き込み
    For i = 1 To 100
        x(i) = Cells(Rows.Count, i).End(xlUp).Row
        y(i) = Cells(i, Columns.Count).End(xlToLeft).Column
    Next i
   
    '最大値を表示
    MsgBox "配列xの最大値(行数):" & Application.WorksheetFunction.Max(x)
    MsgBox "配列yの最大値(列数):" & Application.WorksheetFunction.Max(y)
End Sub