月別: 2020年1月

Option Explicit
Sub A_Sample008()
Dim myRng1 As Range
Dim myRng2 As Range
Dim mySht As Worksheet
Dim myLngR As Long
Set mySht = Worksheets(1)                   ‘任意のシート
Set myRng1 = mySht.UsedRange                ‘タイトル行を含むデータ範囲
myLngR = myRng1.Rows.Count                  ‘行サイズ
‘準備ここまで
Set myRng2 = myRng1.Resize(myLngR – 1).Offset(1)
MsgBox myRng2.Address
Set myRng1 = Nothing                        ‘オブジェクトの解放
Set myRng2 = Nothing
Set mySht = Nothing
End Sub

Option Explicit
Sub A_Sample007()
Dim myRng1 As Range
Dim myRng2 As Range
Dim myLngR As Long
Dim myLngC As Long
myLngR = 6                                  ‘行サイズ
myLngC = 2                                  ‘列サイズ
Set myRng1 = Range(“A1:C5”)                 ‘任意のセル範囲
‘準備ここまで
Set myRng2 = myRng1.Resize(RowSize:=myLngR, ColumnSize:=myLngC)
MsgBox myRng2.Address
Set myRng1 = Nothing                        ‘オブジェクトの解放
Set myRng2 = Nothing
End Sub