Смещение строки назначения вниз с VBA

У меня есть код VBA для копирования некоторых данных на другой лист.Смещение строки назначения вниз с VBA

Sheets("Current").Range("A3:D").Copy Destination:=Sheets("Archive").Cells(1).End(xlDown)

При вставке код добавляет данные в первую пустую строку после всех существующих записей. Я хотел бы компенсировать назначение пасты вниз на одну строку дальше, что лучший способ сделать это?

источник

2015-05-27 jjjjjjjjjjj

Sheets("Current").Range("A3:D").Copy _ 
    Destination:=Sheets("Archive").Cells(1).End(xlDown).Offset(1, 0)

Износостойкий:

Sheets("Current").Range("A3:D").Copy _ 
    Destination:=Sheets("Archive").Cells(Rows.Count, 1).End(xlUp).Offset(2, 0)

источник

2015-05-27 16:04:34

Я попробовал код, и теперь он не переместить его в нижней части существующих данных больше, вместо этого она копирует его в первый ряд. Я вернул изменения, перезапустил Excel и все еще не работает. Любые идеи, почему это может быть так? – jjjjjjjjjjj

Если вы вернетесь к исходному коду, и он все еще не работает, я не знаю, почему: вы только разместили одну строку кода, поэтому там не так много. –

Единственная строка кода - это все, что у меня есть. – jjjjjjjjjjj

Смещение строки назначения вниз с VBA

ответ

Смежные вопросы