[[20170610084108]]　『自動記録マクロの見直し』（クマ）　ページの最後に飛ぶ

『自動記録マクロの見直し』（クマ）

下記のマクロを自動記録マクロで作成しました。遅いのと重いので作業効率が悪く大変困っています。早くする方法はありますか？宜しくお願いします。

Sheets("月").Select

    Range("B15:BV16").Select
    Selection.Copy
    Sheets("火").Select
    Range("B1:BV2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("月").Select
    Range("C19:E29").Select
    Selection.Copy
    Sheets("火").Select
    Range("C5").Select
    ActiveSheet.Paste
    Sheets("月").Select
    Range("K19:M29").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("火").Select
    Range("K5").Select
    ActiveSheet.Paste
    Sheets("月").Select
    Range("S19:U29").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("火").Select
    Range("S5").Select
    ActiveSheet.Paste
    Sheets("月").Select
    Range("AA19:AC29").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("火").Select
    Range("AA5").Select
    ActiveSheet.Paste
    Sheets("月").Select
    Range("AI19:AK29").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("火").Select
    Range("AI5").Select
    ActiveSheet.Paste
    Sheets("月").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("AQ19:AS29").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("火").Select
    Range("AQ5").Select
    ActiveSheet.Paste
    Sheets("月").Select
    Range("AZ19:BB29").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("火").Select
    Range("AZ5").Select
    ActiveSheet.Paste   
    Sheets("月").Select
    Range("BH19:BJ29").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("火").Select
    Range("BH5").Select
    ActiveSheet.Paste
    Sheets("月").Select
    Range("BP19:BR29").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("火").Select
    Range("BP5").Select
    ActiveSheet.Paste

    Range( _
        "G17,O17,W17,AE17,AM17,AU17,BC17,BD17,BL17,BT17,AZ20:BB30,BH20:BJ30,BP20:BR30,C20:E30,K20:M30,S20:U30,AA20:AC30,AI20:AK30,AZ20:BB30,AQ20:AS30,BB20:BB30" _
        ).Select
    Range("BB20").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
      Range("E6").Select
End Sub

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

＞早くする方法はありますか？

その前に、このままだと読みにくいです。

 ＞Sheets("月").Select 
 ＞Range("B15:BV16").Select
 ＞Selection.Copy

これは、1行にできます。

 Sheets("月").Range("B15:BV16").Copy

他の箇所も、同じ要領で修正してみてください。

https://www.moug.net/tech/exvba/0150063.html

（マナ） 2017/06/10(土) 09:11

マナさんありがとうございました。
（クマ） 2017/06/10(土) 19:44

コメント返信：

[ 一覧(最新更新順) ]

[[20170610084108]] 『自動記録マクロの見直し』（クマ） ページの最後に飛ぶ

[[20170610084108]]　『自動記録マクロの見直し』（クマ）　ページの最後に飛ぶ