自定义工作表名称判断存在时返回False的技术问题求助

嘿，我遇过一模一样的坑！你说的这个问题大概率是字符串匹配的大小写问题或者遍历/引用方式的小疏漏导致的，咱们一步步来解决：

先排查你现有函数的问题 #

你提到默认的「Sheet1」能返回True，但自定义命名的工作表不行，最常见的原因有两个：

1. 大小写敏感的字符串比较：VBA默认的字符串比较是区分大小写的，比如你自定义工作表叫「SalesData」，但函数里传的是「salesdata」，就会返回False；而「Sheet1」你输入的和默认名称完全一致，所以没问题。
2. 错误地用了Sheets而非Worksheets：Sheets集合包含所有工作表（包括图表工作表），而Worksheets只包含普通的单元格工作表，如果你的自定义表是图表工作表，用Worksheets去查找当然找不到，但这个概率相对较低。

给你两个靠谱的判断函数 #

方法1：用错误处理（高效简洁） #

这种方法直接尝试引用目标工作表，通过错误捕获判断是否存在，效率比遍历高：

Function WorksheetExists(targetName As String) As Boolean
    Dim ws As Worksheet
    ' 先去除目标名称的首尾空格，避免输入失误
    targetName = Trim(targetName)
    
    On Error Resume Next
    Set ws = ThisWorkbook.Worksheets(targetName)
    On Error GoTo 0
    
    WorksheetExists = Not (ws Is Nothing)
End Function

方法2：遍历工作表（直观易调试） #

如果想更直观地看到匹配过程，用遍历的方式，同时忽略大小写：

Function WorksheetExists(targetName As String) As Boolean
    Dim ws As Worksheet
    targetName = Trim(targetName)
    
    For Each ws In ThisWorkbook.Worksheets
        ' 用vbTextCompare忽略大小写比较
        If StrComp(ws.Name, targetName, vbTextCompare) = 0 Then
            WorksheetExists = True
            Exit Function ' 找到就退出循环，提升效率
        End If
    Next ws
    
    WorksheetExists = False
End Function

补充实现「不存在则让用户选择」的功能 #

结合上面的函数，你可以这样写主逻辑：

Sub CheckAndSelectWorksheet()
    Dim targetName As String
    Dim selectedWs As Worksheet
    
    targetName = InputBox("请输入要验证的工作表名称：")
    If targetName = "" Then Exit Sub ' 用户取消输入
    
    If Not WorksheetExists(targetName) Then
        MsgBox "工作表「" & targetName & "」不存在，请从列表中选择一个工作表。"
        ' 让用户直接选择工作表（Type:=8表示选择区域/工作表）
        Set selectedWs = Application.InputBox("请选择一个工作表：", Type:=8).Parent
        MsgBox "你选择了工作表：" & selectedWs.Name
        ' 这里可以继续处理选中的工作表
    Else
        MsgBox "工作表「" & targetName & "」存在！"
    End If
End Sub

额外提示 #

• 如果你的工作表名称里有特殊字符（比如括号、空格），只要输入准确（或者用Trim处理首尾空格），上面的函数都能正确匹配。
• 如果你是在其他工作簿中查找，把ThisWorkbook换成具体的工作簿对象，比如Workbooks("你的工作簿名.xlsx")。

内容的提问来源于stack exchange，提问作者Bezurn