将条件格式从 Excel 复制到 Word 表格

Question

我编写了 VBA 代码，将 Excel 工作簿中的值复制到位于我们的报告模板中的 Word 表中。

我对 Excel 单元格进行了条件格式化（事后），如果值大于 0，则显示绿色箭头，如果值小于 0，则显示红色箭头，如果为 0，则显示黄色零。

我的复制粘贴 VBA 代码从 Excel 中的单元格获取值并粘贴到 Word 中的编码模板中：

.Application.Selection.Find.Text = "<<change2>>"
.Application.Selection.Find.Execute
.Application.Selection = Sheet8.Cells(14, 9).Text
.Application.Selection.EndOf

<> 代表本次审核与上次审核之间的值差异，但我现在必须复制并粘贴特殊内容，不仅要显示文本，还要显示箭头。

我尝试过

pastespecial.text

。

Answer 1

不幸的是，无法直接从具有条件格式的单元格复制单个箭头。箭头是单元格格式的一部分，而不是可以单独复制的单个对象。

但是，您可以将整个单元格（包括其格式）复制到另一个单元格。以下是如何使用 VBA 执行此操作的示例：

Sub CopyFormat()
Range("A1").Copy
Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False

结束子