VBA第二种方法有错如何改

laoau138

VBA第二种方法有错如何改

today0427

只有一个错误，就是第一个

1. For i = 1 To UBound(Arr)

复制代码

这里
改成这样就好了

1. For i = 1 To UBound(Arr, 2)

复制代码

代码整体为  我附件传不了，你自己试试看

1. Sub 第二种()
   
2. Dim Arr, X, A%(1 To 33), N%, B(1 To 33), i%, j&, k%               '这个有点错误如何改
   
3. Set Rng = [J10:L10]
   
4. [J12:AP12] = ""
   
5. Arr = [J10:L10]
   
6. For i = 1 To UBound(Arr, 2)
   
7.     If Arr(1, i) > 0 Then A(Arr(1, i)) = 1: N = N + 1
   
8. Next
   
9. 
   
10. Arr = Range([C11], [C65536].End(3)(1, 6))
    
11. 
    
12. For j = 1 To UBound(Arr) - 1
    
13.     X = 0:  For k = 1 To 6:  X = X + A(Arr(j, k)): Next
    
14.     If X = N Then For i = 1 To 6: B(Arr(j + 1, i)) = B(Arr(j + 1, i)) + 1: Next
    
15. Next j
    
16. [J12].Resize(1, 33) = B
    
17. End Sub

复制代码

laoau138

today0427 发表于 2016-9-23 13:09
只有一个错误，就是第一个
这里
改成这样就好了

today就是一个高手

today0427

假酒害人，容易醉死不醒！我可不想引火烧身，你要是还想让我给你答题，就千万别夸我了。这论坛我还想混呢哭死！

laoau138

today0427 发表于 2016-9-23 13:19
假酒害人，容易醉死不醒！我可不想引火烧身，你要是还想让我给你答题，就千万别夸我了。这论坛我还想混 ...

混这个论坛超过一年了，帐号用了接近10个
什么也不懂，