[已解决]请教各位：如何把我表格里面的字母代号挑出来并得出计数值。

hsy873399

不挑数字和日期。值判断字母代号个数（就是非数值也不是日期）。并计数。 有什么办法啊？VBA代码哈

最佳答案

月排行榜 / 总排行榜

mxg825

2011-11-3 00:55

1. Sub 不重复字母()
   
2. Dim arr, X%
   
3. Sheet1.Range("F:G").Clear
   
4. arr = Sheet1.UsedRange
   
5. For Each RAN In arr
   
6. 'If TypeName(RAN) = "String" Then '如果 2011.10.1 不按日期格式处理 用这一句
   
7. If TypeName(RAN) = "String" And Not IsDate(Replace(RAN, ".", "-")) Then
   
8.   X = X + 1
   
9. End If
   
10. Next
    
11. MsgBox "数据区域有" & X & "个"
    
12. End Sub

复制代码

跳转到最佳答案楼层

mxg825

上附件，，用字典 这个问题最好解决了

hsy873399

回复 mxg825 的帖子

123.rar (4.17 KB, 下载次数: 18)

2011-11-2 23:48 上传

点击文件名下载附件

mxg825

2011.10.1  不是日期格式，，，要不要当日期处理？

Select

路过，
没看懂题意

mxg825

1. Sub 不重复字母()
   
2. Dim arr, d As Object, RAN
   
3. On Error Resume Next
   
4. Set d = CreateObject("scripting.dictionary")
   
5. Sheet1.Range("F:G").Clear
   
6. arr = Sheet1.UsedRange
   
7. d("字符") = "出现次数"
   
8. For Each RAN In arr
   
9. 'If TypeName(RAN) = "String" Then '如果 2011.10.1 不按日期格式处理 用这一句
   
10. If TypeName(RAN) = "String" And Not IsDate(Replace(RAN, ".", "-")) Then
    
11. d(RAN) = d(RAN) + 1
    
12. End If
    
13. Next
    
14. Sheet1.Range("F1").Resize(d.Count) = Application.Transpose(d.Keys)
    
15. Sheet1.Range("G1").Resize(d.Count) = Application.Transpose(d.Items)
    
16. End Sub
    

复制代码

hsy873399

回复 mxg825 的帖子

非常感谢！不过不能解决我的问题。我的意思不是要得出几次。我的意思是绿色区域的字母代号一共有7个。统计个数。

mxg825

那你要说清楚点呀！
把结果 写出来 看看！

hsy873399

回复 mxg825 的帖子

结果就是要统计这个区域里面有多少个字母所组成的代号。多少个。比如这里面现在是10个。

mxg825

1. Sub 不重复字母()
   
2. Dim arr, X%
   
3. Sheet1.Range("F:G").Clear
   
4. arr = Sheet1.UsedRange
   
5. For Each RAN In arr
   
6. 'If TypeName(RAN) = "String" Then '如果 2011.10.1 不按日期格式处理 用这一句
   
7. If TypeName(RAN) = "String" And Not IsDate(Replace(RAN, ".", "-")) Then
   
8.   X = X + 1
   
9. End If
   
10. Next
    
11. MsgBox "数据区域有" & X & "个"
    
12. End Sub

复制代码