如果日期等于月份，则使用VBA复制列

Question

如果数据匹配，我想要一个宏来复制数据列。每个月报告都会吐出当前的数据月份，我必须将B列数据复制并粘贴到与该月相同的列中。

1. 在单元格A2中输入日期。这个月的第一天总是代表一个简单的月份。示例：7/1/17
2. B列包含需要复制的所有日期。 B4：B660
3. 在H3到S3的列中是一年中的几个月。 （H3）7/1/2017（I3）8/1/2017（J3）9/1/2017（K3）10/1/2017 ...（S3）6/1/2018

因此，如果我在A2中键入日期，如果它在H3到S3之一的单元格中等于相同的日期，则在H4到S4中复制该日期下面的列B.