VBA 筛选结果存入数组
:自动筛选--获取可见行（数据）数据自动筛选，按第3列的缺勤进行筛选后，将筛选结果复制到F：H.Sub 获取可见数据() Dim LastRow As Long Dim Rng As Range, Rng1 As Range With ActiveSheet .UsedRange LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row '返回最后一行行号 Set Rng ...
