按日期合并各表内容

simic1989

将各表的内容按选择的日期合并到sheet1中，但是有些日期会出错。我是运用的筛选复制的方法。
原因是因为某些表中没有这个日期的内容。当没有这个日期的时候，会把这个表所有内容都复制过去。
请问老师如何修改一下。

simic1989

朱荣兴 发表于 2018-8-17 11:10
你所说的日期具体指什么？？？是指日，还是指月，还是月日？？？？？？？？？？？？？

我自己设定的条件，就是在 日 那列筛选

simic1989

朱荣兴 发表于 2018-8-17 11:35
Sub shaixuan()
ReDim brr(1 To 10000, 1 To 6)
l = InputBox("想要合并的各表日期")

您好版主，我新学VBA，您的这些语句很多我都不会用，请问能否在我的那个基础上稍微修改一下，我只是好奇，如果筛选不出来，应该复制的是空表，为啥他会把整个表复制过来。