- Sub shaixuan()
- Dim arr, brr
- Dim x, y
- arr = Range("a1").CurrentRegion
- ReDim brr(1 To UBound(arr), 1 To 4)
- For x = 2 To UBound(arr)
- If arr(x, 2) > 60 And arr(x, 3) > 60 Then
- y = y + 1
- brr(y, 1) = arr(x, 1)
- brr(y, 2) = arr(x, 2)
- brr(y, 3) = arr(x, 3)
- brr(y, 4) = arr(x, 4)
- End If
- Next x
- Range("g5:j1000").ClearContents
- Range("g5").Resize(y, 4) = brr
- End Sub
复制代码 |