宏根据列日期在行上粘贴值

Question

我在sheet1中有一个单元格A1，其中我在单元格B2中放入一个日期（DD / MM / YYYY）是一个数字，单元格A1和B1中的信息会更改，但宏将始终从B1复制。在A列的sheet2上是全年的一个日期（DD / MM / YYYY），我想要一个基于sheet1上单元格A1中的日期的宏查看A列上的sheet2并复制/粘贴信息来自同一行上的第2列的B列中的B2，以及列A中的相应日期。 我四处寻找类似的东西，但找不到任何工作，任何帮助表示赞赏。 先感谢您。

到目前为止，我使用了一个非常简单的复制粘贴宏，但使用这意味着我必须在一年中的每一天反复写它。 Sheet2中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等所以我正在寻找一个解决方案，只需编写一次就可以查看整列和粘贴在相应的行上。