将数组复制到单元格
将数组复制到单元格
提问于 2011-10-26 03:41:21
我目前有一个充满数据的数组，我想一直传输到单元格G2，直到整个数组耗尽。我当前的电子表格在G1中有数据，但在它下面没有数据。
我有以下代码，但它不能准确地工作，因为我得到了错误：
应用程序定义或对象定义的错误。
帮助解决这个问题将是很棒的。如果你能告诉我我的代码出了什么问题，以及如何修复它，而不是提供给我一个替代公式，我将不胜感激。
For i = 1 to nFlights
With Worksheets("Q2").Range("G1")
.End(xlDown).Offset(1, 0) = Origin(i)
End With
Next回答 2
Stack Overflow用户
发布于 2011-10-26 04:07:34
我知道你不想看到代码，但这里有一种与你的循环不同的方法：
Dim arr
arr = Array("one","two","three","four")
ActiveSheet.Range("G2").Resize((UBound(arr) - LBound(arr)) + 1, 1).Value = _
Application.Transpose(arr)Stack Overflow用户
发布于 2011-10-26 03:51:28
offset属性只引用单元格(在本例中)，该单元格位于作为调用基础的单元格("G1")下面。为了将整个数组orgin复制到工作表上的列G中，请尝试执行以下操作：
Dim i As Integer
i = 2
For Each val As String In Origin
With Worksheets("Q2")
.Cells(i, 7).Value = Origin(i)
i = i + 1
End With
Next页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/7894884
复制相关文章
相似问题
腾讯云开发者
