如何将含特定字符串的工作表名称添加到用户窗体组合框

我帮你排查下代码里的问题，其实核心错误很容易修正——你给组合框的AddItem方法传错参数啦！

先看你的问题场景：

我尝试编写VBA代码遍历当前Excel文件中的所有工作表，若工作表名称包含“Pack”字样，则将其添加到用户窗体的PackComboBox中。代码运行无报错，但组合框显示为空。

你的原代码：

Private Sub UserForm_Initialize() 
    Dim wS As Worksheet 
    PackComboBox.Font.Size = 12 
    For Each wS In Sheets 
        If LCase(wS.Name) Like "*Pack*" Then 
            With PackComboBox 
                .AddItem wS 
            End With 
        Else 
        End If 
    Next wS 
End Sub 

问题分析 #

1. AddItem参数错误：AddItem方法需要传入的是可见的文本字符串，但你直接传了工作表对象wS，这相当于把整个工作表对象塞进去了，组合框没法解析成能显示的内容，所以看起来是空的。
2. 大小写匹配逻辑矛盾：你把工作表名称转成了小写LCase(wS.Name)，但匹配的是*Pack*（首字母大写），这样只有名称里是小写pack的工作表才会被命中，很多符合条件的表会被漏掉。
3. 范围歧义：直接用Sheets默认指向当前激活的工作簿，换成ThisWorkbook.Sheets能明确限定为当前代码所在的工作簿，避免意外引用其他打开的文件。

修正后的代码 #

Private Sub UserForm_Initialize() 
    Dim wS As Worksheet 
    PackComboBox.Font.Size = 12 
    ' 先清空组合框，防止重复加载旧内容
    PackComboBox.Clear
    
    For Each wS In ThisWorkbook.Sheets 
        ' 统一转小写，实现不区分大小写的匹配
        If LCase(wS.Name) Like "*pack*" Then 
            ' 传入工作表名称字符串，这才是组合框能显示的内容
            PackComboBox.AddItem wS.Name 
        End If 
    Next wS 
End Sub 

关键修改说明 #

• 把.AddItem wS改成.AddItem wS.Name：直接传入工作表的名称文本，组合框就能正确渲染出内容了。
• 匹配字符串改为*pack*：和LCase(wS.Name)保持大小写统一，不管工作表名是Pack、pack还是PACK都能被匹配到。
• 新增PackComboBox.Clear：每次初始化窗体时清空旧内容，避免重复添加相同项目。
• 使用ThisWorkbook.Sheets：明确遍历当前工作簿的工作表，消除范围歧义。

这样修改后，你的组合框就能正确加载所有名称包含Pack（不区分大小写）的工作表名称啦！

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