Excel VBA - 将新行写入现有数组

Question

我不知道如何做到这一点，所以任何帮助都会很棒。使用数组，我将逐行发送到 Excel 工作簿，该工作簿执行大量计算（太多无法编程）并吐出 13 个值，我想将它们存储到另一个数组中。这可能吗？

Dim aP() as Variant
Dim wbR as Workbook
Dim wsR as Worksheet
Dim i as Long

Set wbR = Workbooks.Open([directory])
Set wsR = wbR.Sheets("Sheet1")
aP = Application.Transpose(Activesheet.Range("A1:Z100"))
For i = 1 to 100
wsR.Range("A1:A26") = Application.Index(aP, [row(1:26)], i)
'this is where I need help. Want to paste range C1:C13 into another array,
'so that I can paste it back into the activesheet. I do not wish to paste it 
'straight back to the worksheet, but accumulate all the data into array and 
'and then paste the array into the activesheet
Next i

Exit Sub

Answer 1

您似乎正试图让您的代码变得超级高效。我做了一些可能会加快速度的更改。

子 BuildArrayR100C26() Dim arData(99, 12) 暗淡计算 Dim i As Integer, j As Integer 将 wbR 调暗为工作簿 将 wsR 调暗为工作表 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual 设置 wbR = Workbooks.Open([目录]) 设置 wsR = wbR.Sheets("Sheet1") 对于 i = 0 到 99 wsR.Range("A1:A26").Value = Application.Transpose(ActiveSheet.Range("A1:Z1").Offset(i)) 应用程序.计算 arCalculations = wsR.Range("C1:C13").Cells(j + 1) 对于 j = 0 到 12 arData(i, j) = arCalculations(j + 1, 1) 下一个 接下来我 Sheet2.Range("A1").Resize(UBound(arData, 1), UBound(arData, 2)).Value = arData Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True 结束子

这一行将范围一次粘贴到 wsR 中。

wsR.Range("A1:A26").Value = Application.Transpose(ActiveSheet.Range("A1:Z1").Offset(i))

这个循环将你的计算复制到一个数组中

For j = 0 To 12
    arData(i, j) = wsR.Range("C1:C13").Cells(j + 1)
Next

关闭屏幕更新和计算

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

粘贴新数据后重新计算

应用程序.计算