如何在不选择工作表的情况下在excel vba中粘贴整列

Question

I'm trying to copy the first column into the last column. What's wrong with this code? Getting the following error:

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

Does vba allow Copy but not paste for columns?

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

If possible, you should avoid clobbering the user's clipboard in a macro. Just copy the column directly.

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

Answer 2

You should select destination and then use paste:

instead of:

Columns(last_col + 1).Paste

use

Columns(last_col + 1).Select
ActiveSheet.Paste