VBA复制粘贴自动筛选后的内容

最新推荐文章于 2025-02-10 18:00:45 发布

Gordennizaicunzai

最新推荐文章于 2025-02-10 18:00:45 发布

阅读量1.9w

点赞数 6

分类专栏： VBA 文章标签：复制粘贴自动筛选后的内容

本文链接：https://blog.csdn.net/gordennizaicunzai/article/details/73825178

版权

VBA 专栏收录该内容

19 篇文章

订阅专栏

VBA复制粘贴自动筛选后的内容：

Sub sx()
    If Dir("D:\VBA\xx.xls") <> "" Then
        Workbooks.Open Filename:="D:\VBA\xx.xls"
    Else
        GoTo ERR
    End If
    Range("A1").Select
    With Selection
                  .AutoFilter Field:=1, Criteria1:=0
                  .SpecialCells(xlCellTypeVisible).Copy Sheets("Temp").Range("A1")
    End With
    
ERR: MsgBox "发现非法数据存在，程序终止！", 16
End Sub