VBA批量建立新工作表

最新推荐文章于 2024-12-30 15:11:12 发布

God_6838

最新推荐文章于 2024-12-30 15:11:12 发布

阅读量2k

点赞数 1

分类专栏： VBA 文章标签： VBA 办公自动化

本文链接：https://blog.csdn.net/God_68/article/details/124561534

版权

VBA 专栏收录该内容

6 篇文章

订阅专栏

本文介绍了一种使用VBA编程的方法，通过自动化操作，根据学生表中的班级信息，为每个班级创建单独的工作表，提高工作效率。脚本从成绩表的第三行开始遍历，如果遇到新班级，则在所有工作表之后新建一个，并命名为该班级名称。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

目的：将如下成绩表根据班级分别创建工作表，表名以班级命名

代码实现：

Sub 建立新表()   '根据班级批量建立新表
Dim i As Long, sht As Worksheet
i = 3 '第一条记录是在第3行
Set sht = Worksheets("成绩表")
Do While sht.Cells(i, "B").Value <> ""
On Error Resume Next
If Worksheets(sht.Cells(i, "B").Value) Is Nothing Then  ' 判断是否已存在对应的班级工作表
Worksheets.Add after:=Worksheets(Worksheets.Count)  '在所有工作表后建立新的工作表
ActiveSheet.Name = sht.Cells(i, "B").Value
End If
i = i + 1
Loop
End Sub