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

时间:2014-04-11 12:53:03

标签: vba excel-vba excel

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

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

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

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

我该怎么做?

我设想像

这样的东西

范围(" tempPrintArea")。RefersTo = wks.Range(" tempPrintArea")。地址& wks.Range(" $ A $ 61:$ $Ĵ110#34)

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

1 个答案:

答案 0 :(得分:4)

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

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

enter image description here