- Sub Macro1()
- Dim arr, brr, i&, j%, n&, s&, s2&, s3&
- arr = Range("aj2").CurrentRegion
- brr = [i16:j18]
- n = 1
- For i = 2 To UBound(arr)
- s = 0: s2 = 0: s3 = 0
- For j = 1 To UBound(arr, 2)
- If arr(i, j) Mod 2 = 1 Then s = s + 1
- If arr(i, j) > 28 Then s2 = s2 + 1
- s3 = s3 + arr(i, j)
- Next
- If s >= brr(1, 1) And s <= brr(1, 2) And s2 >= brr(2, 1) And s2 <= brr(2, 2) And s3 >= brr(3, 1) And s3 <= brr(3, 2) Then
- n = n + 1: Cells(i, "aj").Resize(1, 7).Copy Cells(n, "t")
- End If
- Next
- End Sub
复制代码 |