Macros 宏将值粘贴到第'行；s基于列日期

我在表1中有一个单元格A1，其中我在单元格B2中输入了一个日期（DD/MM/YYYY）。单元格A1和B1中的信息会发生变化，但宏将始终从B1复制。在A列的表2上是全年的日期（DD/MM/YYYY），一个在另一个下，我想要一个宏，它基于表1单元格A1中的日期在A列的表2上查看，并从B列的表2复制/粘贴信息，与A列中的相应日期在同一行。 我四处寻找类似的东西，但找不到任何有用的东西。非常感谢您的帮助。 先谢谢你

到目前为止，我使用了一个非常简单的复制粘贴宏，但使用这个宏意味着我必须在一年中的每一天反复地写它。 其中，第2页中的C1=A1为第一个日期

Sub test()
**Sheets("Sheet1").Select
If Range("A1") = Range("C1") Then
    If Range("B1").Value > "0" Then
        Range("B1").Copy
        Sheets("Sheet2").Select
        Range("B1").PasteSpecial xlPasteValues
        else
        end if
else
end if
end sub

---

所以像这样做，我必须一遍又一遍地写C2..C3。。然后把浆糊放在B2。。B3等，所以我正在寻找一个解决方案，只需写一次就可以查看整列并粘贴到相应的行。

请在您的帖子中包含您尝试过的内容。同时，我也会指导你如何构造一个恰当的问题，从而得到恰当的答案。我自己找到了一个解决方案，谢谢你。