将阵列打印到可变单元格范围VBA

时间:2019-02-27 09:51:55

标签: arrays excel vba

我有一个变量数组,我想将其打印到另一个工作簿范围中。当我遍历单独的数组和辅助工作簿时,要打印的单元格将更改。

有些工作表需要将数组打印到A6:N,有些工作表需要将数组打印到A300:N等。我想进入现有数据列表的底部,并将其“粘贴”到下面

这是我到目前为止所拥有的:

bottomrow2 = Range("A9999").End(xlUp).Row
Set PasteCell = ClientBook.Sheets("PasteSheet").Range(Cells(bottomrow2 + 1,1),Cells(bottomrow2 + 1, 14))
Range(PasteCell & UBound(array)) = array

PasteCell实际上正在尝试成为我的A1:N。值得注意的是,如果我将数组paste硬编码到哪里,它就可以正常工作。

Range("A1:N" & UBound(array)) = array
'^This works fine.

感谢您提供的任何帮助。

1 个答案:

答案 0 :(得分:0)

您需要调整粘贴单元的大小,所以

Set PasteCell=PasteCell.Resize(ubound(array),14)

类似的东西。还是只使用锚单元,将粘贴单元设置为bottomrow2,1?