| 
    
     |  | >このマクロで実行すると、既存のフォーマットが複数枚作成 >できるのですが、すべての既存フォーマットに元ファイルの
 >データ全部が貼り付けされてしまいます。
 >
 >お教えいただいたVBAの中で、どこをどう直したら良いのか分からず
 >たびたび恐縮ですが、いま一度、お教えいただけないでしょうか。
 
 どのような現象か理解出来ないのですが?
 
 此方の意図しているコードの内容は、
 
 '「既定のフォーマット」のBook名
 strModel = ThisWorkbook.Path & "\" & "既定のフォーマット.xls"
 
 で指定しているBookを、データ1行に対して、1つ名前を代えてファイルコピーし
 コピーしたBookの先頭シートの指定された位置にデータを代入していますが?
 
 此方で試している部分では、上手く行ってると思います
 何が違って居るのか詳しく説明して下さい
 
 尚、今考えられるのは、
 
 1、"既定のフォーマット.xls"指定そのものが違っているのでは
 "既定のフォーマット.xls"とは、
 「既に既定のフォーマットがありヘッダーやフッダーが決まっています。」のシートが在るBookです
 2、"既定のフォーマット.xls"のBookそのものをCopyしている為、
 データが既に入った何枚ものシートが有ればそのまま残ってしまいます
 詰まり、"既定のフォーマット.xls"で指定したBookには、
 空のフォーマットのシートが先頭に1枚在ることを想定して居ます
 (特にシート自体は何枚在っても善いのですが、対象としているシートは先頭の1枚だけです)
 
 
 |  |