excel - 复制过滤表

Question

我有一张经过过滤的工作表；我只想将过滤后的数据复制到一个名为的变量varTable中 - 请参见下面的代码。

如果数据没有被过滤，那么所有的数据都被复制进去就ok了；

如果我应用过滤器（手动 - 不是通过 VBA），那么我希望只复制可见行；但这种情况并非如此 ; 结果因我应用的过滤器而异；

有人可以帮忙吗？

Dim varTable As Variant

varTable = DataSh.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)

' identifies no of rows
MsgBox UBound(varTable, 1)

'identifies no of columns

MsgBox UBound(varTable, 2)

标签： excelvba