|
本帖最后由 xdragon 于 2013-11-3 21:46 编辑
再给 你个方法。。。- Sub test()
- Dim arr(), brr(), i&, j&, counter&
- arr = Range("A1").CurrentRegion.Value
- ReDim brr(1 To UBound(arr))
- Set d = CreateObject("scripting.dictionary")
- For i = 1 To UBound(arr)
- For j = 1 To UBound(arr, 2)
- If arr(i, j) Mod 2 = 1 Then brr(i) = brr(i) + 1
- Next
- Next
- Range("G1").Resize(UBound(brr)) = Application.Transpose(brr)
- End Sub
复制代码 |
|