将数组复制到单元格

Question

我目前有一个充满数据的数组,我想一直转移到单元格G2,直到整个数组耗尽.我当前的电子表格包含G1中的数据,但没有数据.

我有以下代码,但它不完全正常,因为我收到错误:

应用程序定义或对象定义的错误.

帮助解决这个问题会很棒.如果您能告诉我我的代码有什么问题以及如何修复它而不是为我提供替代配方,我将不胜感激.

For i = 1 to nFlights
     With Worksheets("Q2").Range("G1")
           .End(xlDown).Offset(1, 0) = Origin(i)
    End With
Next

Answer 1

我知道你不想显示代码,但这里有一个与你的循环不同的方法:

Dim arr
arr = Array("one","two","three","four")

ActiveSheet.Range("G2").Resize((UBound(arr) - LBound(arr)) + 1, 1).Value = _
                                  Application.Transpose(arr)