Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2038 / 76807

←次へ　｜　前へ→


	【80413】Re:見積ＦＭの情報を集計したい

ｍｋｍｋ - 19/2/11(月) 22:22 -


	引用なし

	パスワード

早速のご返答ありがとうございます。

実は項目はもう少し多くありまして、
一つのsheetで下記の記述になっています。
sheet12～は貼り付け先の場所を変えています。

引き続き宜しくお願い致します。

Sheet11.Select
　　Range("C1").Select
　　Selection.Copy
　　Sheets("date集計").Select
　　Range("B5:B17").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　　Sheet11.Select
　　Range("C2").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Sheets("date集計").Select
　　Range("C5:C17").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　　Sheet11.Select
　　Range("C9").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Sheets("date集計").Select
　　Range("D5:D17").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　　Sheet11.Select
　　Range("C10").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Sheets("date集計").Select
　　Range("E5:E17").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　　Sheet11.Select
　　Range("C50").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Sheets("date集計").Select
　　Range("F5:F17").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　　Sheet11.Select
　　Range("C51").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Sheets("date集計").Select
　　Range("G5:G17").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　　Sheet11.Select
　　Range("C52").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Sheets("date集計").Select
　　Range("H5:H17").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　　Sheet11.Select
　　Range("C53").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Sheets("date集計").Select
　　Range("I5:I17").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　　Sheet11.Select
　　Range("C54").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Sheets("date集計").Select
　　Range("J5:J17").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　　Sheet11.Select
　　ActiveWindow.SmallScroll Down:=-24
　　Range("B14:E14").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Sheets("date集計").Select
　　Range("K5:N17").Select
　　Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
　　　　SkipBlanks:=False, Transpose:=False
　　Sheet11.Select
　　Range("C16").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Sheets("date集計").Select
　　Range("O5:O17").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　　ActiveWindow.SmallScroll ToRight:=7
　　Sheet11.Select
　　Range("E16").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Sheets("date集計").Select
　　Range("P5:P17").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　　Sheet11.Select
　　Range("B21:N33").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Sheets("date集計").Select
　　Range("Q5").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　　ActiveWindow.SmallScroll ToRight:=11
　　Sheet11.Select
　　ActiveWindow.SmallScroll Down:=9
　　Range("B37:N48").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Sheets("date集計").Select
　　Range("AD5").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False

▼マナさん：
>▼ｍｋｍｋさん：
>
>>ｅｘｃｅｌのマクロ登録でsheet1のコピペを登録し、
>>sheet2～は貼り付け先の場所の場所の変更で記録を
>>したのですが、実行に時間がかかってしまいます。
>
>全部で5×20回のコピペですよね。
>時間がかかると思えないのですが？
>
>>繰り返しの記述等で簡素化できる方法を教えて下さい。
>
>まずは、現在のコードを提示お願いします。

0 hits

▼

【80411】見積ＦＭの情報を集計したい ｍｋｍｋ 19/2/11(月) 21:34