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
Chabin の Excel VBA ノート