顾乔芝士网

有的VBA过程需要把数据写入到指定的Sheet中，这时候就要先判断这个指定的Sheet是否存在，可以使用如下函数SheetExist：

Function SheetExist(SheetName As String) As Boolean
Rem 功能：指定工作表名，测试该工作表是否存在
Rem 参数说明：
Rem     SheetName：要检测是否存在的Sheet名
On Error Resume Next
SheetExist = IIf(Sheets(SheetName) Is Nothing, False, True)
End Function

这个函数核心代码只有第5、6这两行。原理很简单：直接将指定的工作表名当成一个Sheet，然后判断这个sheet是否是Nothing，如果是，说明工作表不存在，返回False，否则，说明工作表是存在的。

使用举例：

Sub 生成基本格式()
Dim SN As String
SN = "基本格式"
If Not SheetExist(SN) Then
    Worksheets.Add.Name = SN
End If
Range("A1:D1").Value = Array("年", "月", "销售量", "销售额")
End Sub

该过程首先用SheetExist函数判断是否存在“基本格式”工作表，如果不存在，就新建并重命名，然后在新工作表的A1:D1区域填充指定的内容。