毎回、データの行数が変化しているため、コピー・ペーストが、、困った。

質問

Sheet1には、毎日入荷する商品のデータを2行目から入力します。
（例ですが、１行目はタイトル：Ａ1＝日付、Ｂ１＝商品名、Ｃ1＝Data1、Ｄ1＝Data2）
毎日入荷する商品数が１個～20個位まで変化します。

Sheet2に、年間仕入元表があり、その最終行の１行下へ毎日入荷するデータをペーストするマクロを作りたいのです。

毎日入荷するデータのカット（コピー）するところが（行数が変化しているため）初心者の私ではマクロで出来ず、困りました。

教えて！gooの過去の質問を見てきましたが、基本の基本でしょうか？ヒントとなる質問が無く、ここに質問させてください。

VBAの初心者ですが、プロシージャを示していただければ、内容を読めると思います。

回答No.1

papayuka · ベストアンサー

Sheet1はいつも A2から始まるなら。
試す場合はコピーしたブックなど、テスト環境で。

Sheet1をアクティブにして実行します。

Sub aaa()
With Activesheet
　.Range("A2", .Range("D65536").End(xlUp)).Copy _
　　Destination:=Worksheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
End With
End Sub

お礼

papayuka 様

早速のご回答ありがとうございました。
ご指示のようにしてマクロを実行させると、期待通りにSheet2niセットができました。　基礎編のなかで、”With"の附く記述まで勉強していなかったため、ただ今から、探して理解するようにします。

ありがとうございました。

回答No.2

papayuka

ちなみにアクティブシートの最終行判定をD列でしているので、A列で最終行を判定するなら

.Range("A2", .Range("D65536").End(xlUp)).Copy _

を

.Range("D2", .Range("A65536").End(xlUp)).Copy _

に変えます。

お礼

papayuka 様

第２の回答をご親切にありがとうございました。
実際には、Copy　を　Cut に書き換えて実行します。

昨夜までの”もやもや”が消えて、ちょっと寒いけど
スッキリして仕事にかかります。