| 楼主 a371014988 |
check = 0 For i = 1 To Worksheets.Count If Worksheets(i).Name = "计划内完成数" Then check = 1 myck = MsgBox("已经存在工作表 计划内完成数 ,是否继续,是:继续,否:退出程序", vbYesNo) If myck = vbNo Then Exit Sub Else Exit For End If End If Next i If check = 0 Then ActiveSheet.Copy After:=Sheets(Worksheets.Count) Sheets(Worksheets.Count).Name = "计划内完成数" End If Worksheets("计划内完成数").Range("A5:AZ65536").ClearContents Worksheets("计划内完成数").Range("A5:AZ65536").ClearComments |
| 2楼 成就滋味 |
这个是03的，07和10中还得改改吧 |