データベースからデータを検索し、それを別のExcelファイルまたはシートにコピーするExcelマクロ

特定の日付のデータを検索して計算するExcelファイルがあります。次のように機能します。特定のセル（入力）に日付を入力すると、同じシートに必要なデータが表示されます（20セル）。（計算などは別のシートで行われます）

次に、自分で日付を入力して手動でデータをコピーすることなく、このすべてのデータを要約したExcelファイルを作成したいと思います。

マクロが行うべきことは、日付ごとにその特定の入力セルの値を変更し、出力データをコピーして新しい日付（日付の隣）に貼り付けることです。

これをどのように行うことができますか？私はずっと前にマクロを扱っていましたが、ほとんどの構文を忘れていました。

私が見ると、入力データの配列を取得しました。
dim my_array(10)これはあなたの配列であり、10個の値を保存し
ます。3つのワークシートがあります。1つ目はデータ「Sheet1」、 、そして3つ目は、すべての計算が行われるところで、触れません。
配列に値を
my_array = Array(1, 2, 3, ..., 9)
入力することから始めましょう。すべての入力値を調べて出力値を保存するループを作成します 。「A1」は、入力を貼り付ける最初のシートのセルです。：あなたはSheet1のセル「A2」で出力を得ること、の仮定しようとあなたがSheet2のでcollumnに「A」を、それを保存したい ループを閉じることを忘れないでください： 私たちは10個のハードコード値をとるコードを取得し、出力をsheet2の列「A」に保存します。フルテキスト：
for i = 1 to 10
Worksheets(1).Range("A1").Value = my_array(i)

Worksheets(2).Cells(i, 1).Value = Worksheets(1).Range("A2").Value

Next

dim my_array(10)
Private Sub macro1()
my_array = Array(1, 2, 3, ..., 9)
for i = 1 to 10
Worksheets(1).Range("A1").Value = my_array(i)
Worksheets(2).Cells(i, 1).Value = Worksheets(1).Range("A2").Value
Next
End sub