请教老师：如何复制筛选后的数据？

lsc900707

zainan0810 发表于 2018-6-3 09:38
真是咱们的好版主，没想到这个时间了还关注着版块，佩服！当时以为版主休息了，所以留言后就下了。不好意 ...

附件供测试：

zainan0810

谢谢lsc900707的指教！您的答案完美，受累了！

zainan0810

lsc900707 发表于 2018-6-3 10:05
附件供测试：

谢谢lsc900707老师的指教！您的答案完美，受累了！

小饼干910326

Sub 筛选后复制到另外的表()
Dim ro
ro = Worksheets("原始数据").Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("原始数据").Range("A1:I" & ro)
.AutoFilter field:=3, Criteria1:=35     '筛选第3列，条件等于35
.SpecialCells(xlCellTypeVisible).Copy Sheets("筛选后").Range("a1")      '复制到指定区域自己改
End With
Range("c2").AutoFilter field:=3, visibledropdown:=False   '移除自动筛选提供的下拉箭头
End Sub

zainan0810

小饼干910326 发表于 2018-6-5 14:29
Sub 筛选后复制到另外的表()
Dim ro
ro = Worksheets("原始数据").Cells(Rows.Count, 1).End(xlUp).Row

谢谢小饼干910326老师这么详尽的指导我！跟随您的指点，我会一点点进步的。

小饼干910326

Sub 筛选后复制到另外的表()
Dim ro
ro = Worksheets("原始数据").Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("原始数据").Range("A1:I" & ro)
.AutoFilter field:=3, Criteria1:=35     '筛选第3列，条件等于35
.SpecialCells(xlCellTypeVisible).Copy Sheets("筛选后").Range("a1")      '复制到指定区域自己改
End With
Range("c2").AutoFilter field:=3, visibledropdown:=False   '移除自动筛选提供的下拉箭头
End Sub

小饼干910326

zainan0810 发表于 2018-6-5 21:10
谢谢小饼干910326老师这么详尽的指导我！跟随您的指点，我会一点点进步的。

相互学习，我也是刚学VBA不久

YZC51

学习两位老师的代码，谢谢！
Sub 筛选后复制到另外的表()
    Dim ro
    ro = Worksheets("原始数据").Cells(Rows.Count, 1).End(xlUp).Row
    With Sheets("原始数据").Range("A1:I" & ro)
        .AutoFilter 3, 35                                       '筛选第3列，条件等于35
        .SpecialCells(12).Copy Sheets("筛选后").Range("a1")     '复制到指定区域自己改
    End With
    Cells.AutoFilter                                            '取消自动筛选
End Sub