求助：如何实现基于输入框LIKE匹配的VBA多工作表选择宏？

问题原因 #

你硬编码的有效代码里用了带通配符的匹配规则"*20001*"，但输入框获取的Bunumber只是纯数字字符串，缺少通配符，导致LIKE无法匹配目标工作表名称。

修正方案 #

给输入变量添加通配符，同时增加输入验证确保用户输入有效的5位数字，避免无效操作。

代码实现

如果需要匹配包含该5位数字的工作表：

Public Sub SixPayTest()
    Dim Bunumber As String
    Dim ws As Worksheet
    
    ' 循环获取并验证输入
    Do
        Bunumber = Application.InputBox("Enter 5-digit BU #", Type:=2)
        If Bunumber = "" Then Exit Sub ' 用户取消输入时退出
        If Len(Bunumber) <> 5 Or Not IsNumeric(Bunumber) Then
            MsgBox "请输入有效的5位数字！", vbExclamation
        End If
    Loop Until Len(Bunumber) = 5 And IsNumeric(Bunumber)
    
    ' 添加通配符，匹配包含该数字的工作表名称
    Bunumber = "*" & Bunumber & "*"
    
    ' 选择符合条件的工作表
    For Each ws In ActiveWorkbook.Sheets
        If ws.Name Like Bunumber Then ws.Select (False)
    Next ws
End Sub

如果工作表名称以5位数字开头（符合你描述的场景），则把通配符只加在数字后面，匹配更精准：

' 替换通配符行
Bunumber = Bunumber & "*"

关键说明 #

• Type:=2指定输入框仅接受文本类型，避免数字格式转换问题
• 循环验证确保用户输入的是5位数字，提升宏的稳定性
• 通配符*代表任意长度的任意字符，添加后匹配规则与硬编码版本一致，才能让LIKE正常工作

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