使用函数查找和查找下一个值

Question

我的函数返回另一张纸上找到的单元格的行号。但是，存在重复的值，因此另一张纸上有多个行号。如何插入一个循环，返回这些多个行号，直到再次到达第一个行号？

Function Findrownumberndg(extrapolatendg As String) As Integer


Set foundCell = Range("B:B").Find(extrapolatendg, lookat:=xlWhole)

If Not foundCell Is Nothing Then

Findrownumberndg = foundCell.row

Else

Findrownumberndg = 0

End If

End Function