Excel VBA 入門講座

第7章 2.連続検索 Excel VBA 入門講座 第7章 4.ソート
最終行と最終列の取得最終行と最終列の取得

使用済みセルの最終行と最終列の取得にはWorksheetオブジェクトの値があるすべてのセルを範囲とする UsedRange プロパティを使用します。


Sub CellCnt()
    Dim lngYCnt As Long
    Dim intXCnt As Integer
    
    lngYCnt = Worksheets("Sheet1").UsedRange.Rows.Count
    intXCnt = Worksheets("Sheet1").UsedRange.Columns.Count
    MsgBox "最終行は" & intYCnt & "行、" &  _
                            "最終列は" & ingXCnt & "列です"
End Sub
第7章 2.連続検索 Excel VBA 入門講座 第7章 4.ソート TOP