统计姓名的出现次数用VBA怎么写？

ssqyc

VB_8列.rar (8.63 KB, 下载次数: 22)

2014-2-5 10:35 上传

点击文件名下载附件

liulang0808

用字典吧。。。。

ssqyc

老师用VBA怎么写！！！

liulang0808

Private Sub CommandButton1_Click()
    Set d = CreateObject("scripting.dictionary")
    Application.ScreenUpdating = False
    arr = UsedRange
    For j = 1 To 8
        For i = 2 To Cells(Rows.Count, j).End(3).Row
            d(arr(i, j)) = d(arr(i, j)) + 1
        Next i
    Next j
    arr1 = d.keys
    arr2 = d.items
    For i = 0 To UBound(arr1)
        Cells(Rows.Count, 9 + arr2(i)).End(3).Offset(1, 0) = arr1(i)
    Next i
    Application.ScreenUpdating = True
End Sub

liulang0808

详见附件，看看是否达到你的需求

ssqyc

Private Sub CommandButton1_Click()
    Set d = CreateObject("scripting.dictionary")
    Application.ScreenUpdating = False
    arr = UsedRange
    For j = 1 To 8
        For i = 2 To Cells(Rows.Count, j).End(3).Row
            d(arr(i, j)) = d(arr(i, j)) + 1
        Next i
    Next j
    arr1 = d.keys
    arr2 = d.items
    For i = 0 To UBound(arr1)
        Cells(Rows.Count, 9 + arr2(i)).End(3).Offset(1, 0) = arr1(i)
    Next i
    Application.ScreenUpdating = True
End Sub

老师每次统计的时候统计的数据不要递增好不？VBA怎么改

ssqyc

liulang0808 发表于 2014-2-5 11:02
详见附件，看看是否达到你的需求

1. 
   
2. Private Sub CommandButton1_Click()
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     Application.ScreenUpdating = False
   
5.     arr = UsedRange
   
6.     For j = 1 To 8
   
7.         For i = 2 To Cells(Rows.Count, j).End(3).Row
   
8.             d(arr(i, j)) = d(arr(i, j)) + 1
   
9.         Next i
   
10.     Next j
    
11.     arr1 = d.keys
    
12.     arr2 = d.items
    
13.     For i = 0 To UBound(arr1)
    
14.         Cells(Rows.Count, 9 + arr2(i)).End(3).Offset(1, 0) = arr1(i)
    
15.     Next i
    
16.     Application.ScreenUpdating = True
    
17. End Sub

复制代码

老师每次统计的时候统计的数据不要递增好不？VBA怎么改?

liulang0808

ssqyc 发表于 2014-2-5 11:18
老师每次统计的时候统计的数据不要递增好不？VBA怎么改?

不递增是什么意思啊 ？是需要先清空出现j列以后那些内容，然后更新吗

ssqyc

liulang0808 发表于 2014-2-5 11:21
不递增是什么意思啊 ？是需要先清空出现j列以后那些内容，然后更新吗

连续点统计，数据会递增的

liulang0808

ssqyc 发表于 2014-2-5 11:27
连续点统计，数据会递增的

不明白，你的连续统计是什么意思啊？
如果你的a到h列不断往里面拷贝数据吗？那么你后的统计结果也要先清空啊
代码前面增加一段吧Range("J2:R" & Rows.Count).ClearContents