[已解决]VBA多条件（某一时间段）查找

51223524

大家好！
有个问题想要大家帮助， 附件中想要用VBA查询某一时间段的牛号,牛号对应的有多个配种记录。
谢谢！

最佳答案

月排行榜 / 总排行榜

dsmch

2017-1-10 21:53

1. Sub Macro1()
   
2. Dim arr, brr, crr, d, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheet1.Range("a1").CurrentRegion
   
5. Sheet2.Activate
   
6. brr = Range("b8:b" & Range("b65536").End(xlUp).Row)
   
7. ReDim crr(1 To UBound(brr), 1 To 1)
   
8. d1 = [c5]: d2 = [c6]
   
9. For i = 3 To UBound(arr)
   
10.     If arr(i, 2) >= d1 And arr(i, 2) <= d2 Then d(arr(i, 1)) = ""
    
11. Next
    
12. For i = 1 To UBound(brr)
    
13.     If d.exists(brr(i, 1)) Then crr(i, 1) = brr(i, 1)
    
14. Next
    
15. Range("c8").Resize(UBound(crr)) = crr
    
16. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, i&
   
3. arr = Sheet1.Range("a1").CurrentRegion
   
4. ReDim brr(1 To UBound(arr), 1 To 1)
   
5. Sheet2.Activate
   
6. d1 = [c5]: d2 = [c6]
   
7. For i = 3 To UBound(arr)
   
8.     If arr(i, 2) >= d1 And arr(i, 2) <= d2 Then
   
9.         s = s + 1
   
10.         brr(s, 1) = arr(i, 1)
    
11.     End If
    
12. Next
    
13. [c8].Resize(UBound(arr)) = ""
    
14. If s = 1 Then [c8] = brr(1, 1)
    
15. If s > 1 Then Range("c8").Resize(s) = brr
    
16. End Sub

复制代码

51223524

非常感谢您的帮助，但还是有些问题您在给指定一下。
下面是运行的结果
牛号 参配牛号
2082 151861
100296 141567
110383 141550
110385 121001
我想要查找的牛号对应的跟在B列牛号的后面，就像下面这样
牛号 参配牛号
2082
100296 100296
110383
110385 110385

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, crr, d, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheet1.Range("a1").CurrentRegion
   
5. Sheet2.Activate
   
6. brr = Range("b8:b" & Range("b65536").End(xlUp).Row)
   
7. ReDim crr(1 To UBound(brr), 1 To 1)
   
8. d1 = [c5]: d2 = [c6]
   
9. For i = 3 To UBound(arr)
   
10.     If arr(i, 2) >= d1 And arr(i, 2) <= d2 Then d(arr(i, 1)) = ""
    
11. Next
    
12. For i = 1 To UBound(brr)
    
13.     If d.exists(brr(i, 1)) Then crr(i, 1) = brr(i, 1)
    
14. Next
    
15. Range("c8").Resize(UBound(crr)) = crr
    
16. End Sub

复制代码

51223524

非常感谢您的帮助！

51223524

大侠，我想查找倒数第二条记录，不限制时间段了，不知道代码怎么写？