Excel VBA使用变量设置命名范围

Question

我有定位特定列的VBA代码，并将列位置保存为Double。从那里，我试图在下面设置一个等于它的命名范围。当我运行代码时，我得到了运行时间＆＃39; 1004＆＃39;错误。有什么想法吗？

Sub namedRangeUpdate()
Dim namedRangeReference as double
namedRangeReference = ActiveCell.Column
ActiveWorkbook.Names("TM_New").RefersToR1C1 = "='Raw Data'!C" & namedRangeReference
End Sub

当我运行程序时，即使它在最后一行出错，当我将鼠标悬停在namedRangeReference上时，它也会反映namedRangeReference = 32。代码正在获取该列号，但它没有进入命名范围。

Answer 1

想出来;编码无效。这就像一个魅力。

ActiveWorkbook.Names.Add Name:="TM_New", RefersToR1C1:="='Raw Data'!C" & namedRangeReference