[[練習問題]]
 Sub Fizzbuzz()
 Dim num As Integer
 num = Range("A1").Value
    For i = 1 To num
         'i mod 15 = 0でもよい
         If i Mod 3 = 0 And i Mod 5 = 0 Then
             Cells(i, 2).Value = "FizzBuzz"
         ElseIf i Mod 5 = 0 Then
             Cells(i, 2).Value = "Buzz"
         ElseIf i Mod 3 = 0 Then
             Cells(i, 2).Value = "Fizz"
         Else
             Cells(i, 2).Value = i
         End If
    Next i
 End Sub
変というかレベル高いのは~
http://www.env.kochi-tech.ac.jp/monma/vba_seminar/pages/quizzes/fizzbuzz.html
そのほかはhttp://www.env.kochi-tech.ac.jp/monma/vba_seminar/pages/quizzes/fizzbuzz.html