admin管理员组文章数量:1566661
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://www.elefans.com/dongtai/1719553245a784653.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论