如何用excel vba一次删除工作簿中的除第一张之外的全部工作表

没分哟，加分 For 来自i = 2 To 10 Sheets(i).Select activewindow.***.deleteNext i如果有10个表的话，最好是前面加一句错误处理。