Скопируйте диапазон из столбца в одной таблице в строку в другой таблице, каждый раз добавляя к последней строке

Question

Worksheets ("CAF_VBA").Range ("C17:C27").Copy
Worksheets ("CAF_VBA").Range ("F40").PasteSpecial Transpose:=True

Приведенный выше код копирует столбец данных C17: C27 в строку на листе, начинающуюся с F40. Как настроить код так, чтобы каждый раз, когда я нажимал кнопку команды, он копировал данные в последнюю строку, а не просто на F40. например, F40, затем F41, затем F42 при каждом нажатии кнопки команды?

Answer 1

используйте xlUp и Offset:

Worksheets ("CAF_VBA").Range ("F" & rows.count).End(xlUp).Offset(1).PasteSpecial Transpose:=True