Не удается вырезать и вставить данные с одного листа на другой

Question

Я пытаюсь вырезать данные из всех строк до последней из листа «Сводка» и вставить их в следующую пустую строку в «Историческом» листе, но я получаю эту ошибку: метод PasteSpecial или класс Range не удалось.

Sub HistoricalData()

  Application.ScreenUpdating = False
  Dim copySheet As Worksheet
  Dim pasteSheet As Worksheet
  Dim LastRow As Integer

  LastRow = Sheets("Summary").Range("A" & Rows.Count).End(xlUp).row

  Set copySheet = Worksheets("Summary")
  Set pasteSheet = Worksheets("Historical")

  copySheet.Range("A2:V2" & LastRow).Cut
  pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
  Application.CutCopyMode = False
  Application.ScreenUpdating = True

End Sub

Спасибо заранее!

Answer 1

Это должно сделать задание для вас:

Сначала мы копируем диапазон и значения вставки, на следующем шаге мы очищаем тот диапазон, в который мы его скопировали.

Sub HistoricalData()

  Application.ScreenUpdating = False
  Dim copySheet As Worksheet
  Dim pasteSheet As Worksheet
  Dim LastRow As Integer

  LastRow = Sheets("Summary").Range("A" & Rows.Count).End(xlUp).Row

  Set copySheet = Worksheets("Summary")
  Set pasteSheet = Worksheets("Historical")

  copySheet.Range("A2:V" & LastRow).Copy
  pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
  copySheet.Range("A2:V" & LastRow).Clear

  Application.CutCopyMode = False
  Application.ScreenUpdating = True

End Sub