过滤器VBA后返回行号

有什么办法可以选择或返回过滤后的第一个可见单元格的单元格地址？到目前为止，我一直在选择滤波器后的第一个可见单元。过滤器VBA后返回行号

fileSheet.Name = "Test" 

With fileSheet 
    .Range("A2").Activate 
    ActiveWindow.FreezePanes = True 
    .Range("A2").AutoFilter field:=4, Criteria1:=">1" 
    'select the first visible cell after column header 
End With

我实际上有列标题。

来源

2017-08-18 ramedju

dim firstCell as Range 
set firstCell = fileSheet.usedRange.offset(1,0).SpecialCells(xlCellTypeVisible)(1)

UsedRange返回片在使用中的（好吧，有时太多，但并不在这种情况下重要）offset(1, 0)移动下移一行，以便headerlines被忽略的范围内，SpecialCells(xlCellTypeVisible)得到的名单所有可见的单元格，因此最后的(1)返回第一个可见单元格。

来源

2017-08-18 15:01:00 FunThomas

按照给定的范围内A1，这将给你的第一个可见单元格：

Range("A1").Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row

偏移将跳过标题行
SpecialCells将移动控制，可见细胞。
从可见单元格中选取第一个项目。
查找行

来源

2017-08-18 15:11:45

'.Offset'返回'方法或数据成员不found'错误昏黄的变量。 – ramedju

@ramedju，这是一个错字，固定。 –

试试这个

lastrow=cells(rows.count,"A").end(xlup).row 
    For x=1 To lastrow 
    If cells(x,"A")=criteria1 Then 
     rowfound=x 
    endif 
    Next x

在开始

来源

2017-08-18 15:20:27 Mitch

其他2个答案更容易（更好）。这只是一个选择。 – Mitch

过滤器VBA后返回行号

回答

相关问题