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