Excel 尝试将变量用于自动筛选中的条件；“不相等”<&燃气轮机；而且不能让它工作

我使用Excel VBA使用“not equals”表达式筛选列表。如果我使用

Criteria1:=“Bob”

，代码运行得很好，但是如果我将“Bob”更改为变量，代码就不会运行

这项工作：

ActiveSheet.ListObjects("Rpt_AM_04_Sales_ShipTo").Range.AutoFilter Field:=4, _
    Criteria1:="<>Bob", Operator:=xlFilterValues

语法错误 由于指定标准的语法不正确，代码不起作用。试试这个：

更改此项：

Criteria1:<>Test_Criteria

Criteria1：测试标准

为此：

Criteria1:"<>" & Test_Criteria

Criteria1:：&Test\u标准

完整代码：

Dim Test_Criteria As String
Test_Criteria = "Bob"
ActiveSheet.ListObjects("Rpt_AM_04_Sales_ShipTo").Range.AutoFilter Field:=4, _
     Criteria1:="<>" & Test_Criteria, Operator:=xlFilterValues

Dim测试\u标准作为字符串
测试标准=“鲍勃”
ActiveSheet.ListObjects（“Rpt_AM_04_Sales_ShipTo”）.Range.AutoFilter字段：=4_
准则1:=“”&Test_准则，运算符：=xlFilterValues

我希望这有帮助。

语法不正确 由于指定标准的语法不正确，代码不起作用。试试这个：

更改此项：

Criteria1:<>Test_Criteria

Criteria1：测试标准

为此：

Criteria1:"<>" & Test_Criteria

Criteria1:：&Test\u标准

完整代码：

Dim Test_Criteria As String
Test_Criteria = "Bob"
ActiveSheet.ListObjects("Rpt_AM_04_Sales_ShipTo").Range.AutoFilter Field:=4, _
     Criteria1:="<>" & Test_Criteria, Operator:=xlFilterValues

Dim测试\u标准作为字符串
测试标准=“鲍勃”
ActiveSheet.ListObjects（“Rpt_AM_04_Sales_ShipTo”）.Range.AutoFilter字段：=4_
准则1:=“”&Test_准则，运算符：=xlFilterValues

---

我希望这能有所帮助。

“&Test\u Criteria

”&Test\u Criteria。我使用了您的更改：ActiveSheet.ListObjects（“Rpt\u AM\u 04\u Sales\u ShipTo”）。Range.AutoFilter字段：=4，\uCriteria1:&Test\u Criteria，运算符：=xlFilterValues但我现在得到一个编译错误：语法错误还有其他建议吗？@walterpayton34在测试代码之后，似乎有一些特殊字符导致了错误。请尝试重新复制此代码，并查看它是否修复了错误。根据您的建议，我将此：Criteria1:“”&Test\u条件更改为：Criteria1:=“”&Test\u条件。这解决了问题，效果很好。非常感谢你的帮助！我使用了您的更改：ActiveSheet.ListObjects（“Rpt\u AM\u 04\u Sales\u ShipTo”）.Range.AutoFilter字段：=4，\uCriteria1:：&Test\u Criteria，Operator:=xlFilterValues，但现在我得到了一个编译错误：语法错误还有其他建议吗？@walterpayton34在测试代码之后，似乎有一些特殊字符导致了错误。请尝试重新复制此代码，并查看它是否修复了错误。根据您的建议，我将此：Criteria1:“”&Test\u条件更改为：Criteria1:=“”&Test\u条件。这解决了问题，效果很好。非常感谢你的帮助！