Sub CopyFilterResult()Worksheets("sheet2").Columns("A:H").ClearContentsWorksheets("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