excel vba如果找不到Sheets页就创建并跳转

excel vba如果找不到Sheets页就创建并跳转

使用如下代码将实现，输入一个名称，如果存在名为该输入值的sheet则跳转，不存在则创立后跳转。

Sub SheetSelect()
On Error GoTo 1
Dim mySheet As String
mySheet = Application.InputBox("输入要寻找的sheet", Type:=1)
Worksheets(mySheet).Select
Exit Sub
1:
  Sheets.Add
    Worksheets(Worksheets.Count).Name = mySheet
Worksheets(mySheet).Select
End Sub

Sub test()
Dim sh As Worksheet, sheetExists As Boolean
    '是否已经存在
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name = "aa" Then
            sheetExists = True
            Exit For
        End If
    Next
    If sheetExists Then    '如果存在
        Sheets("aa").Activate
    Else
        Sheets("bb").Copy , Sheets("bb")
        ActiveSheet.Name = "aa"
    End If
End Sub
祝你成功！

Sub aaAdd()
    Dim i As Integer
    For i = 1 To Sheets.Count
        If Sheets(i).Name = "aa" Then
            MsgBox ("aa has been here")
            Exit Sub
        End If
    Next i
    Sheets("bb").Copy After:=Sheets("bb")
    ActiveSheet.Name = "aa"
End Sub

Sub yyTEST()
Dim yoSHT As Worksheet, ysNME As String
' [yoSHT]: 设置为[工作表]对象变量。
' [ysNME]: 设置为[工作表名称]。
Application.ScreenUpdating = False
On Error Resume Next
ysNME = "aa"
Set yoSHT = ActiveWorkbook.Sheets(ysNME)
If yoSHT Is Nothing Then
Sheets("bb").Copy after:=Sheets("bb")
ActiveSheet.Name = "aa"
Else
MsgBox ysNME & " 工作表已存在！"
End If
End Sub
(其他三位的答案均有异曲同工之效)

Sub tx()
Dim x As Integer
For x = 1 To Sheets.Count
If Sheets(x).Name = "aa" Then
MsgBox ("aa表已存在")
End
End If
Next x
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
Sheets(Sheets.Count).Name = "aa"
End Sub追问谢谢，我光想着怎么判断一个sheet是否存在了，没想到可以全部筛查一遍……新思路，感谢。同时期待其他答案，是否可以直接判断某sheet是否存在，比如Is Nothing之类的。追答
可以用错误来判断Sub tx1()
On Error Resume Next
Sheets("aa").Select
  If Err <> Empty Then
  Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
Sheets(Sheets.Count).Name = "aa"
Else
   MsgBox ("aa表已存在")
  End If
On Error GoTo 0
End Sub