如何在VBA筛选条件中包含右括号)以精准匹配包装规格？

你的问题核心在于筛选条件与目标字段格式不匹配：目标字段是(Pack of 1)这类带完整括号的内容，但你写的"Pack of 1)"缺少左括号(，自然匹配不到结果。以下是针对性的解决方法：

正确筛选写法 #

根据实际需求选择对应写法：

1. 精确匹配(Pack of 1)
   如果字段内容就是完整的(Pack of 1)，直接写全带括号的条件：

ApdTbl.Range.AutoFilter Field:=5, Criteria1:="(Pack of 1)"

2. 字段包含(Pack of 1)（前后有其他文字）
   如果目标短语是字段内容的一部分，用通配符*包裹，确保匹配到所有包含该短语的内容：

ApdTbl.Range.AutoFilter Field:=5, Criteria1:="*(Pack of 1)*"

扩展：批量循环筛选多种包装规格 #

如果需要从Pack List Table中读取所有包装规格批量筛选，可修改代码如下：

' 先重置筛选，避免历史筛选影响
ApdTbl.AutoFilter.ShowAllData

Dim packItem As Range
For Each packItem In PackListTbl.ListColumns(1).DataBodyRange
    ' 动态生成带完整括号的筛选条件
    Dim filterCriteria As String
    filterCriteria = "*(" & packItem.Value & ")*"
    
    ' 执行筛选
    ApdTbl.Range.AutoFilter Field:=5, Criteria1:=filterCriteria
    
    ' 这里添加筛选后的后续操作，比如复制数据到目标表
    If Not ApdTbl.DataBodyRange Is Nothing Then
        ApdTbl.DataBodyRange.SpecialCells(xlCellTypeVisible).Copy _
            Destination:=AmzPackDtaWs.Cells(AmzPackDtaWs.Rows.Count, 1).End(xlUp).Offset(1)
    End If
Next packItem

注意事项 #

• 确保字段中的括号是英文半角()，如果是全角（），需同步修改筛选条件里的括号类型；
• 每次筛选前建议重置AutoFilter，避免残留筛选规则干扰结果。

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