セル 最終行・列の取得

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][セル 最終行・列の取得]

'最終行の取得
'
'例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

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





Production Japan Import Application. Since 1998