|
▼rin さん:
あらかじめ、"Table"、"rows"、"cols"の名前定義が
されている事を前提としてます。
(挿入後に範囲を再セット)
Sub sample()
Dim myRange As Range
'Tableの再セット
Set myRange = Range("B3", _
Cells(Range("cols").Offset(-2, 0).Row, _
Range("rows").Offset(0, -2).Column))
ActiveWorkbook.Names.Add Name:="Table", _
RefersToR1C1:=myRange
Set myRange = Nothing
'rowsの再セット
Set myRange = Range(Range("rows").Cells(1), _
Cells(Range("cols").Offset(-2, 0).Row, _
Range("rows").Column))
ActiveWorkbook.Names.Add Name:="rows", _
RefersToR1C1:=myRange
Set myRange = Nothing
'colsの再セット
Set myRange = Range(Range("cols").Cells(1), _
Cells(Range("cols").Row, _
Range("rows").Offset(0, -2).Column))
ActiveWorkbook.Names.Add Name:="cols", _
RefersToR1C1:=myRange
Set myRange = Nothing
End Sub
参考までに。
|
|