循环填充从​​命名范围派生的值

Question

我正在编写代码来自动生成摘要文件。到目前为止，它正在制作一个新的电子表格并正确命名，但它不会填充新的电子表格。我想要的是一个循环来通过Sections（1）并将它放在一个单元格中，然后转到下一个单元格并输入Section（2）等的值。

---

Sub GenerateSummaryFile()

NM = Range("ModelName").Value
OG = ActiveSheet.Name
Dim Sections(6) As Variant

    Sections(1) = Range("Flow1")
    Sections(2) = Range("Flow2")
    Sections(3) = Range("Flow3")
    Sections(4) = Range("Flow4")
    Sections(5) = Range("Flow5")
    Sections(6) = Range("Flow6")


Dim WS As Worksheet
Set WS = Sheets.Add(After:=Sheets(Worksheets.Count))
WS.Name = NM
For i = 1 To 6      
   ActiveSheet.Range(i, 3).Value = Sections(i).Value  
Next i   
End Sub

Answer 1

此：

ActiveSheet.Range(i, 3).Value

错了。您可能想要的是：

ActiveSheet.cells(i, 3)

或

ActiveSheet.range( ActiveSheet.cells(i, 3), ActiveSheet.cells(i, 3))

或

ActiveSheet.range("A3")