alt+F11
右键插入模块
粘贴以下代码
Sub 新建工作表()Application.ScreenUpdating = FalseFor i = 1 To 31Sheets.Add(Sheets(i)).Name = iNextApplication.ScreenUpdating = TrueEnd Sub
点击绿色箭头箭头执行
这个要写VBA代码 就很快了