尝试复制和粘贴时，我不断收到1004错误应用程序定义的错误或对象定义的错误

Question

我正在尝试从工作表“ AgentName”中将范围A：3复制到A：x（其中x是表“ AgentName”中的行数），但是，每当我尝试复制包含变量的范围时，它给我错误1004。我已经阅读了所有可以找到的内容。 这是我尝试过的两个常见问题。

Worksheets("AgentName").Range("A3:A"&x).copy

Worksheets("AgentName").Range(Sheets("AgentName").Cells(3, 1), Sheets("AgentName").Cells(x, 1)).Copy

^我尝试了没有表格，仅包含单元格，包含单元格和范围的表格。

这是代码的简化版：

Private Sub CommandButton1_Click()

    'CountRows in AgentName Table
    Dim myWorkSheet As Worksheet, myTable As ListObject, x As Long
    Set myWorkSheet = ActiveWorkbook.Worksheets("AgentName")
    Set myTable = myWorkSheet.ListObjects("AgentName")
    x = myTable.DataBodyRange.Rows.Count

    'Specific Forms for All Agents (Motivated)
    If Range("B3").Value = "All Agents" And Range("C3").Value = "Motivated" Then
        Worksheets("Other Forms").Range("A1:H2").Copy
        Worksheets("Master").Range("B6:I7").PasteSpecial
        Worksheets("AgentName").Range(Sheets("AgentName").Cells(3, 1), Sheets("AgentName").Cells(x, 1)).Copy
        Worksheets("Master").Range("B8:B13").PasteSpecial
        Range("B6:I13").Borders.LineStyle = xlContinuous

    End If
End Sub

Answer 1

我看到两个潜在的错误源：首先，将非恒定大小的范围复制并粘贴到具有恒定大小的范围内，即：

Worksheets("AgentName").Range(Sheets("AgentName").Cells(3, 1), Sheets("AgentName").Cells(x, 1)).Copy
    Worksheets("Master").Range("B8:B13").PasteSpecial

如果x不等于8，则将A3：Ax粘贴到B8：B13中，这将给您带来错误，因此只需将其粘贴到第一个单元格中，excel就会假定您将要粘贴其余的内容。 因此：

    Worksheets("Master").Range("B8").PasteSpecial

代替。

第二点是复制的结构：

Worksheets("AgentName").Range(Sheets("AgentName").Cells(3, 1), Sheets("AgentName").Cells(x, 1)).Copy

如果您已经定义了listobject，我宁愿使用listobject。

mytable.databodyrange(1,mytable.listrows.count).copy

这或非常相似的东西应该起作用。 请注意，.row为您提供了绝对行，listrow为您提供了相对于表的行。 因此，无论表是什么， mytable.databodyrange(1,3)都将是表的第一行和第三列中的条目。 这可以是绝对行9053和绝对列456。通常最好使用这样的相对坐标，您将能够再次将代码用于其他目的，并且只需要调整表格即可。

祝您好运，希望对您有所帮助！