[已解决]VBA数组不定位跟随错在哪里

laoau138

VBA数组不定位跟随错在哪里

最佳答案

月排行榜 / 总排行榜

france723

2017-5-30 14:54

少了一组循环

1. Sub Test2()
   
2.     Dim Arr, Brr, i&, j%, x%, n
   
3.     Arr = [a10].CurrentRegion
   
4.     [J12:AP12] = ""
   
5.     Brr = [J11:AP12]
   
6.     x = [j10].Value
   
7.     For i = 2 To UBound(Arr) - 1
   
8.         For j = 3 To UBound(Arr, 2)
   
9.             If Arr(i, j) = x Then
   
10.                 For k = 1 To UBound(Brr, 2)
    
11.                     For n = 3 To UBound(Arr, 2)
    
12.                         If Arr(i + 1, n) = Brr(1, k) Then
    
13.                             Brr(2, k) = Brr(2, k) + 1
    
14.                         End If
    
15.                     Next n
    
16.                 Next k
    
17.             End If
    
18.         Next j
    
19.     Next i
    
20.     [j11].Resize(2, UBound(Brr, 2)) = Brr
    
21. End Sub

复制代码

跳转到最佳答案楼层

france723

少了一组循环

1. Sub Test2()
   
2.     Dim Arr, Brr, i&, j%, x%, n
   
3.     Arr = [a10].CurrentRegion
   
4.     [J12:AP12] = ""
   
5.     Brr = [J11:AP12]
   
6.     x = [j10].Value
   
7.     For i = 2 To UBound(Arr) - 1
   
8.         For j = 3 To UBound(Arr, 2)
   
9.             If Arr(i, j) = x Then
   
10.                 For k = 1 To UBound(Brr, 2)
    
11.                     For n = 3 To UBound(Arr, 2)
    
12.                         If Arr(i + 1, n) = Brr(1, k) Then
    
13.                             Brr(2, k) = Brr(2, k) + 1
    
14.                         End If
    
15.                     Next n
    
16.                 Next k
    
17.             End If
    
18.         Next j
    
19.     Next i
    
20.     [j11].Resize(2, UBound(Brr, 2)) = Brr
    
21. End Sub

复制代码

laoau138

france723 发表于 2017-5-30 14:54
少了一组循环

小猫果然高手

laoau138

france723 发表于 2017-5-30 14:54
少了一组循环

还有一个问题

VBA数组不定位跟随  改写支持多个数

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