セル データが連続しているセル範囲(表)の最後の行数と列数を取得(コードたった1行)

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

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][セル データが連続しているセル範囲(表)の最後の行数と列数を取得(コードたった1行)]
Option Explicit


Sub CellRangeListRowCol(ByVal Sht As Worksheet, ByRef r As LongByRef c As Long)
'******************************************************************************
'データが連続しているセル範囲(表)の最後の行数と列数を取得(コードたった1行)
'******************************************************************************
'Cell(1,1)からデータが入っていることが条件
'[Shift]+[Ctrl]+[*]と同じ範囲

Dim RngDB As Variant
    RngDB = Sht.Cells(1, 1).CurrentRegion
    r = UBound(RngDB)
    c = UBound(RngDB, 2)

End Sub


Private Sub test()
Dim Sht As Worksheet
Dim r As Long, c As Long

Set Sht = ThisWorkbook.Worksheets("Sheet1")
Call CellRangeListRowCol(Sht, r, c)
Debug.Print r
Debug.Print c
Set Sht = Nothing

'6
'4

End Sub





Production Japan Import Application. Since 1998