如何在筛选的表格中选择多个显示行并把行数据放入数组

pgf028

请大师出手相助，在一个启用筛选的表格中，我需要在筛选过表格中通过鼠标选择当前显示行存入数组，然后导入报废表格中，而隐藏行不会被引用。


单行选用的方式可以实现：

    With Selection
    arr = .Offset(0, -.Column + 1).Resize(1, mycol1)
    End With

但是选择多行时会把隐藏行选上加入，求帮助。谢谢了。

    With Selection.SpecialCells(xlCellTypeVisible)
   arr = .Offset(0, -.Column + 1).Resize(.rows.count, mycol1)
    End With


附件是例子

x-xx-xx

笨办法就是用遍历单元格写入数组

taller

pgf028

taller 发表于 2024-4-24 23:49

谢谢老师，我学习消化一下。