复制范围来命名范围不同表

Question

我有一个名为范围称为“容量”，是指单“模型”和Range（“I13：I15”）

现在，在宏观下面我有范围“ScnCap “

在已被注释掉似乎并不工作

虽然目的很简单我只想分配命名范围结束一切

现在（”容量“）的范围（” 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 

Answer 1

ScnCap已经设定的范围对象，所以你不需要再次使用范围（）方法就可以了。

这将工作：

wm.[capacities] = ScnCap.Value