筛选复制VBA代码求助

安全网

        Application.ScreenUpdating = False
    Rows.Hidden = False
    Dim ar, x As Range, rng As Range
    ar = Array("爱家", "微晶", "金属UV")
    For Each x In Range([R1], [R65536].End(3))
       If IsError(Application.Match(x, ar, 0)) Then
          If rng Is Nothing Then Set rng = x Else Set rng = Union(rng, x)
       End If
    Next
    If Not rng Is Nothing Then rng.EntireRow.Hidden = True
    rng.CurrentRegion.EntireRow.Select
       Selection.Copy
    Sheets("自产门板").Activate
    Range("A9").Select
    Selection.Insert Shift:=xlUp
    Application.ScreenUpdating = True
帮忙看看这个代码，把筛选隐藏的数据都给复制过去了，复制只复制筛选后可见单元格的的数据

rardge2015

1. rng.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy

复制代码

安全网

rardge2015 发表于 2019-10-30 22:00

加了这个将复制的行的数据都没有办法插入到新的工作表内。我要做的是将筛选后的可见数据复制插入到新的工作表指定的位置

安全网

rardge2015 发表于 2019-10-30 22:00

加了这个SpecialCells(xlCellTypeVisible)就会出现图示的错误

rardge2015

目标数据区，是否也存在隐藏的行？如果有就无法成功粘帖。
另外，单元格插入，好像没有 xlup 吧？只有往右、往下。

安全网

rardge2015 发表于 2019-10-31 17:52
目标数据区，是否也存在隐藏的行？如果有就无法成功粘帖。
另外，单元格插入，好像没有 xlup 吧？只有往右 ...

目标数据源筛选后就会存在隐藏的数据单元格，这个问题怎么解决了

安全网

有高手知道吗？

rardge2015

目标区域能取消隐藏么？或者发个附件让大家看看怎么处理。

路边的野花

好强大啊