ある範囲の書式を飛び飛びに貼り付けたい

質問

Excel2007でマクロ作成してる初心者です。
　ある範囲の書式を移動しながら、書式を貼り付けていく
　マクロの書き方がわかりません。どなたかご教示おねがいします。

Sub 書式の貼り付け()
'"F14:AG28"の範囲に書式を設定
Range("F14:AG28").Select
Selection.NumberFormatLocal = "h:mm;@"
'"その範囲を24行だけ移動し、全く同じ書式を貼り付ける
Selection.Copy
Range("F38").Select　’24行目のセル
Selection.PasteSpecial Paste:=xlPasteFormats
'"その範囲をまた24行だけ移動し、全く同じ書式を貼り付ける
　　Range("F62").Select　’48行目のセル
Selection.PasteSpecial Paste:=xlPasteFormats
　これをシートの数だけ繰り返す。
　’・・・
　’・・・
Application.CutCopyMode = False
Range("A3").Select
End Sub

回答No.2

okormazd

期待した動作をするかはともかく、ちゃんと動くはずです。

「NumberFormatLocal = "h:mm;@"」
じゃありません。
「.NumberFormatLocal = "h:mm;@"」
です。
頭の"."をわすれないように。

「このコードは特定のシートのみに適用し
他のシートは一切関係なく、このシート上だけで繰り返し（回数は変動するシート数だけ）たいです。」
まだ「言葉足らず」のようです。
少なくとも私には意味が伝わらない。
「特定のシートのみ」
どのシート?
「このシート上だけ繰り返し」
何を繰り返すの?
「回数は変動するシート数だけ」
なんの回数?
「変動するシート数」って何?
自分がわかっているだけではダメです。
仕様がいい加減なら正しいコードは書けません。

補足

今実行しましたが、rangeクラスのNumberFormatLocalプロパティを設定できません。
のエラーがでまして、次に進みません。

このブックの中に「総括」という名のシートを含め5個のシートがあります。
動作させたい「総括」シートの特定範囲("F14:AG28")を、行の下方向に24行目ごとに、移動しながら35回
書式を貼り付けていきたいのです。最初の範囲の左上はF14です。次にF38　次にF62、次にF86、次にF110
移動しながら、そこに特定範囲と同じ書式を貼り付けていきたいです。言葉足らずで申し訳ありません。

回答No.1

okormazd

こんなことかな。

Sub 書式の貼り付け()
Dim sh As Object, i As Integer
For Each sh In ActiveWorkbook.Sheets
'"F14:AG28"の範囲に書式を設定
With sh.Range("F14:AG28")
.NumberFormatLocal = "h:mm;@"
'"その範囲を24行だけ移動し、全く同じ書式を貼り付ける
.Copy
For i = 1 To 2
'24行目のセルに貼り付け
.Offset(24 * i, 0).PasteSpecial Paste:=xlPasteFormats
'"その範囲をまた24行だけ移動し、全く同じ書式を貼り付ける
Next
End With
　　' これをシートの数だけ繰り返す。
Next
Application.CutCopyMode = False
Range("A3").Select

End Sub

補足

ご回答ありがとうございます。以下実行しましたら
NumberFormatLocal = "h:mm;@"
のところでNumberFormatlocalプロパティを設定できませんというエラーがでて
とまってしまいました。
それとすみません。とんでもないミスをおかしてしまいました。このコードは特定のシートのみに適用し
他のシートは一切関係なく、このシート上だけで繰り返し（回数は変動するシート数だけ）たいです。
言葉足らずでもうしわけありませんでした。よろしくお願いします。