如何使用VBA将ETABS给出的一维数组中的值插入excel中的范围

Question

我试图将程序（ETABS）给我的一维数组中的值插入到使用VBA的Excel中的范围内。

以下是ETABS计划返回给您的结果（请阅读以了解）：http://docs.csiamerica.com/help-files/common-api(from-sap-and-csibridge)/SAP2000_API_Fuctions/Analysis_Results/Results/Analysis_Results_Remarks.htm

因此，为了让我将一个结果插入单元格＆＃34; A1＆＃34;在Excel中，我只使用此代码（工作原理）： Range("A1").Value = U1(0)

但是，如果我想将所有结果插入某个范围，我遇到了所有类型的问题。我尝试了很多代码，但这个代码似乎是最合理的： Range("A1:A" & (NumberResults - 1)).Value = (U1(0) - U1(NumberResults - 1))

我通常只获得整个范围内重复的第一个值，而不是整个值集。

是否有人知道如何使数组的所有值出现在指定的范围内？

谢谢！

Answer 1

因为数组U1()从零开始：

Dim i As Long

For i = LBound(U1) To UBound(U1)
    Range("A" & i + 1).Value = U1(i)
Next i