Страницы: 1
RSS
Что надо добавить в макрос что бы ячейки копировались и вставлялись без формул
 
Код
Sub Макрос2()   
Dim LastRow As Long   
   With Sheets("Лист2")   
       LastRow = .Cells(Rows.Count, 6).End(xlUp).Row   
       Range("A1:B1").Copy .Cells(LastRow + 1, 6)   
       Range("C1:D1").Copy .Cells(LastRow + 1, 9)   
   End With   
End Sub

У меня есть следующий макрос от Юрий М отсюда. Этот макрос автоматически копирует ячейки и вставляет в следующие пустые строки. Но копирует вместе с формулой

Что необходимо сюда дабавить, что бы ячейки вставлялись без формул?
Изменено: anjdele - 03.03.2019 22:34:04
 
Код
.Cells(LastRow + 1, 6).PasteSpecial xlPasteValues
 
выдаёт ошибку
 
Код
Range("A1:B1").Copy
.Cells(LastRow + 1, 6).PasteSpecial xlPasteValues
 
Супер! Так всё работает. Огромное спасибо!!!
Страницы: 1
Наверх