Excel 插入新行时复制条件格式

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

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

Sub Newstaff()

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

End Sub

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

根据文档，您可以在添加的行上使用PasteSpecial，并粘贴格式

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

---

此工作簿.Sheets（“code”）.Rows（4）.FormatConditions将显示它们，您也可以复制和粘贴特殊格式。不过，您的代码似乎工作正常。规则是什么？我试过了，但它不起作用并一直在调试，规则是当从下拉单元格中选择特定文本时，它会将单元格颜色更改为指定的文本，但它们与什么有关，其中是否有工作表名称，它们是否仅与模板工作表等有关？抱歉，它们与工作表PO1有关，如果插入行，模板是其中一行的副本，但在接下来的一年中，我必须在添加人员时插入模板行。所有CF都是在PO1表上创建的。下拉列表不是条件格式，而是数据验证。检查列表源所在的位置。