VBA自定义函数一例

可以在单元格通过输入=FindRow(D1,A1:A12)来使用

 

功能：返回content在target中所在行号,但不支持跨Sheet 

Function FindRow(content, target As Range)

    Dim sindex As Integer, eindex As Integer, colindex As Integer

   
    sindex = target.Row
    eindex = target.Row + target.Rows.Count - 1
    colindex = target.Column
   
    FindRow = 0
    If (content) <> "" Then
            For i = sindex To eindex
            If Cells(i, colindex) = content Then
                FindRow = i '如果存在相同的单元格，则返回行号
                Exit Function
            End If
   
    Next
    End If
   
End Function

 

 

更简单的方式 实现该功能，同时支持跨Sheet选择内容

Function FindRow(content, target As Range)

    FindRow=target.Find(content).Row

End Function