使用来自 InputBox 的多个输入进行过滤答案

【问题标题】：Filtering With Multiple Inputs from InputBox使用来自 InputBox 的多个输入进行过滤
【发布时间】：2015-06-18 16:51:23
【问题描述】：

我正在尝试过滤具有多个输入到 InputBox 的行（仅保留输入的值）。输入值后，我想创建一个数组来自动过滤我的数据。

到目前为止，我所拥有的如下。

我被困在将输入拆分成一个数组？

Dim ticker As Variant
ticker = InputBox("Enter Stock Tickers Separated by Commas")

Dim MyArray As String
MyArray = Split(ticker, ",")


Range(Range("A2"), Range("A2").SpecialCells(xlLastCell)).Select
Selection.AutoFilter field:=6, Criteria:=MyArray

【问题讨论】：

试试Dim MyArray As Variant
这似乎有助于拆分功能，但现在它停止在自动过滤器上。有什么建议吗？
哎呀，我才意识到我在 Criteria 之后遗漏了 1。最终代码： Dim ticker As Variant ticker = InputBox("输入用逗号分隔的股票代码") Dim MyArray As Variant MyArray = Split(ticker, ",") Range(Range("A2"), Range("A2"). SpecialCells(xlLastCell)).Select Selection.AutoFilter field:=6, Criteria1:=Array(MyArray), Operator:=xlFilterValues

标签： arrays vba excel inputbox autofilter

【解决方案1】：

最终代码：

Dim ticker As Variant
ticker = InputBox("Enter Stock Tickers Separated by Commas")

Dim MyArray As Variant
MyArray = Split(ticker, ",")


Range(Range("A2"), Range("A2").SpecialCells(xlLastCell)).Select
Selection.AutoFilter field:=6, Criteria1:=Array(MyArray), Operator:=xlFilterValues

【讨论】：