首页 > Excel专区 > Excel函数 >

excel VBA判断工作表是否存在&不存在时创建

Excel函数 2021-11-25 12:06:22

Function 表存在(s)
For Each i In Sheets
If i.Name = s & "" Then 表存在 = 1 '连接空白是避免表格名为数值时格式不同
' Debug.Print i.Name = s
Next
End Function

Function 建表(s)
For Each i In Sheets
If i.Name = s Then Exit Function
Next
Sheets.Add(, Sheets(Sheets.Count)).Name = s
' Sheets.Add.Name = s'创建在前面
' Sheets.Add 方法 (Excel):http://www.office9.cn/upload/20211125/404.html />End Function


标签: excelVBA判断作表是否存在amp不存

office教程网 Copyright © 2016-2020 https://www.office9.cn. Some Rights Reserved.