admin管理员组文章数量:1530842
2024年6月28日发(作者：)
001.批量创建工作表
2020
年
4
月
17
日
4:04
Sub NewSht()
Dim shtActive As Worksheet, sht As Worksheet
Dim i As Long, strShtName As String
On Error Resume Next '当代码出错时继续运行
Set shtActive = ActiveSheet
For i = 2 To (, 1).End(xlUp).Row
'单元格A1是标题，跳过，从第2行开始遍历工作表名称
strShtName = (i, 1).Value
'工作表名强制转换为字符串类型
Set sht = Sheets(strShtName)
'当工作簿不存在工作表Sheets(strShtName)时，这句代码会出错，然后……
If Err Then
'如果代码出错，说明不存在工作表Sheets(t)，则新建工作表
, Sheets()
'新建一个工作表，位置放在所有已存在工作表的后面
= strShtName
'新建的工作表必然是活动工作表，为之命名
'清除错误状态
End If
Next
te
'重新激活原工作表
End Sub
分区 第
1
季 的第
1
页
002.删除全部工作表
2020年11月25日
22:13
Sub DelShet() '删除所有工作表
Dim sht As Worksheet
Updating = False '关屏幕刷新
yAlerts = False '关警告信息
On Error Resume Next
For Each sht In Worksheets
'遍历工作表删除
Next
Updating = True
yAlerts = True
End Sub
分区 第1季 的第2 页
版权声明：本文标题：常用Excel表格VBA代码32条 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dongtai/1719553245a784653.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论