如何用VBA实现分列并计算个数

灯火阑珊888

请教老师，如何用VBA实现分列并计算个数 ,谢谢 如何分列并计算个数.rar (5.95 KB, 下载次数: 8)

2018-1-20 21:32 上传

点击文件名下载附件

灯火阑珊888

请大神支招 谢谢

灯火阑珊888

在线等老师帮助

fyure

看不懂，什么叫0-9的个数
6
29
89
048
17
28
67
26
怎么对应出来
1
1
3
0
1
0
3
2
3
2

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr(0 To 9, 1 To 3)
   
4.   With Worksheets("sheet1")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     arr = .Range("a1:a" & r)
   
7.     For i = 1 To UBound(arr)
   
8.       arr(i, 1) = Replace(arr(i, 1), " ", "")
   
9.       crr = Split(arr(i, 1), ",")
   
10.       For j = 0 To UBound(crr)
    
11.         For k = 1 To Len(crr(j))
    
12.           n = Val(Mid(crr(j), k, 1))
    
13.           brr(n, j + 1) = brr(n, j + 1) + 1
    
14.         Next
    
15.       Next
    
16.     Next
    
17.     .Range("g2").Resize(UBound(brr) + 1, UBound(brr, 2)) = brr
    
18.   End With
    
19. End Sub
    

复制代码

chxw68

详见附件。

灯火阑珊888

chxw68 发表于 2018-1-20 22:23
详见附件。

chxw68老师，B至D列怎么没有分列呢 求教  谢谢

chxw68

灯火阑珊888 发表于 2018-1-20 22:32
chxw68老师，B至D列怎么没有分列呢 求教  谢谢

你不是说B-D列是模拟数据吗？我以为你不要呢。

abc123281

自己修改一下代码不就行了

lsc900707

代码稍加修改即可：