[已解决]VBA改写两个数不能在同一行总次数

laoau138

VBA改写两个数不能在同一行总次数

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-5-24 09:08

代码请测试。
顺便说一下，你原来的代码是错的，你可以在源数据里挑一行输入两个1，运行看下结果就明白了。

1. Sub aaa()
   
2. Dim arr, i&, brr, j&, m&, n1&, n2&
   
3. Sheet1.Activate
   
4. [l10:l5000].ClearContents
   
5. arr = [a9].CurrentRegion
   
6. brr = [p9].CurrentRegion
   
7. For i = 2 To UBound(brr)
   
8. m = 0
   
9. For x = 2 To UBound(arr)
   
10. n1 = 0: n2 = 0
    
11. For j = 3 To UBound(arr, 2)
    
12. If arr(x, j) = brr(i, 1) Then n1 =  1
    
13. If arr(x, j) = brr(i, 2) Then n2 =  1
    
14. Next
    
15. If n1 + n2 = 2 Then m = m + 1
    
16. Next
    
17. brr(i, 3) = UBound(arr) - 1 - m
    
18. Next
    
19. [p9].CurrentRegion = brr
    
20. 
    
21. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

代码请测试。
顺便说一下，你原来的代码是错的，你可以在源数据里挑一行输入两个1，运行看下结果就明白了。

1. Sub aaa()
   
2. Dim arr, i&, brr, j&, m&, n1&, n2&
   
3. Sheet1.Activate
   
4. [l10:l5000].ClearContents
   
5. arr = [a9].CurrentRegion
   
6. brr = [p9].CurrentRegion
   
7. For i = 2 To UBound(brr)
   
8. m = 0
   
9. For x = 2 To UBound(arr)
   
10. n1 = 0: n2 = 0
    
11. For j = 3 To UBound(arr, 2)
    
12. If arr(x, j) = brr(i, 1) Then n1 =  1
    
13. If arr(x, j) = brr(i, 2) Then n2 =  1
    
14. Next
    
15. If n1 + n2 = 2 Then m = m + 1
    
16. Next
    
17. brr(i, 3) = UBound(arr) - 1 - m
    
18. Next
    
19. [p9].CurrentRegion = brr
    
20. 
    
21. End Sub

复制代码

laoau138

大灰狼1976 发表于 2017-5-24 09:08
代码请测试。
顺便说一下，你原来的代码是错的，你可以在源数据里挑一行输入两个1，运行看下结果就明白了 ...

代码没有错，你说的情况不存在，没有相同数字了

laoau138

所以这个没有错

大灰狼1976

laoau138 发表于 2017-5-24 13:24
所以这个没有错

是我表达有问题，应该不是有错，而是不严谨。

laoau138

大灰狼1976 发表于 2017-5-24 09:08
代码请测试。
顺便说一下，你原来的代码是错的，你可以在源数据里挑一行输入两个1，运行看下结果就明白了 ...

用VBA数组for each   行与行循环比较几个数字


http://www.excelpx.com/thread-430503-1-1.html