如何用VBA写这个程序

Question

如何用ExcelVBA写幸运7：找出100以内所有满足包含、整除7的数程序

Answer 1

保存在哪里呢？

Sub test()

Dim i As Integer

For i = 1 To 100
    If i Mod 7 = 0 Or Left(Str(i), 1) = "7" Or Right(Str(i), 1) = "7" Then
        MsgBox (i)
    End If
Next i

End Sub