Excel VBA 初心者の為の入門講座のホームページです

Excel VBA 入門講座


3.最終行と最終列の取得

使用済みセルの最終行と最終列の取得には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
Copyright (C) pc-users.net, All Rights Reserved.