|
▼Hirofumi さん:
ありがとうございます。説明不足ですみません。
>1、転記元のワークシート(入力表)で
> a、データ最終行は決まっているのですか?
→入力表が見える範囲ですので、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年度の全店舗データを格納、蓄積してデータ活用しようと考えています。
よろしくお願いします。
|
|