excel - 插入新行时复制条件格式

Question

我创建了下面的代码，以从隐藏的工作表中复制包含数据验证和条件格式颜色的模板数据行，并将其插入到特定行。

问题是除了条件格式外，所有的下拉单元格都保持白色？

Sub Newstaff()

ThisWorkbook.Sheets("Code").Rows(4).Copy
ThisWorkbook.Sheets("PO1's").Range("A7").End(xlDown).Offset(-1, 0).EntireRow.Insert

End Sub

如何更改它以便在插入新行时包含每个条件的颜色？

score 0 · Accepted Answer

根据文档https://docs.microsoft.com/es-es/office/vba/api/excel.xlpastetype，您可以在添加的行上使用 PasteSpecial 并粘贴格式

ThisWorkbook.Sheets("PO1's").Range("A7").End(xlDown).Offset(-1, 0).PasteSpecial(xlPasteFormats)

1 回答 1