Excel VBA PasteSpecial

Question

Set copySheet = Worksheets("Metrics")
Set pasteSheet = Worksheets("Metrics")

copySheet.Range("A1:J5").Copy
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(2, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True

我已经编写了大量的VBA代码，它主要完成了我想要它做的事情，但我无法弄清楚如何应用第二个专用来获取从Copied部分到新粘贴部分的格式。我尝试在第一个pastespecial行下添加第二个.PasteSpecial xlPasteFormats，但宏在此时失败。

有关如何将格式添加到新粘贴的部分的任何想法？

Answer 1

这不是一个很好的答案，但是

pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(-4, 0).PasteSpecial xlPasteFormats

这最终会起作用。我把它放在第一个pasteSheet行下面。

现在我必须在粘贴后的第一个单元格中插入一年中的那个月...这将很有趣。