[已解决]在excel表中，求多行奇数个数，把个数填在G列。谢谢

ymq123

在excel表中，求多行奇数个数，把个数填在G列。谢谢

最佳答案

月排行榜 / 总排行榜

xdragon

2013-11-3 21:37

1. Sub test()
   
2. Dim arr(), brr(), i&, j&, counter&
   
3. arr = Range("A1").CurrentRegion.Value
   
4. ReDim brr(1 To UBound(arr))
   
5. For i = 1 To UBound(arr)
   
6.   For j = 1 To UBound(arr, 2)
   
7.     If arr(i, j) Mod 2 = 1 Then counter = counter + 1
   
8.   Next
   
9.   brr(i) = counter
   
10.   counter = 0
    
11. Next
    
12. Range("G1").Resize(UBound(brr)) = Application.Transpose(brr)
    
13. End Sub

复制代码

跳转到最佳答案楼层

我心飞翔410

每行的基数放在一列么

xdragon

1. Sub test()
   
2. Dim arr(), brr(), i&, j&, counter&
   
3. arr = Range("A1").CurrentRegion.Value
   
4. ReDim brr(1 To UBound(arr))
   
5. For i = 1 To UBound(arr)
   
6.   For j = 1 To UBound(arr, 2)
   
7.     If arr(i, j) Mod 2 = 1 Then counter = counter + 1
   
8.   Next
   
9.   brr(i) = counter
   
10.   counter = 0
    
11. Next
    
12. Range("G1").Resize(UBound(brr)) = Application.Transpose(brr)
    
13. End Sub

复制代码

xdragon

再给  你个方法。。。

1. Sub test()
   
2. Dim arr(), brr(), i&, j&, counter&
   
3. arr = Range("A1").CurrentRegion.Value
   
4. ReDim brr(1 To UBound(arr))
   
5. Set d = CreateObject("scripting.dictionary")
   
6. For i = 1 To UBound(arr)
   
7.   For j = 1 To UBound(arr, 2)
   
8.     If arr(i, j) Mod 2 = 1 Then brr(i) = brr(i) + 1
   
9.   Next
   
10. Next
    
11. Range("G1").Resize(UBound(brr)) = Application.Transpose(brr)
    
12. End Sub

复制代码

CheryBTL

xdragon 发表于 2013-11-3 21:44
再给  你个方法。。。

求奇数的方法有很多，不用工作表函数也可以的，像：

1. -1^ar(i,1)<0

复制代码

as0810114

G1输入数组公式，下拉

1. =SUM(N((-1)^A1:E1<0))

复制代码

xdragon

CheryBTL 发表于 2013-11-3 21:50
求奇数的方法有很多，不用工作表函数也可以的，像：

{:21:}mod 是vba的函数啊

CheryBTL

xdragon 发表于 2013-11-3 22:10
mod 是vba的函数啊

工作表和VBA都有，省了速度更快一些吧 {:1012:}

xdragon

CheryBTL 发表于 2013-11-3 22:12
工作表和VBA都有，省了速度更快一些吧

下次试试看速度。。。我感觉都是数学运算，应该速度是一样的。。。>_<