复制和粘贴区域，包括合并的单元格答案

【问题标题】：Copy and paste area including merged cells复制和粘贴区域，包括合并的单元格
【发布时间】：2021-03-10 13:53:49
【问题描述】：

您好，我有一块单元格需要复制并粘贴到第二张纸上。块中的一些单元格被合并。我已经格式化了目的地，因此单元格也被合并到它们将接收合并单元格的位置。

他们的代码是复制粘贴成块的标准吗

Worksheets("9B").Range("C" & a & ":P " & b).Copy Worksheets("Undo").Range("C" & a & ":P" & b)

不适用于合并的单元格，我希望避免单独处理每个部分，因为它的大小合理。

谢谢

【问题讨论】：

请尝试Worksheets("9B").Range("C" & a & ":P " & b).Copy Worksheets("Undo").Range("C" & a)（在同一代码行上）。如果接收值的范围格式相似，它应该可以工作。
上述建议你试过了吗？
不行，我得分别处理每个合并区域
这仅表示讨论中的范围在合并单元格区域方面不是格式相同...尝试手动对小测试范围执行此操作，只是为了看到它有效。

标签： excel vba

【解决方案1】：

如果您已在第二张纸中准备好单元格，请执行以下操作：

Sub CopyMerged()

a = 1
b = 10

'First method
Worksheets("9B").Range("C" & a & ":P " & b).Copy
Worksheets("Undo").Range("C" & a & ":P" & b).PasteSpecial

'Second method
Worksheets("Undo").Range("C" & a & ":P" & b).Value = Worksheets("9B").Range("C" & a & ":P " & b).Value

End Sub

【讨论】：