使用されているセル範囲を全て取得する方法

UsedRangeとAddressを組み合わせることで、使用中のセル全てを取得することも可能です。

    '使用されているセルアドレスを取得
    Dim sAddress As String
    sAddress = UsedRange.Address
    'Rangeとして取得する
    Dim rng As Range
    Set rng = Me.Range(sAddress)
    '最終行
    '★開始行に行数を足すと1セル下の値が返されるので-1しておくこと★
    Debug.Print (rng.Row + rng.Rows.Count - 1)

送料無料 日本製 pcd-1875 PCデスクラック (本体/幅75cmタイプ) 高さ180 奥行45パソコンデスク pcデスク デスク 書斎机 棚付き ラック付き ハイタイプ 壁面収納 壁面家具 本棚 ラック 収納 木製 おすすめ 白 収納 収納付き おしゃれ 北欧 モダン 大洋 works

PCD パソコンデスク ハイタイプ 一体型デスク 幅60cm PCD-1860 本棚 書棚 キャビネット 収納棚 パソコンラック ブックシェルフ ブックラック 壁面収納 壁面ラック ウォールシェルフ キッチンデスク 書斎 本棚 通販 書棚 通信販売 大洋