大威1030

摘要： 话不多说，上代码 Sub vba获取工作表名称() For sheetname = 1 To Sheets.Count Cells(sheetname, 1) = Sheets(sheetname).Name Next sheetname End Sub 阅读全文

摘要： 话不多说，上代码 Sub 批量删除工作表() Dim sh As Object Application.DisplayAlerts = False '关闭提示，否则每删除一个非空工作表，都会出现提示 For Each sh In ThisWorkbook.Sheets With sh 'sheet名 阅读全文