复制已过滤的工作表

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)