执行macor excel(1004)vba

执行macor excel(1004)vba,vba,excel,button,Vba,Excel,Button,当我试图通过我在工作簿上绘制的按钮运行以下宏时,我得到一个错误(1004)。宏如下所示: Sub copy_data() ' Copy incident_id and ticket_id from raw_incidents Sheets("Raw_Incidents").Select Range("Raw_incident[[id]:[ticket_id]]").Select Selection.Copy Sheets("Report").Select

当我试图通过我在工作簿上绘制的按钮运行以下宏时,我得到一个错误(1004)。宏如下所示:

Sub copy_data()
' Copy incident_id and ticket_id from raw_incidents
    Sheets("Raw_Incidents").Select
    Range("Raw_incident[[id]:[ticket_id]]").Select
    Selection.Copy
    Sheets("Report").Select
    Range("Report[[incident_id]:[ticket_id]]").Select
    ActiveSheet.Paste

' Copy ticket_id from raw_old_ticket_support
    Sheets("Raw_Old_Support_Tickets").Select
    Range("A5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Report").Select

' Function found on this page:    http://stackoverflow.com/questions/14957994/select-first-empty-cell-in-column-f-starting-from-row-1-without-using-offset
    Range("A8:A" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Select
    Range(Selection.Cells(1, 2), Selection.Cells(1, 2).End(xlDown)).Select
    ActiveSheet.Paste

    ActiveSheet.Range("Report[#Tout]").RemoveDuplicates Columns:=2, Header:=xlYes
End Sub
错误在最后一行:

ActiveSheet.Range("Report[#Tout]").RemoveDuplicates Columns:=2, Header:=xlYes
但是,当我从编辑器中运行宏时,通过按run按钮,它可以正常工作


有什么问题吗?

如果您更改为:
工作表(“报告”).Range(“报告[#Tout]”)。移除的重复列:=2,标题:=xlYes
错误仍然发生吗?我这样做了,并且我仍然有错误。工作表是否受到保护?或者,在哪个工作表上存在
范围(“报告[#Tout])
?(我假设它在工作表(“报告”)上是的,它是工作表上一个名为“报告”的表,奇怪的是,当我从编辑器运行代码时,它可以工作,但当我用按钮运行它时,它会出错。