Печать массива в переменный диапазон ячеек VBA

Question

У меня есть массив переменных, который я хочу напечатать в другой диапазон рабочей книги.Когда я перебираю отдельные массивы и вспомогательные книги, ячейка, в которую я хочу напечатать, изменится.

Для печати некоторых листов потребуется массив, чтобы напечатать его в формате 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.

Спасибо за любую помощь, которую вы можете оказать.

Answer 1

Вам нужно изменить размер Paste Cell, поэтому

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

что-то в этом роде.Или просто используйте якорную ячейку, возможно, установите для ячейки вставки значение bottomrow2,1?