EXCEL-VBA：检测Sheet是否存在

Sub test()
    MsgBox CheckIsExistsSheetName("Sheet1")
End Sub

Function CheckIsExistsSheetName(ByVal SheetName) As Boolean
    CheckIsExistsSheetName = False
    Dim sheet As Worksheet
    For Each sheet In ThisWorkbook.Sheets
        If sheet.Name = SheetName Then
            CheckIsExistsSheetName = True
            Exit Function
        End If
    Next
End Function

 

来源：CSDN

作者：jyh_jack

链接：https://blog.csdn.net/jyh_jack/article/details/103456259