Sub CopyFilterResult()
Worksheets("sheet2").Columns("A:H").ClearContents
Worksheets("sheet1").Select
With Worksheets("Sheet1")
If .FilterMode Then '如果处于筛选模式
Range("A:H").Copy
End If
End With
Worksheets("Sheet2").Select
Range("a1").Select
ActiveSheet.Paste
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024