下面的VBA代碼可以判斷當(dāng)前Excel工作簿中的某個(gè)工作表是否存在，如果指定的工作表不存在，則以指定的工作表名新建一個(gè)工作表，如果指定的工作表已存在，則給出一個(gè)提示，并激活該工作表。下例中指定的工作表標(biāo)簽為“一月”，可根據(jù)實(shí)際進(jìn)行修改。

Sub IsSheetExist()
Dim ws As Worksheet
Dim sName As String
sName = "一月" '指定工作表
On Error Resume Next
Set ws = Sheets(sName)
If ws Is Nothing Then '指定的工作表不存在
Sheets.Add.Name = sName
Else '指定的工作表已存在
MsgBox "“" & sName & "”工作表已存在。"
ws.Activate
End If
End Sub