データを任意の場所【台帳】へ自動転記するには？

タイトルの件、相談します。

・下記画像をご覧ください。
・やりたい事は、A4のデータ【1,000,000】を、D4へデータとして、自動転記をしたいです。
・A4のデータは１日ごとに変わります。関数が入っていて、計算して出しています。
⇒要は、1/1の売上を、右のリストの日付の売上へ転記をしたいのです。
⇒翌日の1/2には、その日の売上をリストの1/2へ転記をしたいです
⇒今は、ハンドでコピペしています。
・方法は、マクロでも、VBAでも、その他、関数でもOKです。

ご存知の方、イラッシャイマシタラ、教えて下さい。

No.1 ベストアンサー 回答者： tom04 回答日時： 2016/09/08 11:21

こんにちは！

VBAになりますが一例です。

Sub Sample1()
Dim c As Range
Set c = Range("C:C").Find(what:=Format(Range("A2"), "m月d日"), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
c.Offset(, 1) = Range("A4")
End If
End Sub

※　コード内のセルの表示形式
"m月d日"
は、C列セルの表示形式に合わせてください。（1/10　のような場合は　"m/d"　としてください）

こんな感じではどうでしょうか？m(_ _)m