[已解决]请教判断、新加工作表

beigang

问题:首先判断工作表(sheets("A"))是否存在，如果不存在就在工作簿的最后添加工作表(sheets("A"))，求VBA代码。谢谢

最佳答案

月排行榜 / 总排行榜

lisachen

2012-4-6 09:19

1. Sub test()
   
2.     Dim sh As Worksheet
   
3.     For Each sh In Worksheets
   
4.     Debug.Print sh.Name
   
5.         If sh.Name = "sheets(""A"")" Then Exit Sub
   
6.     Next
   
7.     Sheets.Add after:=Sheets(Sheets.Count)
   
8.     ActiveSheet.Name = "sheets(""A"")"
   
9. End Sub
   

复制代码

跳转到最佳答案楼层

lisachen

1. Sub test()
   
2.     Dim sh As Worksheet
   
3.     For Each sh In Worksheets
   
4.     Debug.Print sh.Name
   
5.         If sh.Name = "sheets(""A"")" Then Exit Sub
   
6.     Next
   
7.     Sheets.Add after:=Sheets(Sheets.Count)
   
8.     ActiveSheet.Name = "sheets(""A"")"
   
9. End Sub
   

复制代码

beigang

lisachen 发表于 2012-4-6 09:19

谢谢版主!有了代码，我自己再慢慢消化。