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 = "…