从自动筛选中排除excel筛选

Question

此代码运行良好：

Sheet2.UsedRange.AutoFilter 28, Bad_list_a(), xlFilterValues

然而，我想"<gt">从自动筛选中排除Bad_list_a((，有什么建议吗？

Answer 1

这是从自动筛选中排除数组的另一种方法。

title是一个数组，其中包含要从自动筛选中排除的值。在您的情况下为Bad_list_a((。此代码将列(要筛选的列(复制到工作表1中，删除重复项。

然后删除所有与标题数组匹配的单元格。最后，它将使用您需要的剩余值自动筛选列。

titles = Array("string1", "string2", "string3", "string4", "string5", "string6", "string7", "string8", "string9")
.Columns(columnToFilter).Copy
sheet1.Range("J1").PasteSpecial xlPasteValues
sheet1.Range("J:J").RemoveDuplicates 1, xlYes

Set rngTitle = macroSheet.Range("I:I")
rngTitle.Value = Application.Transpose(titles)

For Z = 1 To sheet1.Cells(Rows.Count, 10).End(xlUp).Row
If Application.WorksheetFunction.CountIf(sheet1.Range("I:I"), sheet1.Cells(Z, 10).Value) > 0 Then
sheet1.Cells(Z, 10).Delete
Z = Z - 1
End If
Next Z

lastrowMacro = macroSheet.Cells(Rows.Count, 10).End(xlUp).Row
Set rngcrit = macroSheet.Range("J1:J" & lastrowMacro).SpecialCells(xlCellTypeVisible)
vCrit = rngcrit.Value

''Apply filter for error values of title
.Range("1:1").AutoFilter Field:=columnToFilter, Criteria1:=Application.Transpose(vCrit), Operator:=xlFilterValues