| 
    
     |  | ▼Hirofumi さん: ありがとうございます。説明不足ですみません。
 
 >1、転記元のワークシート(入力表)で
 > a、データ最終行は決まっているのですか?
 →Scrollやpagedownせずにシートに入力表が見える範囲ですので、range("T13")が最終セルです。
 > b、1シートは、1年月日の1店舗分ですか?
 >  それとも、2列づつが1年月日の1店舗分でT列までですか?
 →1入力表(シート)に1年月日・1店舗分です。
 > c、C2、D2・・S2、T2は、年月日、店舗と記述されているのですか?
 >  それとも、何も無いのですか?
 →A2,B2に見出し的に年月日と店舗名が表示されています。C2以降は空白です。
 > d、転記後、入力表のデータは消去するのですか?
 →転記後は消去して、次の店舗分を新規入力します。
 ※別の処理となりますが、入力用だけでなく、A2,B2に年月日、店舗名を入力すれば、格納したデータから該当データを検索して表示できたらとも考えています。
 WorkSheetFunction.Vlookupでできるかなと思っています。
 >2、別シート(転記先)に就いて
 > a、出力先の先頭行は何処ですか?
 →A列の新規入力行です。
 range("A65536").End(XlUp)activate
 Activecell.OffSet(1,0).Activateで新規転記先を取得しようと考えています。
 > b、転記先シートは店舗別ですか?
 >  店舗別なら、シート名は店舗名で善いですか?
 →Sheet("H22")に平成22年度の全店舗データを格納、蓄積してデータ活用しようと考えています。
 
 よろしくお願いします。
 
 |  |