[已解决]数据统计的问题

阿柔

附件 统计数值多少.rar (16.24 KB, 下载次数: 27)

2014-5-22 08:48 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

youfang

2014-5-22 08:58

1. Sub 统计()
   
2. Dim rg As Range
   
3. For Each rg In Sheets(2).UsedRange
   
4. If rg = Sheets(1).[a1] Then
   
5. m = m + 1
   
6. End If
   
7. Next
   
8. Sheets(1).[b1] = m
   
9. End Sub
   

复制代码

跳转到最佳答案楼层

eyat

=COUNTIF(Sheet2!A1:AW49,A1)

youfang

1. Sub 统计()
   
2. Dim rg As Range
   
3. For Each rg In Sheets(2).UsedRange
   
4. If rg = Sheets(1).[a1] Then
   
5. m = m + 1
   
6. End If
   
7. Next
   
8. Sheets(1).[b1] = m
   
9. End Sub
   

复制代码

baksy

=COUNTIF(Sheet2!1:1048576,A1)