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

Question

airtec

1

0もっと見る

コンピュータ

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回まで

登録：2012/07/23 12:07:57
終了：2012/07/25 13:40:08

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

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

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

リクエスト送信済

回答リクエストを送信したユーザーはいません

TransFreeBSD · Accepted Answer · 2012-07-23T20:55:27+09:00

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

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

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

ベストアンサー

TransFreeBSD6682682012/07/23 20:55:27

コメント（0件)

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