我有一个很日常的工作,经常需要对一个表格进行处理,筛选掉一些不需要的内容,要筛掉的内容比较多,觉得很烦,所以试着写了一下代码,发现数组里放一个参数的话,运行结果没问题,放多个的话运行结果并没有进行筛选,不知道问题出在哪里,有没有懂这个的专家指导下。
Sub filterColumn()
Dim ws As Worksheet
Dim rng As Range
Dim filterValues As Variant
' 设置工作表和数据范围
Set ws = ThisWorkbook.Worksheets("xx表")
Set rng = ws.UsedRange
' 设置筛选值,可根据实际需要修改
filterValues = Array("内容1", "内容2")
' 清除之前的筛选
If ws.AutoFilterMode Then ws.AutoFilterMode = False
' 设置新的筛选
rng.AutoFilter Field:=8, Criteria1:="<>" & Join(filterValues, "|"), Operator:=xlAnd
' 选择筛选后的可见单元格,并将它们复制到新的工作表中
ws.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy
' 在新的工作表中粘贴可见单元格的内容
With ActiveSheet.Range("A1")
.PasteSpecial xlPasteValues
Application.CutCopyMode = False ' 清除剪贴板
End With
End Sub
--
FROM 114.247.186.*