データをコピーするマクロを教えてください。

質問

「入力用シート」に毎月データを入力し、出た値（例えばＡ１に値が出るとすると）を、別の「記録用シート」に月別にデータをコピーする“マクロ”を教えて下さい。
よろしくお願いします。

回答No.2

fujillin

このままだと「丸投げ」なので・・・

＜方法1＞
・「ツール」-「マクロの記録」でやりたいことを、手動で行い「記録を終了」
・上記で7、8割のものはできるので、これをいじってみる。
・その上で、「こうしたいのだけれどどうすれば？」と質問なさってはいかがでしょうか

＜方法2＞
・「入力シートの原本（無記入）」を作成しておく。（必要に応じて非表示）
・月初めにこれをコピーして「○○月」の入力用シートとして使用
・集計時にはこれをそのまま「記録用シート」として利用。次月のものをコピーで新規作成
・月別に1シートで集計したい場合は、集計シートを別に作り、参照式を事前に設定しておけば自動的に集計される
　（この方法であれば、マクロなど不要になります。）

ほぼ同じような質問が、過去ログにもあったと思いますが・・・

お礼

fujillin様へ
早速にご回答いただきありがとうございます。
ご指摘のとおり同じ内容のログ（QNo.322746）がありましたので、
それを参照してやってみます。

回答No.1

imogasi

実例でも挙げて説明しないと、質問内容がよくわからない。
＞月別にデータをコピーする
とは
＞データを入力し、出た値（例えばＡ１に値が出るとすると）
Ａ１はＡ１以外の他セルのデータを使って計算でもして、表示されていることですか。
こんなの書く必要は無いのでは。式のあるセルをコピーすると、式によっては変わってしまうことはあるが、値だけの貼り付けでよいのか、など疑問あり。
一般にマクロの記録をとれば済む問題ではないのですか。やってみましたか。

補足

質問が抽象的で申し訳ありません。
過去に同じような質問と回答があり（QNo.322746）その通りにコーディングしてみましたが、うまく出来ません。どこが違うのか教えてください。よろしくお願いします。
下記テストデータ（Sheet1）のＢの６月分のデータ（ｂ３～ｂ６）が毎月変わるので、（Ｓheet2）に、入力後その月分のデータを年次表へコピーしたいのです。
【過去の質問】
excelで同一ブック内にあるSheet（１）の数値をSheet（２）へ値のみコピーしたいのですが。
(1)Sheet（１）で月報を作成
(2)Sheet（２）の年表へ値のみコピー（転写）。
但し、条件として○○月分とsheet（１）で表示しているものを参照し、Sheet（２）年表の○○月分のセル（○○：○○）にその値を転写したいと思っています。
当方、マクロ等よく分かりませんのでよろしくご教示下さい。
【回答】
テストデータ（Sheet1)ABは行・１～６は列
A B
1 月次表 5月分
2 項目名 　　　計数
3 売上高 　　　1230
4 受手数料 35
5 人員数 　　　　37
6 人件費 　　　　15
（以下略）
テストデータ（Sheet2)
Sheet２のデータ部分は空白にして、実行して下さい。
年次表
A B C D
1 ４月分 ５月分 ６月分 ７月分　（以下略）
2 項目名 計数 計数 計数 計数
3 売上高 1230 1520
4 受手数料 35 45
5 人員数 37 38
6 人件費 15 16
（以下略）
上記は実行結果です。５月、６月でやって見ました。
シートからALTキーを押しながら、ゆっくりF11、I、Mを
押しModele1を挿入。
（コーディング）
Sub test01()
For i = 2 To 14
If Worksheets("sheet2").Cells(2, i) = Worksheets("sheet1").Cells(1, 3) Then　'前行にくっ付ける
For j = 3 To 20
Worksheets("sheet2").Cells(j + 1, i) = Worksheets("sheet1").Cells(j, 2) '前行にくっ付ける
Next j
Exit　For
End If
Next i
End　Sub
ｉの１４は１２か月プラス上、下期小計の２列
ｊの２０は項目の最下行の行番号を仮に２０とした。