VBA跨工作簿复制条件格式失败：提示移除条件格式问题求助

问题根源 #

你当前用的xlPasteValues+xlPasteFormats组合仅能复制单元格的静态值和格式（比如填充色、字体样式），不会复制条件格式规则；同时这种分步粘贴的方式可能破坏Excel文件的XML结构，导致打开时报错，恢复过程中损坏的条件格式部分被移除。而手动复制本质是复制了单元格的全部内容（包含条件格式规则），所以能正常保留。

解决方案 #

使用xlPasteAllMergingConditionalFormats参数粘贴，该参数会复制包括条件格式在内的所有单元格内容，还能自动合并重复的条件格式规则，避免文件结构损坏。

替换后的VBA代码示例

' 1. 定义源区域（替换成你的实际源工作表和区域）
Dim sourceRange As Range
Set sourceRange = ThisWorkbook.Worksheets("源工作表名称").Range("你的源单元格区域")

' 2. 复制并粘贴含条件格式的内容
sourceRange.Copy
templateWorkbook.Worksheets("CARNET").Range(strCellToStartTCoy).PasteSpecial Paste:=xlPasteAllMergingConditionalFormats

' 3. 清除剪贴板释放资源
Application.CutCopyMode = False

可选方案（按需选择） #

如果只需要复制值、格式和条件格式，不需要公式、批注等内容，也可以拆分粘贴，但必须单独复制条件格式规则：

sourceRange.Copy
With templateWorkbook.Worksheets("CARNET").Range(strCellToStartTCoy)
    .PasteSpecial xlPasteValues ' 粘贴值
    .PasteSpecial xlPasteFormats ' 粘贴静态格式
    .PasteSpecial xlPasteConditionalFormats ' 单独粘贴条件格式规则
End With
Application.CutCopyMode = False

注意：单独用xlPasteConditionalFormats时，要保证目标区域结构和源区域匹配，避免规则应用混乱。

内容的提问来源于stack exchange，提问作者eliassal