LibreOffice VBA：获取FindFirst结果单元格的行号（无需选中）

嗨，我完全懂你想要的效果——摆脱烦人的Select语句，直接拿到目标值所在的行号对吧？这在VBA里其实是很常见的优化需求，我给你两种实用的实现方法，都完全不需要选中单元格：

方法一：使用Range.Find方法（灵活适配多种匹配场景） #

这个方法适合需要模糊匹配或者更复杂查找规则的情况，直接定位到匹配单元格后提取行号：

Function GetFirstMatchRow(targetCol As Range, searchValue As Variant) As Long
    Dim foundCell As Range
    ' 配置查找规则：精确匹配值，不区分大小写，查找范围为目标列
    Set foundCell = targetCol.Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
    
    If Not foundCell Is Nothing Then
        GetFirstMatchRow = foundCell.Row ' 直接提取行号，无需选中
    Else
        GetFirstMatchRow = 0 ' 没找到匹配值时返回0，你可以改成自己需要的默认值
    End If
End Function

你可以这样调用它：比如要在A列找值为"Test"的第一个行号，就写Debug.Print GetFirstMatchRow(Range("A:A"), "Test")，结果会直接打印行号，全程不会选中任何单元格。

方法二：使用WorksheetFunction.Match方法（适合精确匹配，效率更高） #

如果你的需求是精确匹配，Match方法会更高效，不过要注意处理“找不到匹配值”的错误情况：

Function GetFirstMatchRow_Match(targetCol As Range, searchValue As Variant) As Long
    On Error Resume Next ' 临时捕获匹配失败的错误
    ' Match返回的是目标列内的相对位置，加上起始行得到绝对行号
    GetFirstMatchRow_Match = targetCol.Row + WorksheetFunction.Match(searchValue, targetCol, 0) - 1
    On Error GoTo 0 ' 恢复默认错误处理
    
    ' 如果没找到匹配值，重置返回值为0
    If Err.Number = 1004 Then
        GetFirstMatchRow_Match = 0
    End If
End Function

这里要注意：Match的第三个参数0代表精确匹配，返回的是目标列里的相对行位置，所以要加上目标列的起始行再减1，才能得到工作表的绝对行号。

额外提醒 #

尽量避免在VBA里使用Select/Activate语句——它们不仅会拖慢代码运行速度，还容易因为用户的意外操作导致代码出错，直接操作Range对象才是更稳健的写法。

内容的提问来源于stack exchange，提问作者djcaesar9114