复制/粘贴合并的单元格以保持格式

时间:2020-05-28 19:09:51

标签: excel vba

我正在尝试将范围从一张纸复制到另一张纸。在源工作表上,我具有格式化和合并的单元格。我想要目标表上的完全匹配。源工作表称为Budget Hours,目标工作表称为Schedule

我尝试了

Range("B5", Range("E1000")).Copy Worksheets("Schedule").Cells(6, 2).PasteSpecial Paste:=xlPasteFormats Worksheets("Schedule").Cells(6, 2).PasteSpecial Paste:=xlPasteValues

它执行PasteFormats,但给PasteValues提供了错误。错误为“运行时错误'1004'”:您无法在此处粘贴此内容,因为“复制”区域和粘贴区域的大小不同。在粘贴区域或相同大小的区域中仅选择一个单元格,然后尝试再次粘贴。“

然后我尝试了Sheets("Schedule").Range("B6:E500").Value = Sheets("Budget Hours").Range("B5:E499").Value。此方法有效,但不保留任何格式,并且撤消合并的单元格。

合并和格式化的单元格示例为B5:D5,背景为蓝色。我已经附上了来源的图片。

enter image description here

如何在目标工作表(Schedule)上获得完全匹配的内容?

0 个答案:

没有答案