使用数组的通配符自动筛选条件

时间:2017-06-18 01:00:40

标签: excel-vba vba excel

我已经阅读了各种各样的线程,但似乎无法让我的代码使用它。您似乎无法在数组中使用超过2个通配符条件作为自动筛选条件。不知道为什么会这样,但我的代码目前是这样的:

Sub Strip_Description()
Dim rng As Range
Dim MyArray(1 To 258) As String

MyArray(1) = "*Ecoss*"
.
.
MyArray(258) = "*some wildcard value*"

    With ActiveSheet
    .Columns("D").AutoFilter Field:=1, Criteria1:=MyArray, Operator:=xlFilterValues
    Set rng = .AutoFilter.Range
    End With
    If rng.Columns("D").SpecialCells(xlCellTypeVisible).Count - 1 > 0 Then
    Application.DisplayAlerts = False
    rng.Offset(1, 0).SpecialCells(xlCellTypeVisible).Delete
    Application.DisplayAlerts = True
    End If
    rng.AutoFilter
    End Sub

我在数组值中有大量的通配符标准。关于如何让这些工作的任何想法?

0 个答案:

没有答案