要如何修改才能取消原先表格的筛选，重新生成筛选

再回首-沉默

Sub S筛选()
Dim sh As Worksheet
For Each sh In Sheets
    If sh.AutoFilterMode = False Then
        sh.Rows("4:4").AutoFilter
    End If
Next
End Sub




原先工作表有筛选2行，1行（使用了内容筛选）等等，如何修改才能使所有工作表都筛选第4行？上面这个vba只适用于还没进行筛选的工作表才能运行上去

ykcbf1100

改成这样。。。

ykcbf1100

附件供参考。。。