下面这个字典还有一点问题,请高手改写一下
Function 不重复个数(rg As Range)
Dim d, r As Range
Set d = CreateObject("scripting.dictionary")
For Each r In rg
d(r.Text) = ""
Next
不重复个数 = d.Count
End Function
Dim d, r As Range
Set d = CreateObject("scripting.dictionary")
For Each r In rg
d(r.Text) = ""
Next
不重复个数 = d.Count
End Function
佚名
2024-05-18 08:18:09
类似问题(10)
-
佚名2024-05-18 17:46:50
问问一下关于朝鲜这个名字的问题
答朝鲜国名的正确读法长期以来,我们一直把朝鲜读作(chao2 xian3)。但究其缘由,朝鲜并不应该这样读。“早晨的太阳光芒万道多鲜艳,我们的国家因此起名叫朝鲜”...
-
佚名2024-05-18 10:33:15
问起名字典?请高手解答一下
答起名字是一辈子的是,建议这位朋友到猪八戒上看看吧~~~~~~~~希望可以帮到你呀
-
佚名2024-05-18 18:13:36
问请问一下一个关于绝地求生的问题
答你已经问了很多次了吧,不能~~~都说绝地求生个人交易已经关闭,只能通过steam市场来交易,而你所说的小丑套装所有套件的标签,都是不能交易不能出售的,所以你没法...
-
佚名2024-05-18 15:22:58
问请问一下高手我这只犬是巴吉度犬还是比格犬,帮忙看一下值多少钱
答从图片上看,有点像比格犬,但是也有点巴吉度犬两个血统都有,不过是一直很可爱的狗狗希望楼主能好好的善待狗狗,希望采纳
-
佚名2024-05-18 13:22:41
问SQL 模糊查询的问题 高手来解答一下
答你的s_name字段类型应该是varchar吗?如果是char()型的,它后面有空格,应该把空格去掉,使用rtrim(s_name) like '刘_'试一试
-
佚名2024-05-18 08:00:00
问上面一个人下面一个工 请问这个字念什么?
答仝 tóng 〈形〉 “同”的古字.相同;一样 (1) 同“同”. (2) 姓氏.
-
佚名2024-05-18 08:00:00
问各位大侠请出手相助:我想问一下“辶”上面一个“氏”字,“氏”字下面有个“口”字,这个字怎么打出来,
答这个字电脑上一般的输入法根本无法打出来,用海峰五笔并安装大字集才可以打出,如果你用这个字,我保你会后悔的,身份证可能都办不到,日后办事根本无法办!
-
佚名2024-05-18 08:00:00
问你好!请问我能请教您一下问题?我有很多字不会写,我应该怎练习有进步快一点
答手机的影响,很多人都不会用笔写或者写了以后有写对了吗的疑惑。。你拿新华字典从头开始,照着抄写 字、音、解释,相信很快会有进步的
-
佚名2024-05-18 08:00:00
问请高手指点一下!
答 -
佚名2024-05-18 08:00:00
问宽带.路由器问题!!!请那位高手进去帮我解释一下
答我也遇见了你这样的情况,我的路由连接的时候WAN接口的灯不亮,所以路由总是连接不上,但是直接用电脑连接就可以上了。如果你的情况和我一样,你试试给路由换根线(要能...
风水
起名
网名
说说
- 1 没有故事的个性签名
- 2 一套的女生网名 女生个性签名
- 3 吃女朋友醋的说说
- 4 空间留言板说说
- 5 100字可爱说说
- 6 关于手肿的说说
- 7 国庆值班说说
- 8 两个人亲吻的说说
- 9 写给把钱看得很重的人的说说
- 10 朋友问我愿意嫁台湾的说说