D10：J10（为数据范围）
2.在这个范围找出不同内容有多少个？这个就是我要的结果
EXCEL VBA计算多少个不同内容
答案:3 悬赏:70 手机版
解决时间 2021-04-07 23:17
- 提问者网友：蔚蓝的太阳
- 2021-04-07 05:30
最佳答案
- 五星知识达人网友：北城痞子
- 2021-04-07 07:03
Sub s()
Set rg = [d10:j10]
Set d = CreateObject("scripting.dictionary")
For Each c In rg
For i = 1 To Len(c)
d(Mid(c, i, 1)) = ""
Next
Next
[g4] = d.Count
End Sub
Set rg = [d10:j10]
Set d = CreateObject("scripting.dictionary")
For Each c In rg
For i = 1 To Len(c)
d(Mid(c, i, 1)) = ""
Next
Next
[g4] = d.Count
End Sub
全部回答
- 1楼网友：蓝房子
- 2021-04-07 08:19
直接用公式就可以了，何必再麻烦VBA呢
=SUMPRODUCT(1/COUNTIFS(D10:J10,D10:J10))
- 2楼网友：低血压的长颈鹿
- 2021-04-07 07:35
set rg = [bb10:bh10]
set d = createobject("scripting.dictionary")
for each c in rg
d(c.text) = ""
next
[be7] = d.count
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯