Excelでマクロの記録で保存したマクロを変換したい


下記の記録されたマクロをシート全体で行えるようにしたいのですが
どのようにしたらいいか教えてください。

' Macro3 Macro
'
Selection.Insert Shift:=xlDown
Range("B1").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[1]C:R[600]C)"
Selection.AutoFill Destination:=Range("B1:M1"), Type:=xlFillDefault
Range("B1:M1").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Rows("2:2").Select
Selection.Copy
Rows("1:1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A3").Select
Application.CutCopyMode = False
Selection.Cut Destination:=Range("A1")
Rows("2:2").Select
ActiveWindow.SmallScroll Down:=573
Rows("2:602").Select
Selection.Delete Shift:=xlUp
End Sub

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2012/07/23 12:07:57
  • 終了:2012/07/25 13:40:08

ベストアンサー

id:TransFreeBSD No.1

TransFreeBSD回答回数665ベストアンサー獲得回数2672012/07/23 20:55:27

For Each...Nextステートメントを使います。
http://officetanaka.net/excel/vba/statement/ForEachNext.htm
「Sub Macro3()」から「End Sub」の間のマクロ全体を下記の行ではさみます。

    Dim ws
    For Each ws In Worksheets
        ws.Activate

    Next ws

ただ、一番最初の挿入する位置のセルが選択されていないので、それの指定が必要になると思いますが……

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません