我已经阅读了各种各样的线程,但似乎无法让我的代码使用它。您似乎无法在数组中使用超过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
我在数组值中有大量的通配符标准。关于如何让这些工作的任何想法?