| |
早速のご返答ありがとうございます。
実は項目はもう少し多くありまして、
一つの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回のコピペですよね。
>時間がかかると思えないのですが？
>
>>繰り返しの記述等で簡素化できる方法を教えて下さい。
>
>まずは、現在のコードを提示お願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
