将范围复制到不同表格中的命名范围

我有一个名为“容量”的命名范围,它指的是“模型”和范围(“I13:I15”)

现在在macros下面我有Range“ScnCap”

现在到最后,所有被评论的东西似乎都不起作用

尽pipe目标非常简单,但我只想给macros指定名称范围(“容量”)的范围(“ScnCap”)。

任何想法,我错了吗?

Dim wm, ws, wr As Worksheet Dim i, j, l, m As Long Dim char As Variant Dim ScnCap As Range Set wm = Sheets("Model") Set ws = Sheets("Scenarios") Set wr = Sheets("Results") For i = 1 To 5 With ws j = i + 1 .Cells(7, j).Select Set ScnCap = .Range(.Cells(5, j), .Cells(7, j)) End With ' ws.Range("ScnCap").Value.Copy wm.Range("Capacities") 'wm.Range("Capacities") = ws.Range("ScnCap").Value ' 'Range("ScnCap").Copy 'Range("Capacities").PasteSpecial xlPasteValues Next i 

ScnCap已经是一个设置的范围对象,所以你不需要再次使用Range()方法。

这将工作:

 wm.[capacities] = ScnCap.Value