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

最新推荐文章于 2021-11-15 12:57:43 发布

原创最新推荐文章于 2021-11-15 12:57:43 发布 · 2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#filter

DotNet_C# 专栏收录该内容

97 篇文章

订阅专栏

将 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