VBA Excel宏.copy目标错误1004

Question

i hope someone can help me.

I tried everything, but i cant fix the following code:

Sheets(Sheets.Count).Range("A2:J2" & Range("A2:J2").End(xlDown).Row).Copy _
    Destination:=Sheets(Sheets.Count - 3).Range("A2")

If i leave the destination line and use the following code instead, it works.

Sheets(Sheets.Count).Range("A2:J2" & Range("A2:J2").End(xlDown).Row).Copy '_
    'Destination:=Sheets(Sheets.Count - 3).Range("A2")

Sheets("All Docs " & Date).Select '(All Docs " & Date) = (Sheets.count-3)
Range("A2").Select
ActiveSheet.Paste

Any suggestions? Thx a lot.

Answer 1

I think I see what's happening. You're trying to get a "block" of data, from A2:J2 across, and then to some row going down, say A10:J10 - to end up with a range A2:J10 that you want to copy.

What I think might be happening is there is no data (or perhaps not enough) under your Row 2, so Excel's getting your .End(xlDown.Row as 1048576 .

Try using this:

Sub test()
Dim lastRow As Long
With Sheets(Sheets.Count)
    lastRow = .Range(.Cells(2, 1), .Cells(2, 10)).End(xlDown).Row

    If lastRow >= 1048576 Then
        lastRow = 2
    Else
        lastRow = .Range(.Cells(2, 1), .Cells(2, 10)).End(xlDown).Row
    End If

    .Range(.Cells(2, 1), .Cells(lastRow, 10)).Copy Destination:=Sheets(Sheets.Count - 3).Range("A2")

End With

End Sub

Note about using Sheets(Sheets.Count) . This is not the same as using say, Sheets("LastSheet") . If you change the order of your worksheets around, this will affect where your data is pasted into. IE if your right most sheet has your data (which I think it does, since you're using it to get the info to paste), and you move it anywhere else but the end of the file, then your data won't properly be found. Sheets.Count refers to the very last (right most) sheet. And Sheets.Count - 3 refers to the sheet three over from the end (again, moving that sheet will also result in not pasting where you want).