arrays - 简单的工作表循环并将单元格值放入 vba 数组

Question

我想做一个非常简单的程序，但由于某种原因它不起作用。
我想遍历工作簿中的每个工作表并获取 O13 的单元格值并将其放入数组中。然后在 1 个工作表中打印整个数组。由于某种原因，它没有读入数字。我尝试将数组设置为变体、整数和 double ，但没有任何效果。

     Dim WS_Count As Integer

     Dim I As Integer

     WS_Count = ActiveWorkbook.Worksheets.Count

     Dim array1(43) As Double

     For I = 1 To WS_Count

        array1(I) = ActiveWorkbook.Worksheets(I).Cells(13, 15).Value

     Next I

     Range("A40") = array1

Answer 1

您需要在 1 Dim array1(1 to 43) As Double 中启动数组然后设置范围以放置数组并使用 Transpose Range("A40:A83") = Application.Transpose(array1)