将多个文档里的某行数据写入一个数组，有没有更简单的办法

一柱

定义了一个4行，84列二维数组，将工作簿WB里的第3行和第145行，以及其他两个工作簿的第145行和第33行数据写入数组arr。如下方法可以实现，但总觉得不是最高效的，有更简单的办法吗？
每行数据的都是84列，这一点是有规律的，但并不连续。




ReDim arr(1 To 4, 1 To 84)
    For i = 1 To 84
    arr(1, i) = wb.Sheets(1).Cells(3, i)
    arr(2, i) = wb.Sheets(1).Cells(145, i)
    arr(3, i) = wb1.Sheets(1).Cells(145, i)
    arr(4, i) = wb2.Sheets(1).Cells(33, i)
    Next i

一柱

请高手赐教

gwjkkkkk

一柱 发表于 2023-3-29 20:37
请高手赐教

将工作簿数据写入另外数组，再数组值赋值给 arr

一柱

gwjkkkkk 发表于 2023-3-29 20:52
将工作簿数据写入另外数组，再数组值赋值给 arr

能再具体说说么