复制自动筛选后的数据区域

将 sheet1表中筛选的区域复制到sheet2 表中.

Sub copyFilterResult(ByVal sheet1Obj, ByVal sheet2Obj) 'sheet1 filter result copy to sheet2
    With Worksheets(sheet1Obj)
        If .FilterMode Then
            .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Worksheets(sheet2Obj).[A1]
        End If
    End With
End Sub