|
发表于 2014-3-13 16:19
|
显示全部楼层
本楼为最佳答案
- Sub A()
- Dim M%, N%
- Dim ARR, BRR(1 To 10000, 1 To 3)
- ARR = Range("A4:G20")
- For M = 1 To UBound(ARR)
- If ARR(M, 6) = "是" Then
- N = N + 1
- BRR(N, 1) = ARR(M, 1)
- BRR(N, 2) = ARR(M, 3)
- BRR(N, 3) = ARR(M, 7)
- End If
- Next
- Range("I17").Resize(N + 1, 3).ClearContents
- Range("I17").Resize(1, 3) = Array("一", "三", "七")
- Range("I18").Resize(N, 3) = BRR
- End Sub
复制代码 |
|