如何通过VBA将Excel单元格的条件格式（含箭头）复制到Word表格？

要保留Excel条件格式的箭头图标，不能直接通过文本赋值的方式实现，需通过复制-粘贴特殊格式的方式完整迁移单元格格式，具体实现代码如下：

' 定位Word模板中的<<change2>>标记
.Application.Selection.Find.Text = "<<change2>>"
.Application.Selection.Find.Execute

' 复制Excel中带条件格式的目标单元格
Sheet8.Cells(14, 9).Copy

' 粘贴到Word，完整保留单元格格式（含条件格式箭头）
.Application.Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile

' 清除剪贴板内容（可选，避免后续操作误粘贴）
Application.CutCopyMode = False

关键说明 #

• 若未引用Word对象库，可直接用常量对应的数值替代：DataType:=2（对应wdPasteEnhancedMetafile）
• 也可尝试DataType:=wdPasteHTML（数值4），但增强图元文件格式对条件格式图标的保留效果更稳定
• 需确保VBA编辑器已启用Word对象库引用（路径：工具→引用→勾选Microsoft Word xx.x Object Library）

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