VBAProject --> 標準モジュール --> ModuleXX Sub Sample()    Dim r As Long, c As Long    Dim lngLastRow As Long, lngLastCol As Long        'Excelの行数    r = Application.Rows.Count        'Excelの列数    c = Application.Columns.Count