UsedRangeとAddressを組み合わせることで、使用中のセル全てを取得することも可能です。 '使用されているセルアドレスを取得 Dim sAddress As String sAddress = UsedRange.Address 'Rangeとして取得する Dim rng As Range Set rng = Me.Range(sAddress) '最…

Excel VBA マクロの最終行を取得 Range.End メソッドで最終行を取得可能 定数名 値 説明 xlUp -4162 上端 xlDown -4121 下端 xlToLeft -4159 左端 xlToRight -4161 右端 End.EntireRow 指定すると終端の行を取得できます。 Dim r As Range ‘セル「A1」の下端…