[已解决]如何进行对部分单元格0~9出现的次数由低到高排序放在一个单元格内

gdgmwhs

如何进行对部分单元格0~9出现的次数由低到高排序放在一个单元格内
比如是统计：A1：D8

最佳答案

月排行榜 / 总排行榜

cbg2008

2013-3-28 16:27

gdgmwhs 发表于 2013-3-28 15:24
是我想得不周到，现在要求描述完了，谢谢！

排序测试文件.rar (9.99 KB, 下载次数: 72)

2013-3-28 16:27 上传

点击文件名下载附件

跳转到最佳答案楼层

cbg2008

每个单元格有什么内容，是一位数，还是几位数，结果是怎么摆放，做一个测试文件，模拟正确结果

gdgmwhs

1~7位由0123456789组成的数字

gdgmwhs

cbg2008 发表于 2013-3-27 11:15
每个单元格有什么内容，是一位数，还是几位数，结果是怎么摆放，做一个测试文件，模拟正确结果

1~7位由0123456789组成的数字

cbg2008

gdgmwhs 发表于 2013-3-27 15:18
1~7位由0123456789组成的数字

1. Sub TONGJI()
   
2.     Dim Arr_Source
   
3.     Dim Arr_Target(1 To 10)
   
4.     Dim i%, j%, k%, Trg$
   
5.     Dim D As Object
   
6.     Set D = CreateObject("Scripting.Dictionary")
   
7. 
   
8.     Arr_Source = Sheets(1).Range("a1").CurrentRegion
   
9.     For i = 1 To UBound(Arr_Source)
   
10.         For j = 1 To UBound(Arr_Source, 2)
    
11.             For k = 1 To Len(Arr_Source(i, j))
    
12.                 D(Mid(Arr_Source(i, j), k, 1)) = D(Mid(Arr_Source(i, j), k, 1)) + 1
    
13.             Next
    
14.         Next
    
15.     Next
    
16.     For i = 0 To 9
    
17.         D(i & "") = D(i & "") * 10 + i
    
18.     Next
    
19.     For i = 1 To 10
    
20.         Arr_Target(i) = VBA.Right(WorksheetFunction.Small(D.items, i), 1)
    
21.     Next
    
22.     Trg = Join(Arr_Target, "")
    
23.     Sheets(1).Range("F11") = Trg
    
24. End Sub

复制代码

gdgmwhs

cbg2008 发表于 2013-3-27 15:56

谢谢了！可以算了。但有个问题，我在一个表中要固定选择一部分来计算，比如要选择A1：D6算一个，放在E6，A7：D11又算一个，放在E11，我又怎么做好呢？其实我在一个表要算好几个这样的排序。设好后，我去更换计算样本，排序结果能自动算出来最好。

cbg2008

gdgmwhs 发表于 2013-3-28 09:55
谢谢了！可以算了。但有个问题，我在一个表中要固定选择一部分来计算，比如要选择A1：D6算一个，放在E6 ...

你要把话一次说完，不能这样做完了新加条件

gdgmwhs

cbg2008 发表于 2013-3-28 10:18
你要把话一次说完，不能这样做完了新加条件

是我想得不周到，现在要求描述完了，谢谢！

cbg2008

gdgmwhs 发表于 2013-3-28 15:24
是我想得不周到，现在要求描述完了，谢谢！

排序测试文件.rar (9.99 KB, 下载次数: 72)

2013-3-28 16:27 上传

点击文件名下载附件

gdgmwhs

cbg2008 发表于 2013-3-28 16:27

我用了，太好用了，就是高手，太谢谢你了！