将单元格粘贴到Excel中会丢失格式。

Question

我借用this script从Excel复制范围并将其粘贴到新的Outlook草稿中。

虽然我精通Javascript，Apps脚本以及其他一两个领域，但我对VBA并不陌生，所以我已将其修改为我想做的事情（粘贴多个）范围一个接一个），但由于某种原因，即使我使用以下代码片段：

'Copy the range and create a new workbook to past the data in
rntest.Copy
Set TempWB = Workbooks.Add(1)
With TempWB.Sheets(1)
    .Cells(1).PasteSpecial Paste:=8
    .Cells(1).PasteSpecial xlPasteValues, , False, False
    .Cells(1).PasteSpecial xlPasteFormats, , False, False
    .Cells(1).Select
    Application.CutCopyMode = False
    On Error Resume Next
    .DrawingObjects.Visible = True
    .DrawingObjects.Delete
    On Error GoTo 0
End With

我的条件格式对于某些单元格而言会消失，而对于其他单元格则会完全反转（绿色变为红色，其中的单元格为0％＆＃39;应为一种颜色，最终完全为空白）。

具体来说，我相信该行＆＃39; .Cells（1）.PasteSpecial xlPasteFormats，False，False＆＃39;是正确的。

有谁可以指出我哪里出错了？再次，最近刚拿起VBA，所以我认为我的问题非常基础。