Excel VBA That command cannot be used on multiple selections

Question

I have got this code:

Worksheets("SOURCE_DATA_HIDDEN").Activate
    Sheets("SOURCE_DATA_HIDDEN").Select
    Columns("B").Copy
    Sheets("RESOURCE_DEMAND").Select
    Columns("C").Select
    ActiveSheet.Paste

I use it to copy and paste a column from one sheet to another. The code used to work last time i checked and it somehow broke today. It comes up with the following error: Run time error 1004: That command cannot be used on multiple selections.

I really cant figure out what is going on. I haven't made any amendments to the code.

Answer 1

尝试清除剪贴板Application.CutCopyMode = False

Answer 2

You can simplify that a lot more. If its just the values you are wanting too, change to PasteSpecial . Try this:

ThisWorkbook.Sheets("SOURCE_DATA_HIDDEN").Columns("B").Copy
ThisWorkbook.Sheets("RESOURCE_DEMAND").Range("C1").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False

Eliminates all the selecting and activating, which is generally a habit you dont want to keep!