[已解决]求统计指定sheet出现次数的代码

sanfuhai

统计指定sheet中固定区域中的数字出现的次数，详情请看附件： 求统计出现次数的代码.rar (6.82 KB, 下载次数: 7)

2017-4-28 16:28 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-28 16:53

1. Sub aaa()
   
2. Dim arr(5), i&, j&
   
3. For i = 2 To 6 Step 2
   
4.   With Sheets("Sheet" & i)
   
5.     For j = 10 To 15
   
6.       If .Cells(2, j) <> "" Then arr(.Cells(2, j)) = arr(.Cells(2, j)) + 1
   
7.     Next j
   
8.   End With
   
9. Next i
   
10. [c3].Resize(, 6) = arr
    
11. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim arr(5), i&, j&
   
3. For i = 2 To 6 Step 2
   
4.   With Sheets("Sheet" & i)
   
5.     For j = 10 To 15
   
6.       If .Cells(2, j) <> "" Then arr(.Cells(2, j)) = arr(.Cells(2, j)) + 1
   
7.     Next j
   
8.   End With
   
9. Next i
   
10. [c3].Resize(, 6) = arr
    
11. End Sub

复制代码

sanfuhai

大灰狼1976 发表于 2017-4-28 16:53

arr(5) 这个(5)是个什么定义？

大灰狼1976

arr(5) 相当于arr(0 to 5)