[已解决]VBA数组倒数多少行开始计算 1-33这些数字次数

laoau138

VBA数组倒数多少行开始计算  1-33这些数字次数

最佳答案

月排行榜 / 总排行榜

france723

2017-5-3 15:56

1. Sub aaa()
   
2. Dim k, ar, br, n, v, t, h
   
3. h = Range("a65536").End(3).Row
   
4. If h > 189 Then
   
5.     MsgBox ("More than 189")
   
6. Else
   
7.     k = 189 - [k1] + 1
   
8.     ar = Range("h189:c" & k)
   
9.     br = Range("k16:aq16")
   
10.     y = 11
    
11.     For Each n In br
    
12.         t = 0
    
13.         For Each v In ar
    
14.         If n = v Then
    
15.             t = t + 1
    
16.         End If
    
17.         Next v
    
18.         Cells(17, y) = t
    
19.         y = y + 1
    
20.     Next n
    
21. End If
    
22. End Sub

复制代码

跳转到最佳答案楼层

france723

1. Sub aaa()
   
2. Dim k, ar, br, n, v, t, h
   
3. h = Range("a65536").End(3).Row
   
4. If h > 189 Then
   
5.     MsgBox ("More than 189")
   
6. Else
   
7.     k = 189 - [k1] + 1
   
8.     ar = Range("h189:c" & k)
   
9.     br = Range("k16:aq16")
   
10.     y = 11
    
11.     For Each n In br
    
12.         t = 0
    
13.         For Each v In ar
    
14.         If n = v Then
    
15.             t = t + 1
    
16.         End If
    
17.         Next v
    
18.         Cells(17, y) = t
    
19.         y = y + 1
    
20.     Next n
    
21. End If
    
22. End Sub

复制代码

laoau138

france723 发表于 2017-5-3 15:56

小猫是高手

france723

laoau138 发表于 2017-5-3 16:57
小猫是高手

哪里哪里, 我也才接触了一个月vba. 大家共同进步

laoau138

france723 发表于 2017-5-3 17:00
哪里哪里, 我也才接触了一个月vba. 大家共同进步

你是天才了

VBA数组倒重新排序一次

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