excel vba 统计 A列不同个数怎么做?
答案:1 悬赏:70 手机版
解决时间 2021-12-04 16:13
- 提问者网友：捧腹剧
- 2021-12-04 00:01
excel vba 统计 A列不同个数怎么做?
最佳答案
- 五星知识达人网友：怙棘
- 2021-12-04 00:52
正常情况是，在一个项目中，可以在遍历数据时，顺便计算数目，
可以用字典法，也可以用数组法。追问大哥给我写写吧,一定好好追加!追答Public Sub 计数()
Dim CXrng As Range, d, i As Long
Set d = CreateObject("Scripting.Dictionary")
For Each CXrng In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
If CXrng.Value <> "" And Not d.Exists(CXrng.Value) Then
d(CXrng.Value) = ""
i = i + 1
End If
Next
MsgBox i 'I 是不重复个数
End Sub
可以用字典法，也可以用数组法。追问大哥给我写写吧,一定好好追加!追答Public Sub 计数()
Dim CXrng As Range, d, i As Long
Set d = CreateObject("Scripting.Dictionary")
For Each CXrng In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
If CXrng.Value <> "" And Not d.Exists(CXrng.Value) Then
d(CXrng.Value) = ""
i = i + 1
End If
Next
MsgBox i 'I 是不重复个数
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯