繰り返して書式を行の下方に貼付けたいです

質問

Excel2007でマクロ作成中の初心者です。
　特定範囲「F14:AG28」の書式「"h:mm;@"」を
　F38から開始して、24行目ごとに
　繰り返して貼り付けたいです。
　以下自動記録で作成しましたが、繰り返しができません。
　繰り返しのマクロを教えてください。
Sub test()

Range("F14:AG28").Select
Selection.NumberFormatLocal = "h:mm;@"
Selection.Copy

Range("F38").Select
Selection.PasteSpecial Paste:=xlPasteFormats

Range("F62").Select
Selection.PasteSpecial Paste:=xlPasteFormats
Range("F86").Select
Selection.PasteSpecial Paste:=xlPasteFormats
Range("F110").Select
Selection.PasteSpecial Paste:=xlPasteFormats
Range("F134").Select
Selection.PasteSpecial Paste:=xlPasteFormats
以下繰り返します。
("F158").Select
("F182").Select
・・・
・・・
　繰り返し回数は　 Sheets.Count - 12　です。

Application.CutCopyMode = False
End　sub

回答No.1

mt2008 · ベストアンサー

まぁ、こんな感じでしょうか。
F14:AG28への書式設定も一緒に行っています。

Sub test()
　　For i = 0 To (Sheets.Count - 12)
　　　　Range("F" & (14 + 24 * i) & ":AG" & (28 + 14 * i)).NumberFormatLocal = "h:mm;@"
　　Next i
End Sub

お礼

早速のご回答ありがとうございます。すっきりしたコードで思う通りのことができました。感謝します。