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