セル 最終行・列の取得
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
'最終行の取得 ' '例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 '注意: 他にも方法はあります｡ |