[已解决]统计一列中相关列字符的数量

hhaa999

统计数量

最佳答案

月排行榜 / 总排行榜

XMergeD

2014-4-13 12:55

1. Sub t()
   
2.   Dim arr(), i&, d As Object, s$, rng As Range
   
3.   arr = Range("A1").CurrentRegion.Value
   
4.   Set d = CreateObject("scripting.dictionary")
   
5.   For i = 1 To UBound(arr)
   
6.     s = Left(arr(i, 1), 4) & arr(i, 2)
   
7.     d(s) = d(s) + 1
   
8.   Next
   
9.   For Each rng In Range("G2:H4")
   
10.     rng = d(Cells(rng.Row, "F") & Left(Cells(1, rng.Column), 1))
    
11.   Next
    
12. End Sub

复制代码

跳转到最佳答案楼层

XMergeD

1. Sub t()
   
2.   Dim arr(), i&, d As Object, s$, rng As Range
   
3.   arr = Range("A1").CurrentRegion.Value
   
4.   Set d = CreateObject("scripting.dictionary")
   
5.   For i = 1 To UBound(arr)
   
6.     s = Left(arr(i, 1), 4) & arr(i, 2)
   
7.     d(s) = d(s) + 1
   
8.   Next
   
9.   For Each rng In Range("G2:H4")
   
10.     rng = d(Cells(rng.Row, "F") & Left(Cells(1, rng.Column), 1))
    
11.   Next
    
12. End Sub

复制代码

huangcaiguang

XMergeD 发表于 2014-4-13 12:55

这是字典？

冠军欧洲2010

笨法。

yqnh

向各位老师们学习，字典学了久了，没练了，又忘了

XMergeD

huangcaiguang 发表于 2014-4-13 13:11
这是字典？

是的