【求助】符合多条件查询得出多个结果

water-sky

求助各位大神：
      总共有两个问题：
      1。将文档中符合两个条件，这里是Account name相同且birthday相同的人对应的System ID导出，因为每一个Account name都对应一个System ID，故如果有相等，那么导出的System ID应该会有多个！试了论坛里一些方法，没成功，也百度了一些方法，都不行，应该是我理解不到位，请大神解答的时候稍微标注一下步骤和作用，谢谢！这里最好是能做到直接将文档中所有的Account name相同且birthday相同的项目整行copy到新建的一个sheet中，并相同的条目在一起，互相之间间隔一行，如果不能，那么能整个查出所有的相同项目的对应的System ID也不错，非常感谢了！
      2.附件中Account NO.我需要它符合111-XXXXXX-888这个规则，XXXXXX只能是数字，请问怎么写代码可以自动检查这一项，而且可以自动把不符合这个规则的项目整行copy到新sheet中？非常感谢！
附图方便看
新人第一次发帖，如有不正确之处还请见谅！

water-sky

额……忘了说，整个数据表有好几万条数据……所以必须要这样做才能比较简单比较直观的发现结果，否则就算标注填充颜色之类的也很难发现，谢谢！

water-sky

问题确实比较复杂，求高人帮忙啊~非常感谢！！！

water-sky

第一个问题已解决，就剩第二个了，求高手帮忙，谢谢！判断规则的……

huang1314wei

1. Sub text()
   
2.     Dim arr, k%
   
3.     Dim rng1 As Range
   
4.     Dim rng2 As Range
   
5.     arr = Range("A1").CurrentRegion
   
6.     For k = 2 To UBound(arr)
   
7.         If Not arr(k, 2) Like "111-######-888" Then
   
8.            Set rng1 = Rows(k)
   
9.           If rng2 Is Nothing Then
   
10.             Set rng2 = rng1
    
11.           Else
    
12.            Set rng2 = Union(rng1, rng2)
    
13.           End If
    
14.         End If
    
15.     Next
    
16.     Worksheets.Add after:=Sheets(Sheets.Count)
    
17.     Sheet1.Rows(1).Copy Range("A1")
    
18.     rng2.Copy Range("A2")
    
19.     Columns("A:E").AutoFit
    
20. End Sub
    

复制代码

LIUSEN

顶顶顶顶顶顶看