求老师帮忙用VBA写一下多条件判断引用

JIUYINI

求老师帮忙用VBA写一下多条件判断引用。
1，判断在G列单元格“√”的，对应左边E列E7单元格羊，把B列B7单元格里面的编号写入到，公式精选工作表 B2单元格。
2，上下相邻的几行如果在E列是一样的就只选一个，例如：E7,E8单元格都是“羊”，就选上面第一个。然后写入到公式精选工作表 B3单元格，以这样的条件向下选择。
3，当选择的条数等于=公式精选工作表 M1单元格中的数量时停止。
4，黄色标注的地方就是我手工演示的结果。

JIUYINI

怎么这次审核要几个小时

gwjkkkkk

请参考附件。。。

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("公式精选")
   
5.         sl = .Range("m1")
   
6.     End With
   
7.     ReDim brr(1 To sl, 1 To 2)
   
8.     m = 0
   
9.     With Worksheets("排序")
   
10.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
11.         arr = .Range("a2:g" & r)
    
12.         xm = Empty
    
13.         For i = 1 To UBound(arr)
    
14.             If arr(i, 7) = "√" Then
    
15.                 If xm <> arr(i, 5) Then
    
16.                     m = m + 1
    
17.                     If m > sl Then
    
18.                         Exit For
    
19.                     End If
    
20.                     brr(m, 1) = m
    
21.                     brr(m, 2) = arr(i, 2)
    
22.                     xm = arr(i, 5)
    
23.                 End If
    
24.             End If
    
25.         Next
    
26.     End With
    
27.     With Worksheets("公式精选")
    
28.         .UsedRange.Offset(1, 0).Clear
    
29.         .Range("a2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
30.     End With
    
31. End Sub
    

复制代码

chxw68

详见附件。