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

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

在单元格A2中输入日期。它总是一个月的第一天来代表一个月的一些简单的事情。示例：

7/1/17

列B包含所有需要复制的日期。B4:B660

H3至S3列为一年中的月份。 （H3）

2017年7月1日

（I3）

2017年8月1日

（J3）

2017年9月1日

（K3）

2017年10月1日

。。。（S3）

2018年6月1日

---

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

欢迎来到StackOverflow。您需要向我们展示您已有的代码，因为StackOverflow不是免费的代码编写服务。我建议您更好地解释您的问题（拍摄屏幕照片）和您的目标（您希望通过宏获得什么以及结果将在哪里）。