- Sub test2()
- Dim arr, brr, i%, j%, n%, r&
- arr = Range("A1").CurrentRegion: [c10] = ""
- ReDim brr(1 To UBound(arr), 1 To 1)
- For i = 2 To UBound(arr)
- For j = 6 To 9
- If arr(i, j) >= 70 Then
- n = n + 1
- End If
- Next
- If n = 4 And arr(i, 10) >= 20 And arr(i, 11) >= 20 Then
- r = r + 1
- brr(r, 1) = arr(i, 3)
- End If
- n = 0
- Next
- [c10] = r
- [c12].Resize(r) = brr
- End Sub
复制代码 |