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

Question

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

Sub CopyPaste()

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

End Sub 

你可以帮我添加丢失的代码来忽略合并的单元格吗？

Answer 1

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

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

而且,您应该找到一些方法来避免在代码中依赖ActiveCell,并使用一些完全限定的范围.