使用VBA将选择添加到命名范围？

Question

我有一个名为tempPrintArea的命名范围，并引用

='Label packinglist'!$A$1:$J$59

我想使用VBA为其添加另一个选择，以便它引用

='Label packinglist'!$A$1:$J$59,'Label packinglist'!$A$61:$J$110

我该怎么做？

我设想像

这样的东西

范围（＆＃34; tempPrintArea＆＃34;）。RefersTo = wks.Range（＆＃34; tempPrintArea＆＃34;）。地址＆amp; wks.Range（＆＃34; $ A $ 61：$ $Ĵ110＃34）

......但那不起作用

Answer 1

假设你已经创建了这样的命名范围：

Dim wks As Worksheet
Set wks = ThisWorkbook.Worksheets("Label packinglist")

wks.Names.Add Name:="tempPrintArea", RefersTo:=wks.Range("A1:J59")

下一步是添加新的引用：

wks.Names("tempPrintArea").RefersTo = Union(wks.Range("tempPrintArea"), wks.Range("A61:J110"))

现在

Dim test As String
test = wks.Range("tempPrintArea").Address ' returns $A$1:$J$59,$A$61:$J$110