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

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/26 20:30:02
如何在0到999中找出含某个数如0(或者1,2,3,4,5,6,7,8,9)的所有的数

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

如何在0到999中找出含某个数如0(或者1,2,3,4,5,6,7,8,9)的所有的数
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