小编Max*_*ell的帖子

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

Sub CopyPaste()

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

End Sub 

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