难道不能做这样简单的事情来获得B2的range值吗?
crdata.Range("B2").SpecialCells(xlCellTypeVisible).Value我已经应用了自动筛选功能,根据给定的条件进行筛选,并尝试将B2的范围作为函数返回。
发布于 2014-10-30 15:48:14
将.SpecialCells(xlCellTypeVisible)设置为一个范围,然后在此范围上使用Cells(row, column)来挑选所需的值。如果您在结果中使用头,那么您可能还必须使用Offset(1,0)来寻址数据。因此,在将'MySheet‘定义为工作表对象的情况下,方法如下:
Set rsltRng = MySheet.Autofilter.Range.SpecialCells(xlCellTypeVisible)
msgbox rsltRng.cells(2,2)https://stackoverflow.com/questions/26645914
复制相似问题