エクセル マクロを繰り返すSub マクロを繰り返す() Dim myCnt As Long For myCnt = 1 To 10 '繰り返す内容を記述 Next myCnt End Sub 'For myCnt = 1 To Range("A2") とセル値をカウント数としても良い。 'For myCnt = 1 To sheets("メニュー").Range("A2") と別シートセル値をカウント数としても良い。