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

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

Sub CopyPaste()

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

End Sub 

---

您能帮我添加缺少的代码以忽略合并单元格吗？

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

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

---

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

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

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

---

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

ColumnSativeCell.Column.Selection做什么？ColumnSativeCell.Column.Selection做什么？感谢您的帮助。我不习惯在没有选择的情况下编码，需要在没有选择的情况下更改为新编码select@Maxwell-请参阅。@Maxwell的SO Excel VBA文档可能也会对您有所帮助，例如。谢谢各位，我忘了问mi问题了。我想在复制列之后，复制并粘贴值中的活动列您的意思是只复制值而不复制格式？在这种情况下，您可以尝试以下操作：ActiveCell.Offset0，1.EntireColumn.value=ActiveCell.EntireColumn.value谢谢您的帮助。我不习惯在没有选择的情况下编码，需要在没有选择的情况下更改为新编码select@Maxwell-请参阅。@Maxwell的SO Excel VBA文档可能也会对您有所帮助，例如。谢谢各位，我忘了问mi问题了。我想在复制列之后，复制并粘贴值中的活动列您的意思是只复制值而不复制格式？在这种情况下，您可以尝试这样做：ActiveCell.Offset0，1.EntireColumn.value=ActiveCell.EntireColumn.value