查找符合多个条件的整行数据复制到另外一个表中

伍泽星

求助：查找sheet1表中“单位=1”，“状态=未报”，“期限<系统日期（也就是今天之前）”的整行数据，复制到sheet2中，并改变sheet2中此行的背景色。

求高手解答，最好能留下联系方式，以后好请教。

伍泽星

不好意思，刚刚那个范例里面有个数据不对，重新更新的附件

大灰狼1976

涂色没做，其他OK。

1. Sub aaa()
   
2. Application.ScreenUpdating = False
   
3. With [a1].CurrentRegion
   
4.   .AutoFilter Field:=2, Criteria1:=1
   
5.   .AutoFilter Field:=3, Criteria1:="未报"
   
6.   .AutoFilter Field:=4, Criteria1:="<" & Date
   
7.   Range("a2:d" & [a65536].End(3).Row).Copy Sheets(2).[a65536].End(3).Offset(1)
   
8.   .AutoFilter
   
9. End With
   
10. Application.ScreenUpdating = True
    
11. End Sub

复制代码

伍泽星

大灰狼1976 发表于 2017-10-20 16:48
涂色没做，其他OK。

大神，我能请教下您的联系方式吗？或者你可以加我QQ46539843