Question

我已经尝试找到解决问题的方法，但是我尝试过的方法没有用。将导出的原始数据复制到另一张工作表以进行排序和格式化。将活动工作簿数据复制到第二张工作表，粘贴数据错误。

运行时错误“ 1004”：

应用程序定义或对象定义的错误

Public Sub BOM_FORMAT()

If ActiveWorkbook.Worksheets.Count = 1 Then
Sheets.Add after:=Worksheets(Worksheets.Count), Count:=3
End If


' Set numrows = number of rows of data.
  NumRows = Range("A2", Range("A2").End(xlDown)).Rows.Count

Sheets("Sheet1").Select
Sheets("Sheet1").Name = "RAW"
Columns("C:K").Copy _
Destination:=Sheets(2).Columns(1, 8)

Sheets(2).Select
End Sub

Rest of Code仅用于格式化并且可以正常工作。在“目标”行上引发错误。

请提供任何帮助。

Answer 1

Columns("C:K").Copy Destination:=Sheets(2).Cells(1, 8)

所以：

Public Sub BOM_FORMAT()

    If ActiveWorkbook.Worksheets.Count = 1 Then
        Sheets.Add after:=Worksheets(1), Count:=3
    End If

    'number of rows of data
    NumRows = Range("A2", Range("A2").End(xlDown)).Rows.Count

    With Sheets("Sheet1")
        .Name = "RAW"
        .Columns("C:K").Copy Destination:=Sheets(2).Cells(1, 8)
    End With

    Sheets(2).Select

End Sub

复制范围和粘贴到其他工作表1004运行时错误

1 个答案: