如何解决从自动过滤器中排除Excel过滤器
此代码可以正常工作:
Sheet2.UsedRange.AutoFilter 28,Bad_list_a(),xlFilterValues
但是我想从自动筛选器中“ ” 排除 Bad_list_a(),有什么建议吗?
解决方法
这是从自动过滤器中排除数组的另一种方法。
titles是一个数组,其中包含要从自动过滤器中排除的值。在您的情况下Bad_list_a()。 此代码将(要过滤的)列复制到sheet1,删除重复项。
然后删除与标题数组匹配的所有单元格。最后,它将使用所需的剩余值自动过滤该列。
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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。