VBA小代码--确认筛选后的第一个可见单元格的行号

 

Sub test()
    MsgBox (Rows("2:" & Rows.Count).SpecialCells(12).Row)
End Sub

 

 

另附vba SpecialCells(Type,Value) 参数说明

下面内容转自https://www.cnblogs.com/hdl217/p/3494790.html

Range.SpecialCells 方法可以返回一个 Range 对象，该对象代表与指定类型和值匹配的所有单元格。 其语法如下： 表达式.SpecialCells(Type,Value) 其Type参数的可选XlCellType常量及对应值如下表：

XlCellType 常量	值	说明
xlCellTypeAllFormatConditions	-4172	任意格式单元格
xlCellTypeAllValidation	-4174	含有验证条件的单元格
xlCellTypeBlanks	4	空单元格
xlCellTypeComments	-4144	含有注释的单元格
xlCellTypeConstants	2	含有常量的单元格
xlCellTypeFormulas	-4123	含有公式的单元格
xlCellTypeLastCell	11	已用区域中的最后一个单元格
xlCellTypeSameFormatConditions	-4173	含有相同格式的单元格
xlCellTypeSameValidation	-4175	含有相同验证条件的单元格
xlCellTypeVisible	12	所有可见单元格

当Type参数为 xlCellTypeConstants 或 xlCellTypeFormulas时，Value参数有4种XlSpecialCellsValue 常量可选，见下表：

XlSpecialCellsValue 常量	值	说明
xlErrors	16	错误值
xlLogical	4	逻辑值
xlNumbers	1	数字
xlTextValues	2	文本

如下SpecialCells(xlCellTypeConstants,23)语句中的23=16+4+1+2，即表示定位的常量包含4种类型的单元格：错误值+逻辑值+数字+文本

1. Sub 定位常量()
2. Range("a:a").SpecialCells(xlCellTypeConstants, 23).Select
3. End Sub

如只要定位常量错误值及逻辑值（即16+4=20），则采用如下代码：

1. Sub test1()
2. Range("a:a").SpecialCells(xlCellTypeConstants, 20).Select

以下内容为回复评论内容补充资料

Public Function visrange(ranges As Range) As String
    Dim a As Range, s As String
    Set a = ranges
    s = a.SpecialCells(xlCellTypeVisible).Cells(1, 1).Value
    visrange = s
    MsgBox visrange
End Function
Sub test()
    Call visrange(Range("A2:C20"))
End Sub

这个是测试的原表格，我做了筛选，如下

运行程序结果如下：