ActiveX文本框多值输入下AutoFilter筛选失效问题求助

核心问题 #

原代码中crit_Filter为字符串类型，当文本框粘贴多单元格内容时，内容是以换行符分隔的字符串，但AutoFilter的xlFilterValues操作符要求Criteria1是字符串数组，而非单个带换行的字符串，这就导致了筛选无结果的情况。

修改步骤 #

1. 修改公共变量类型
   将公共变量crit_Filter从String改为Variant，用于存储拆分后的筛选条件数组：

Public crit_Filter As Variant

2. 更新文本框按键事件代码
   在TextBox3_KeyUp中，把文本框内容按换行符拆分，过滤空行后生成筛选数组：

Private Sub TextBox3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim tempArr() As String
    Dim i As Integer, validCount As Integer
    
    If KeyCode = Asc(vbCr) Then
        If Me.TextBox3.Value <> "" Then
            ' 统一换行符格式，拆分内容
            tempArr = Split(Replace(Me.TextBox3.Value, vbCrLf, vbCr), vbCr)
            ' 过滤空元素
            validCount = 0
            For i = LBound(tempArr) To UBound(tempArr)
                If Trim(tempArr(i)) <> "" Then
                    tempArr(validCount) = Trim(tempArr(i))
                    validCount = validCount + 1
                End If
            Next i
            ' 生成有效筛选数组
            If validCount > 0 Then
                ReDim Preserve tempArr(0 To validCount - 1)
                crit_Filter = tempArr
                Filter_WoNumber
            End If
        End If
    End If
End Sub

3. 调整筛选子程序
   在Filter_WoNumber中直接使用数组作为筛选条件，同时优化筛选重置逻辑：

Sub Filter_WoNumber()
    Dim ws As Worksheet, lRow As Long, lcol_n As Long, lastcol As String, rng As Range
    
    Set ws = ActiveSheet

    lRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    lcol_n = ws.Cells(2, ws.Columns.Count).End(xlToLeft).Column
    lastcol = Split(Cells(1, lcol_n).Address(True, False), "$")(0)

    Set rng = ws.Range("A2:" & lastcol & lRow)

    ' 重置现有筛选
    If ws.AutoFilterMode Then ws.AutoFilter.ShowAllData
    If Not ws.AutoFilterMode Then rng.AutoFilter
    
    ' 应用多值筛选
    If IsArray(crit_Filter) Then
        rng.AutoFilter field:=1, Criteria1:=crit_Filter, Operator:=xlFilterValues
    End If
End Sub

关键说明 #

• 先替换vbCrLf为vbCr，确保所有换行符格式统一，避免拆分遗漏
• 过滤空元素是为了防止粘贴操作产生的空行导致筛选异常
• 通过IsArray判断变量类型，确保只有数组时才执行多值筛选逻辑

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