Vba：如何在自动过滤器中使用“不同于”

您可以在 VBA 的自动筛选器中使用<>符号来表示“不等于”。

以下是实践中执行此操作的常见方法：

 SubFilterNotEqualTo ()

Range(" A1:C11 ").AutoFilter Field:=2, Criteria1:=" <>Center "

End Sub

此特定宏将过滤A1:C11范围内第二列值不等于“Center”的所有行。

以下示例展示了如何在实践中使用此语法。

示例：在 VBA 的自动筛选中使用“不同于”

假设我们在 Excel 中有以下数据集，其中包含有关各种篮球运动员的信息：

假设我们要过滤数据集以仅显示“位置”列中的值不等于“中心”的行。

我们可以创建以下宏来执行此操作：

 SubFilterNotEqualTo ()

Range(" A1:C11 ").AutoFilter Field:=2, Criteria1:=" <>Center "

End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意，数据集已被过滤为仅显示“位置”列中的值不等于“中心”的行。

请注意，您还可以筛选“位置”列值不等于一个以上值的行。

例如，您可以创建以下宏来过滤数据集，以仅显示“位置”列中的值不等于“Center”或“Guard”的行：

 SubFilterNotEqualTo ()

Range(" A1:C11 ").AutoFilter Field:=2, Criteria1:=" <>Center ", Criteria2:=" <>Guard "

End Sub

当我们运行这个宏时，我们会收到以下输出：

我注意到数据集被过滤为仅显示“位置”列中的值不等于“Center”或“Guard”的行：

注意：您可以在此处找到 VBA AutoFilter方法的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何使用具有多个条件的自动筛选器
VBA：如何过滤数据透视表
VBA：如何清除过滤器