VBA代码用于复制和粘贴包含内部合并单元格的活动列

Question

我正在尝试复制活动列并将其粘贴到它旁边但代码选择整个工作表，因为它已合并了单元格。

Sub CopyPaste()

Columns(ActiveCell.Column).Selection
Selection.Copy
ActiveCell.Offset(0,1).PasteSpecial Paste:=xlPasteAll

End Sub 

你能否帮我添加遗漏的代码来忽略合并的单元格？

Answer 1

这是避免在VBA for Excel中使用Select的另一个原因。您的选择将随合并的单元格一起展开。你可以试试这个：

ActiveCell.EntireColumn.Copy ActiveCell.Offset(0, 1).EntireColumn

同样，您应该找到一些方法来避免在代码中依赖ActiveCell，并使用一些完全合格的范围。