|
发表于 2013-5-31 23:11
|
显示全部楼层
本楼为最佳答案
- Dim arr, arrResult
- Dim i As Long, j As Long
- Dim lRecordCount As Long
- arr = Range("A1").CurrentRegion
- ReDim arrResult(1 To UBound(arr), 1 To UBound(arr, 2))
- For j = LBound(arr, 2) To UBound(arr, 2)
- arrResult(1, j) = arr(1, j)
- Next
- lRecordCount = 1
- For i = LBound(arr) + 1 To UBound(arr)
- If arr(i, 3) >= 90 Then
- lRecordCount = lRecordCount + 1
- For j = LBound(arr, 2) To UBound(arr, 2)
- arrResult(lRecordCount, j) = arr(i, j)
- Next
- End If
- Next
复制代码 |
|