| 
    
     |  | ▼kanabun さん: >▼kami さん:
 >
 >>データーを各シート(20枚以上)のセルに転記する時、
 >>シートをアクティブにしないですることは出来ますか?
 >
 >コピー元範囲、貼りつけ先範囲のまえにシートを指定してあげたら
 >アクティブにしなくて済みます。
 >
 >Worksheets("Sheet1").Range("A1:D30").Copy _
 > Worksheets("先Sheet").Range("A65536").End(xlUp).Offset(1)
 >
 >とか
 >
 > Worksheets("Sheet1").Range("A1:D30").Copy
 > Worksheets("先Sheet").Range("A65536") _
 >   .End(xlUp).Offset(1).PasteSpecial xlPasteValues
 >
 >のように。
 kanabunさん、早速のご回答いただきながら御礼が
 遅くなり真に申し訳ございません。
 どこを探してもこの様な事は記されておりませんでしたが、
 お陰さまで解決出来ました。
 本当にありがとうございました。
 まずは御礼まで
 
 |  |