如何找到工作表中存在的所有值？

Question

我想检查表单中是否存在值，如果存在，则将所有结果复制到a1，a2等...

我无法停止搜索循环，如果只有10个结果，我希望它会在10个单元格后停止。

Sub ex82()
Dim r As Range, b, d As Integer
d = 1
b = 0
Do While b = 0
    Set r = Cells.Find("54256")
    If Not r Is Nothing Then Range("A" & d).Value = 54256
    d = d + 1
    'if .... b =
Loop
End Sub

如果...我需要一些东西