Excel VBA代码过滤多个值排除空白

我正在尝试创build一个filter，将过滤dynamic数组收集的值。 下面的代码适用于这个，但是它也包括过滤时的空白值。 如果我添加第二个cirteria，这似乎也不工作。 任何帮助，将不胜感激。

Sub AppToServerFilter() Dim Apps() As String, size As Integer, i As Integer 'creates an array and fills it with values in the checksheet With Sheets("CheckSheet") Sheets("CheckSheet").Activate size = WorksheetFunction.CountA(Worksheets("CheckSheet").Columns(1)) ReDim Apps(size) For i = 1 To size Apps(i) = Cells(i, 1).Value Next i End With 'Commented out the array print 'For i = LBound(Apps) To UBound(Apps) 'txt = txt & Apps(i) & vbCrLf 'Next i 'MsgBox txt 'filters for all values in the array created above Worksheets("App-to-Server").Select 'Range("A6").AutoFilter 'Range("A6").AutoFilter Field:=8, Criteria1:=Apps(), Operator:=xlFilterValues ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=8, Criteria1:=Apps(), Operator:=xlFilterValues End Sub 

Answer 1

Apps（）是一个基于零的数组。 进行以下更改：

 ReDim Apps(size - 1) For i = 1 To size Apps(i - 1) = Cells(i, 1).Value Next i