""On Error Resume NextIf Worksheets(sht.Cells(i, "B").Value) Is No_vba 将工作表添加到后面怎么弄">

从前慢现在也慢

这个屌丝很懒，什么也没留下！

热门标签

热门文章

当前位置: article > 正文

VBA批量建立新工作表_vba 将工作表添加到后面怎么弄

作者：从前慢现在也慢 | 2024-05-20 07:54:51

赞

踩

vba 将工作表添加到后面怎么弄

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

代码实现：


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

结果：

声明：本文内容由网友自发贡献，不代表【wpsshop博客】立场，版权归原作者所有，本站不承担相应法律责任。如您发现有侵权的内容，请联系我们。转载请注明出处：https://www.wpsshop.cn/w/从前慢现在也慢/article/detail/596814

推荐阅读

相关标签

Copyright © 2003-2013 www.wpsshop.cn 版权所有，并保留所有权利。

闽ICP备14008679号