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

结果：

VBA批量建立新工作表相关推荐

VBA实战技巧精粹004：在工作簿中添加新工作表
使用Worksheets集合或Sheets集合的Add方法可以实现在指定位置添加新工作表,并且添加后的新工作表自动为活动工作表. Sub 插入新工作表并改名() With Worksheets ...
VBA 批量打开workbook工作簿，汇总到同一workbook工作簿中
** VBA 批量打开workbook工作簿,汇总到同一workbook工作簿中 ** 前言:此VBA程序,通用! Sub 收集文件夹中文件路径() Dim f'1.批量打开文件,将文件路径记录到数组 ...
excel表格内容拆分_一键批量拆分Excel工作表【模板下载】
今年5月份我们在Excel表哥微信公众号平台首发了一系列工作表.工作簿合并的文章. 从合并相同内容的单元格到合并多个工作表直至批量合并多个Excel工作簿,所有的操作只需要一键! 专辑如下,也可以在表 ...
excel批量重命名工作表
注:本次批量命名工作表是从已建有的工作表里面对其重命名,并不是新建工作表并批量命名,后者有很多人已经提供各种帮助,在此介绍前者假设现有n个工作表如果一个一个对其重命名,实数太过麻烦此时你可以点击 ...
Excel·VBA按行拆分工作表
对应之前文章<Excel·VBA按列拆分工作表>,对Excel表格数据按照固定行数,将工作表拆分工作表按行拆分为工作表 Sub 工作表按行拆分为工作表()'当前工作表(worksheet ...
批量取消隐藏工作表 + 批量删除隐藏工作表(office2019)--2020-5-26更新（不写代码删除隐藏工作表，可使用文档检查器）
1. VBA小代码,批量取消隐藏工作表 Sub 批量取消隐藏工作表()Dim sht As Worksheet'定义变量For Each sht In Worksheets'循环工作簿里的每一个工作表 ...
vba工作表重命名_使用带有条件的VBA代码重命名工作表列表
vba工作表重命名 Renaming of worksheets can be done manually, but it will look like a massive task if there ...
sqlyog怎么查找表_VBA代码解决方案第58讲：在VBA中查找指定工作表的实用方法
大家好,我们今日继续讲解VBA代码解决方案的第58讲内容:在VBA中查找指定工作表的方法.在上一个例子中,我们通过一个自定义函数解决了删除工作表的方法.其实实现目的的方法有很多种,不必要必须有某种办法 ...
Excel实用技巧-如何批量提取excel工作表名称
Excel实用技巧-如何批量提取excel工作表名称 1. 打开Excel文件,点击"公式"栏,进而点击"定义管理器" 2. 在弹出的对话框中,点击新增按钮, ...

VBA批量建立新工作表

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

代码实现：

结果：

VBA批量建立新工作表相关推荐

最新文章

热门文章

VBA批量建立新工作表

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

代码实现：

结果：

VBA批量建立新工作表相关推荐

最新文章

热门文章

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