- excel表格制作:写几段代码,将总表按任意列拆分为多个工作簿
- excel表格制作教程:制作Excel斜线表头
- excel函数公式大全:用VBA判断指定名称的工作表是否存在
- excel表格制作教程:Excel数据透视图
解决本例的问题可以使用下面的过程:
Sub 判断工作表是否存在()
Dim i As Integer
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "1月" Then
Worksheets("1月").Move before:=Worksheets(1)
Exit Sub
'找到名为“1月”的工作表后,中止执行过程
End If
Next
Worksheets.Add before:=Worksheets(1)
ActiveSheet.Name = "1月"
End Sub
上一篇:表格制作excel教程:自定义格式会了吗?常用套路请拿好 下一篇:excel表格制作教程:将指定目录中所有Excel文件中的工作表合并到一个文件中
郑重声明:本文版权归原作者所有,转载文章仅为传播更多信息之目的,如作者信息标记有误,请第一时间联系我们修改或删除,多谢。