|
发表于 2014-1-27 22:51
|
显示全部楼层
本楼为最佳答案
- Sub Co()
- Dim arr(), i%, j&, re(1 To 1, 1 To 10)
- ReDim arr(1 To Sheets.Count)
- For i = 1 To UBound(arr)
- arr(i) = Sheets(CStr(i)).Range("N2:CL2").Value
- For j = 1 To UBound(arr(i), 2)
- If arr(i)(1, j) >= 1 And arr(i)(1, j) <= 10 Then re(1, arr(i)(1, j)) = re(1, arr(i)(1, j)) + 1
- Next
- Sheets(CStr(i)).Range("H1:Q1") = re
- Next
- For i = 2 To 4
- [A2].Offset(0, i) = Sheets(CStr(i)).[b2].Value
- Next
- End Sub
复制代码 不知是否符合楼主的要求。看看。。 |
|