Sub g()
For Each wsh In Sheets
wsh.Select
wsh.UsedRange.AutoFilter field:=5, Criteria1:="< 0.05"
Next wsh
End Sub
该段VBA代码遍历工作簿中的所有工作表,对每个工作表的UsedRange使用AutoFilter方法,过滤出第五列中值小于0.05的行。
Sub g()
For Each wsh In Sheets
wsh.Select
wsh.UsedRange.AutoFilter field:=5, Criteria1:="< 0.05"
Next wsh
End Sub
3105
2247