vba 获取 a列内容为“minimum”的最后一行的位置

在VBA中，你可以通过遍历A列来查找内容为"minimum"的最后一行。这里有一个简单的示例：

Function FindMinimumRowIndex(ws As Worksheet) As Long
    Dim rng As Range
    Dim lastRow As Long
    
    ' 设置查找范围为整个工作表的A列
    Set rng = ws.Columns(1)
    
    ' 获取A列的总行数
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 从最后一行开始向上搜索直到找到"A:minimum"
    For i = lastRow To 1 Step -1
        If rng.Cells(i, 1).Value = "minimum" Then
            FindMinimumRowIndex = i ' 当找到匹配项时，返回其行号
            Exit Function ' 结束循环
        End If
    Next i
    
    ' 如果没有找到，则返回0 或者你想使用的默认值
    If FindMinimumRowIndex = 0 Then
        MsgBox "No row found with 'minimum' in column A."
    End If
End Function

这个函数会返回A列内容为"minimum"的最后一行的行号。如果找不到这样的行，它会弹出一个警告信息。