收起
On Error Resume Next容错或者写一个函数遍历所有sheet是否存在名字为你那个工作表的名称,存在再继续
On Error Resume Next If Sheets("xxx") Is Nothing Then MsgBox "xxx sheet不存在"
报告相同问题?