как копировать и вставлять значения и форматирование

Question

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

Sub PasteValues()

  Worksheets("Summary").Range("A1:P12").Copy
  Worksheets("Summary").Cells(Rows.Count, 1).End(xlUp).Offset(2, 0).PasteSpecial xlPasteValuesAndNumberFormats

  Application.CutCopyMode = False

End Sub

Answer 1

Вам необходимо вставить значения и форматирование отдельно, как показано ниже:

Sub PasteValues()

Worksheets("Sheet1").Range("A1").Copy
Worksheets("Sheet1").Range("A2").PasteSpecial xlValues
Worksheets("Sheet1").Range("A2").PasteSpecial xlFormats

Application.CutCopyMode = False

End Sub

Вам, очевидно, нужно будет адаптироваться к собственному коду, но он показывает принцип.