把你要保留的工作表的名字放到数组里，再把数组放到字典里，然后遍历工作表，判断工作表名是否在字典里存在，如果存在，把工作表移动到新工作簿里然后另存为
不想用字典和数组的话，也可以把工作表名列一列，用VBA调用countif函数判断
工作表移动到新工作簿里然后另存为的代码录制宏可以得到
给你个最实用的代码吧 用单元格已使用区域Copy到新的表中用下面代码要指明第左上解单元格要复制表的区域.Copy Destination:=接收复制表的左上角单元格如把SHEET1中的已使用区域复制到SHEET2中 以SHEET2的A1单元格为起来粘贴进SHEET2 Dim myRange1 As RangeDim myRange2 As RangeSet myRange1 = Sheets1.UsedRangeSet myRange2 = Sheets2.Range("A1") myRange1.Copy Destination:=myRange2 删除行得用循环 加 条件加行删除就OK了
