使用範囲オフセットからの範囲の設定

Question

作業を行う範囲を作りたいと思います。最後に使用されたセルの行と列のインデックスを返すことができましたが、これを名前付き範囲に含めるにはどうすればよいですか？

numRows = sht.Cells(Rows.Count, 2).End(xlUp).Row 
numColumns = sht.Cells(1, Columns.Count).End(xlToLeft).Column 

Set endRange = sht.Cells(numRows, numColumns) 

Set workRange = sht.Range("B1", Cells(numRows, numColumns)? 

Answer 1

With sht 
    numRows = .Cells(.Rows.Count, 2).End(xlUp).Row 
    numColumns = .Cells(1, .Columns.Count).End(xlToLeft).Column 

    Set endRange = .Cells(numRows, numColumns) 

    Set workRange = .Range("B1", endRange) 

    .Parent.Names.Add Name:="myName", RefersToR1C1:=workRange.Address 
End With 

Answer 2

これは動作するはずです。この

Set workRange = sht.Range("B1", Cells(numRows, numColumns)) 
ActiveWorkbook.Names.Add Name:="myName", RefersToR1C1:=workRange.Address 

Answer 3

を試してください：あなたはこのを何回でも実行することができますし、それは単に既存の名前の変数を上書きします

With Sheets("Sheet1") 
     Set rng = .Range("B1:" & .Cells(numRows, numColumns).Address) 
     ThisWorkbook.Names.Add Name:="workRange", RefersTo:=rng 
End With 

注意を」 workRange "を問題なく使用できます。

Set rng=.Range("B1:C2,E4:F6,G2:" & Cells(numRows,numColumns).Address)