快速新建工作表

2025-05-14 22:27:32

1、在A1单元格输入需要新建的工作表数量

2、右键点击当前工作表名称-查看代码-插入-模块

3、输入代码：Sub 新建工作表()a = Range("a1")For i = 1 To aApplication.Sheets.Add.Name = iNextEnd Sub

4、点击运行，就可以快速新建工作表

声明：本网站引用、摘录或转载内容仅供网站访问者交流或参考，不代表本站立场，如存在版权或非法内容，请联系站长删除，联系邮箱：site.kefu@qq.com。