セル 最終行・列の取得

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。


'最終行の取得
'
'例1
'アンプロテクトしないと取得不可
Suu = shtTarget4.Range("a1").CurrentRegion.Rows.Count - 1

'例2
'プロテクトされているシートでも取得可能
lngTextSUU = shtOpenText.Range("A65536").End(xlUp).Row

A = shtT.Range("a1").End(xlDown).Row

'最終列の取得
'
'例1
'アンプロテクトしないと取得不可
Suu = shtTarget4.Range("a1").CurrentRegion.Columns.Count - 1

'例2
'プロテクトされているシートでも取得可能
A = shtT.Range("a1").End(xlToRight).Column

'注意: 他にも方法はあります。

 

 

2000年01月01日|[VBサンプルコード]:[CELL]