使用VBA将数据和条件格式从一个工作簿复制到另一个工作簿

Question

我正在尝试将数据和条件格式从一个工作簿复制到另一个工作簿。我可以将数据传输到我的主工作簿，但条件格式正在被删除。如何将数据和条件格式从一个工作簿复制到另一个工作簿？

这是我到目前为止所做的：

Dim Master As Workbook 
Set Master = ActiveWorkbook 
Dim lastRow As Long 
lastRow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row 
Range("A2:AE2" & lastRow).Select Selection.Copy 
Master.Activate
ThisWorkbook.ActiveSheet.Cells(lastRow, 1).Paste

我尝试过Paste Special，它也不起作用。

Answer 1

使用xlPasteFormats

https://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.xlpastetype.aspx

ThisWorkbook.ActiveSheet.Cells(lastRow, 1).PasteSpecial xlPasteFormats

如果不起作用，请尝试粘贴两次。首先是值，然后是格式化。

ThisWorkbook.ActiveSheet.Cells(lastRow, 1).PasteSpecial xlPasteValues
ThisWorkbook.ActiveSheet.Cells(lastRow, 1).PasteSpecial xlPasteFormats