Public Sub sa()
Dim s$,c As Range,r&,i%
s = "*52" '这里改变条件,""中的内容
Set c = [E1] '这里改变放置结果的第一个单元格,[]中为地址
For i = 0 To 999
If Format(i,"000") Like s Then c.Offset(r,0).Value = Format(i,"000"):r = r + 1
Next
End Sub