vba - 将范围复制到不同工作表中的命名范围

Question

我有一个名为“Capacities”的命名范围，它指的是工作表“Model”和 Range("I13:I15")

现在在下面的宏中，我有 Range "ScnCap"

现在最后所有被注释掉的东西似乎都不起作用

尽管目标非常简单，但我只想将已在宏中生成的 Range("ScnCap") 分配给 Named Range("Capacities")。

知道我哪里错了吗？

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

Answer 1

ScnCap已经是一个设置范围对象，因此您不需要再次对其使用 Range() 方法。

这将起作用:

wm.[capacities] = ScnCap.Value