Excel VBAでFizzBuzz
Sub FizzBuzz() ' ' Office:Mac 2011で確認 ' [ツール]→[マクロ]→[マクロ…]で適当な名前を入れてコード画面を開き、コピー&ペースト ' For i = 1 To 100 s = "" If i Mod 3 = 0 Then s = "Fizz" End If If i Mod 5 = 0 Then s = s + "Buzz" End If If s = "" Then s = CStr(i) End If Range("A" & i).Value = s Next End Sub