VBA代码来复制和粘贴合并单元格内的活动列

我试图复制活动列并粘贴它，但代码select整个工作表，因为它已经合并了单元格。

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

你能帮我添加缺less的代码来忽略合并单元格吗？

Answer 1

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

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

再次，你应该find一些方法避免在你的代码中的ActiveCell计数，并使用一些完全合格的范围。