![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
Sheet1には、毎日入荷する商品のデータを2行目から入力します。
(例ですが、1行目はタイトル:A1=日付、B1=商品名、C1=Data1、D1=Data2)
毎日入荷する商品数が1個~20個位まで変化します。
Sheet2に、年間仕入元表があり、その最終行の1行下へ毎日入荷するデータをペーストするマクロを作りたいのです。
毎日入荷するデータのカット(コピー)するところが(行数が変化しているため)初心者の私ではマクロで出来ず、困りました。
教えて!gooの過去の質問を見てきましたが、基本の基本でしょうか?ヒントとなる質問が無く、ここに質問させてください。
VBAの初心者ですが、プロシージャを示していただければ、内容を読めると思います。
No.1ベストアンサー
- 回答日時:
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
- 回答日時:
ちなみにアクティブシートの最終行判定をD列でしているので、A列で最終行を判定するなら
.Range("A2", .Range("D65536").End(xlUp)).Copy _
を
.Range("D2", .Range("A65536").End(xlUp)).Copy _
に変えます。
papayuka 様
第2の回答をご親切にありがとうございました。
実際には、Copy を Cut に書き換えて実行します。
昨夜までの”もやもや”が消えて、ちょっと寒いけど
スッキリして仕事にかかります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルでのVBA 2 2022/08/03 06:48
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- その他(ビジネス・キャリア) 事業復活支援金の事前確認での売上高チェックについて 2 2022/03/26 13:47
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Excel(エクセル) マクロだと数式が表示される 2 2022/09/10 14:48
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) 【ExcelVBA】Powerクエリーでいうピボット解除と同じ処理をVBAで 4 2022/07/06 17:09
- ヤフオク! 関税 詐欺でしょうか?ヤフオク 3 2023/06/25 11:22
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで作成した縦に長い表...
-
【エクセル】行挿入で数式もい...
-
WEB上の表の列コピー選択方法は?
-
一つのシートの中に複数のペー...
-
エクセルVBAで、行コピーを複数...
-
オートフィルタのリストを順番...
-
Excel 表から値をさがして隣の...
-
Excelピボットテーブルで 総計...
-
メモ帳からエクセルに貼り付け...
-
地番を順に並べたい。
-
エクセルのリストから欠番を拾...
-
ワードでアンケートの集計をし...
-
毎回、データの行数が変化して...
-
エクセルに詳しい方、助けてく...
-
桐に入力した住所をコピーして...
-
ピボットテーブル→参照が正しく...
-
ワードにおける文字の交換
-
エクセルの関数の使い方 繰越...
-
エクセル 可視セルのみへ貼り...
-
エクセルでの質問です
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
一つのシートの中に複数のペー...
-
オートフィルタのリストを順番...
-
WEB上の表の列コピー選択方法は?
-
エクセルで作成した縦に長い表...
-
【エクセル】行挿入で数式もい...
-
ピボットテーブル→参照が正しく...
-
エクセルVBAで、行コピーを複数...
-
メモ帳からエクセルに貼り付け...
-
Excelピボットテーブルで 総計...
-
エクセルのリストから欠番を拾...
-
Excel 表から値をさがして隣の...
-
Excelの数式のコピーで列移動で...
-
エクセルの関数の使い方 繰越...
-
エクセルの列幅
-
Excelで検索結果をテキストボッ...
-
一太郎にエクセルの表を貼り付...
-
エクセルに詳しい方、助けてく...
-
地番を順に並べたい。
-
マクロを強制的に有効にする方法
-
ワードでアンケートの集計をし...
おすすめ情報