查找 1月 这个 工作表是否在工作薄里Sub 查找表名()For i = 1 To Sheets.CountIf Sheets(i).Name = "1月" ThenMsgBox "存在"Exit ForElseEnd IfNextEnd Sub