excel - 如何在Excel VBA中粘贴整列而不选择工作表

Question

我正在尝试将第一列复制到最后一列。这段代码有什么问题？出现以下错误:

Run-time error '438
object doesn't support this property or method

vba 是否允许对列进行复制但不允许粘贴？

Sub copy_ids_user_output(sheet_name As String)

'   find last column
    Dim last_col As Integer
    last_col = Worksheets(sheet_name).Cells(1, Columns.Count).End(xlToLeft).column
    Debug.Print last_col

    Columns(1).Copy
    Columns(last_col + 1).Paste


End Sub

Answer 1

如果可能，您应该避免在宏中破坏用户的剪贴板。直接复制该列即可。

Columns(1).Copy Columns(last_col + 1)