我试图找出如何从excel表中复制数据而不影响格式化。出于某种原因,如果我保留下面描述的两个部分,它会粗体显示整个数据集。我能想出的唯一解决方案是在下面插入一个空格,但我希望它只是一张桌子。我已附上以下代码。谢谢
Sheet2.Rows(11).Copy
wdapp.Selection.PasteAndFormat wdFormatOriginalFormatting
.ClearFormatting
.TypeText vbNewLine
Dim equip As Integer
equip = 12
Do While Sheet2.Cells(equip, 4).Value <> 0
Sheet2.Rows(equip).Copy
wdapp.Selection.PasteAndFormat wdFormatOriginalFormatting
equip = equip + 1
Loop