Excel 解决取余数问题

(1)打开一个Excel工作表
(2)ALT+F11调出开发工具窗口
(3)对象鼠标右键->新建模块->双击打开模块
(4)复制下面money代码到模块里
(5)F5执行

以下代码完美解决以上图片上的问题

Sub money()
Dim i As Long
For i = 1 To 10000'如需更多结果，把10000改成更大的数即可
If i Mod 1 = 0 And i Mod 2 = 1 And i Mod 3 = 0 And i Mod 4 = 1 _
     And i Mod 5 = 1 And i Mod 6 = 3 And i Mod 7 = 0 And i Mod 8 = 1 _
     And i Mod 9 = 0 Then
     MsgBox i
     End If
     Next
End Sub