Скопируйте диапазон и сохраните их на другом листе

Question

Я думаю, что это не слишком сложная задача, но проблема в том, что я на самом деле ничего не знаю о программировании, и мне нужно сделать это на моей текущей работе. Это моя проблема:

Проблема в том, что мне нужно разработать макрос и назначить его кнопке, которая копирует диапазон E3: K14 из Page 1 (sheet1) и вставляет его в A1 на стр. 2 (sheet2) , Эта первая задача довольно проста, но проблема возникает, когда, если я снова нажму на назначенную макрокоманду кнопки, она должна скопировать тот же диапазон со страницы 1 и вставить ее на странице 2, но если первая должна проверить, было ли уже что-то вставлено в A1 , если есть, то он должен скопировать его на ячейку I1, и если я снова нажму кнопку на Q1 и так далее.

Когда диапазон вставлен, он должен быть вставлен с опцией «Вставить Vales».

Если бы кто-то мог просто поставить мне точный код (с некоторыми комментариями, если возможно) для меня, просто вставить его было бы очень полезно.

Любая помощь была бы действительно оценена!

Answer 1

Чувак вы можете использовать этот код получите последний столбец с данными, это ключ к решению вашей проблемы.

Sub SelectLast() 
    Dim LastColumn As Long 
    With ActiveSheet 
    LastColumn = .Range("A1").SpecialCells(xlCellTypeLastCell).Column 
    End With 
    MsgBox LastColumn 

    Cells(18, LastColumn + 2).Select 
End Sub 

Answer 2

Try ниже код:

Sub sample() 
    With Sheets("Sheet2") 
     Sheets("sheet1").Range("E3:K14").Copy .Cells(.Range("A" & .Rows.End(xlUp).Row) + 1, 1) 
    End With 
End Sub 

Объяснение:

• использовали Range метод копирования и при условии назначения, где пасту.
• .Range("A" & .Rows.End(xlUp).Row) + 1 проверяет последней использованной ячейки в Лист2 столбце А и добавляет 1, так что данные наклеивается на последней используемой строки. (Если предположить, что столбец Е не имеет пустых ячеек)