题目

如何在0到999中找出含某个数如0（或者1,2,3,4,5,6,7,8,9）的所有的数

提问时间：2020-10-19

答案

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