Вставка Excel vba в последней строке данных

Мне нужны некоторые модификации кода здесь, на вставке команды на vba, но дело в том, что она будет вставляться в последнюю строку данных

im, используя этот код, и это работает отлично, но когда я пытаюсь скопировать другие данные, он заменяет текущий

Range(Range("A2:L2" & lastrow), ActiveCell.End(xlDown)).PasteSpecial 

изменить линию как

 Range(Range("A2:L2" & lastrow), ActiveCell.End(xlDown)).offset(1,0).PasteSpecial 

Попробуйте использовать .Insert

 Sub Macro2() Rows("6:6").Copy Rows("15:15").Insert Shift:=xlDown End Sub 

Прежде всего, ваша одна строка кода не очень помогает, и копия также должна быть там …

Затем :

 Range(Range("A2:L2" & lastrow), ActiveCell.End(xlDown)).PasteSpecial 

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

Итак, самая важная часть – это копия!

Ваш код должен выглядеть примерно так:

 With ThisWorkBook.Sheets("SheetToCopy") If Application.WorksheetFunction.CountA(.Cells) <> 0 Then LastRow = .Cells.Find(What:="*", _ After:=.Range("A1"), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row Else LastRow = 1 End If .Range("A2:L" & LastRow).Copy End With With ThisWorkBook.Sheets("SheetToPaste") If Application.WorksheetFunction.CountA(.Cells) <> 0 Then LastRow = .Cells.Find(What:="*", _ After:=.Range("A1"), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row Else LastRow = 1 End If .Range("A" & LastRow + 1).PasteSpecial End With 
Interesting Posts

Формы Excel или Google – Как определить конкретную ячейку таблицы и обновить значение из других данных рабочего листа

Средние значения Excel с или функцией

Сохранить excel-счет как xlsm и pdf на основе двух значений ячейки, а затем распечатать … Решение

Как добавить контур в текстовое поле в VBScript

Удаление строк, основанных на пустых ячейках в диапазоне

VBA, который копирует строки в новый лист на основе содержимого ячейки каждой строки (пример включен)

Не удалось ссылаться на именованный диапазон в VBA – диапазон метода объекта _global не удалось

Идентифицировать разные версии имен людей как одного и того же человека

Код VBA для применения только последней метки данных

Алфавитно-цифровая сортировка – вставка ошибки – большой объем данных

Удалить / Удалить повторяющиеся строки из 5 столбцов

Динамически, непрерывно, задайте значение ячейки в соответствии с значением ActiveCell (которое находится на другом листе)

Раздражающее пустое окно VBA

Сила разворачивает многие отношения между двумя таблицами

Экспорт данных Excel с исправлением ошибок / удаление зеленых треугольников

Давайте будем гением компьютера.