セル数、行数、列数を求める

サンプルソース

' A1~E5のセル数
Cells(4,1) = Range("A1:E5").Cells.Count
' 結果:3×5

' A1~E5の行数
Cells(5,1) = Range("A1:E5").Rows.Count
' 結果:3

' A1~E5の列数
Cells(6,1) = Range("A1:E5").Columns.Count
' 結果:5

' シート全体のセル数
Cells(1,1) = Cells.Count
' Excel2003以前:65536×256、Excel2007以降:1048576×16384

' シート全体の行数
Cells(2,1) = Rows.Count
' Excel2003以前:65536、Excel2007以降:1048576

' シート全体の列数
Cells(3,1) = Columns.Count
' Excel2003以前:256、Excel2007以降:16384

解説

Cells.Countでセル数を取得します。
Rangeなどを前に付けない場合は最大セル数を取得します。

Rows.Countで行数を取得します。
Rangeなどを前に付けない場合は最大行数を取得します。

Columns.Countで列数を取得します。
Rangeなどを前に付けない場合は最大列数を取得します。





セルの参照




Excel VBA講座




アクセスランキング


セルの参照
セルの操作
シートの操作
ブックの操作
ウィンドウの操作
グラフの操作
印刷の操作
ファイル操作
Excel操作


Copyright (C) Excel@Workshop All rights reserved.