来自另一张工作表的Excel VBA范围副本

Question

I have a line of code that I am having issues troubleshooting.

Sheets("data").Range(cells(2,1), cells(2, column).Copy

I'm getting a 1004 application or object defined error on this. The code works if I remove the worksheet selection or replace the range chunk with a hardcoded reference (e4:e50 for example), but won't work together.

Answer 1

Right now you have the Range looking at one sheet and the Cells are looking at the active sheet. You need to make sure they are looking at the same sheet.

You can do this in line:

Sheets ("data").Range(Sheets ("data").cells (2,1), Sheets ("data").cells (2, column)). Copy

Or you can use a With Block for less typing

With Sheets ("data")
    .Range(Sheets (.cells (2,1), .cells (2, column)). Copy
End With