[已解决]统计个位数字的个数

ymq123

请编写代码:
按先后顺序，分别计算各行数字个位数字相同的个数，结果输出在以M1为顶点的单元格区域内.
例如：表格第一行，个位数字是3的2个、个位数字是4的2、个位数字是9的1个、个位数字是0的1个、个数字是1的1个.
输出顺序为:2  2  1  1  1
其它类推。
谢谢

最佳答案

月排行榜 / 总排行榜

dongqing1998

2013-12-16 02:53

请楼主测试。

跳转到最佳答案楼层

dongqing1998

请楼主测试。

tgydslr

代码不很懂，学习一下总没错

CheryBTL

借用2楼大师的代码，数据多时，可以提升下速度：

1. Sub test1()
   
2.     Dim arr, brr(), i%, j%, d, temp
   
3.     arr = Range("a1").CurrentRegion
   
4.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
5.     ReDim re(1 To UBound(arr), 1 To UBound(arr, 2))
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     Range("M:Z").ClearContents
   
8.     For i = 1 To UBound(arr)
   
9.         For j = 1 To UBound(arr, 2)
   
10.             If arr(i, j) <> "" Then
    
11.                 d(Right(arr(i, j), 1)) = d(Right(arr(i, j), 1)) + 1
    
12.             End If
    
13.         Next
    
14.         temp = d.items
    
15.         d.RemoveAll
    
16.         For j = 0 To UBound(temp)
    
17.             re(i, j + 1) = temp(j)
    
18.         Next j
    
19.     Next
    
20.     [m1].Resize(UBound(re), UBound(re, 2)) = re
    
21. End Sub

复制代码