Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/26.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 如何在VBA中使用按多个数据(列表)筛选_Excel_Vba - Fatal编程技术网

Excel 如何在VBA中使用按多个数据(列表)筛选

Excel 如何在VBA中使用按多个数据(列表)筛选,excel,vba,Excel,Vba,我想在Excel VBA中使用“按多个数据筛选”。 第一次,, 我使用了“for”和“find”方法,但处理起来太慢了 对于Python,请使用“熊猫模块”和数据框架,如下面的示例所示 filter=dataframe['headername].isin([Listdata1、Listdata2、Listdata3..) 但我在VBA中找不到类似的方法 以下是我的背景资料: 我已删除excel vba标记。该标记的描述清楚地显示(大写)标记正在等待删除且不应使用,并解释了应使用的内容。请在使用标

我想在Excel VBA中使用“按多个数据筛选”。 第一次,, 我使用了“for”和“find”方法,但处理起来太慢了

对于Python,请使用“熊猫模块”和数据框架,如下面的示例所示 filter=dataframe['headername].isin([Listdata1、Listdata2、Listdata3..)

但我在VBA中找不到类似的方法

以下是我的背景资料:


我已删除excel vba标记。该标记的描述清楚地显示(大写)标记正在等待删除且不应使用,并解释了应使用的内容。请在使用标记之前阅读标记说明,以确保它们适合您的问题。谢谢。@KenWhite-我一直在想为什么access vba、word vba、powerpoint vba标记说明从未收到该“免责声明”?@user10852207:不知道。不过,您可以在询问,看看是否有人这样做。在通知不应使用excel vba标记后,excel vba标记的描述中还有一个指向的链接。非常感谢!这是我想要的,我还有一个问题,我可以过滤反向选择(反转)吗通过修改运算符?@HeartAimDJ-不。排除多个条件要复杂得多-那太糟糕了,谢谢
Sub MultiSelectFilter()

    Dim arr As Variant

    ' Range containing values to be shown
    arr = Range("C1:C3")

    ' Range to be filtered
    Range("A1").AutoFilter
    Range("A1").AutoFilter Field:=1, Criteria1:=Application.Transpose(arr), Operator:=xlFilterValues
End Sub