VBA查找过滤器后第一可见行的行号

Question

我试图在过滤数据后获得第一个可见行的行号。我需要行号，以便可以选择相应行中的顶部单元格来选择活动单元格下面的所有单元格。我是VBA的初学者，因此我基本上都不熟悉VBA。

这是我需要修改的代码示例：

Dim bidNum As String
Dim bidFull As String

bidNum = "123" 'sample number
bidFull = "Bid-" + bidNum + ".csv"

ActiveSheet.ListObjects("PriceExp").Range.AutoFilter Field:=1, Criteria1:=bidFull    'filters data by Bid #

Range("B####", Range("B####").End(xlDown)).Value = "sample name" '#### is where I need to know the current row number after data is filtered
Range("C####", Range("C####").End(xlDown)).Value = "sample state"
'etc. for more columns

Answer 1

为了使行在过滤器后可见，可以使用Set的{​​{1}}属性Range Range.SpecialCells(xlCellTypeVisible)对象。

之后，您需要遍历非连续过滤范围的ListObject。

您可以设置每一列Areas，并使用Range命令可以将范围合并在一起。

阅读HERE，进一步了解Application.Union函数。

代码

Union