加载中…
个人资料
恩格软件
恩格软件
  • 博客等级:
  • 博客积分:0
  • 博客访问:11,814
  • 关注人气:2
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
相关博文
推荐博文
谁看过这篇博文
加载中…
正文 字体大小:

ExcelVBA中字典的应用

(2021-05-26 19:13:55)
分类: ExcelVBA
Sub Excel中字典的应用()
'应用字典进行不重复取数
Dim arr(), dic As Object, str
Set dic = CreateObject("scripting.dictionary")
'将表格中 a1 到 a100 的值赋给数组
arr = Sheets("Sheet1").Range("a1:a100").Value
'应用字典去重
For Each str In arr
    If dic.exists(str) = False Then
        dic.Add str, str
        Debug.Print str
    End If
Next
’把字典的键值写入b列
Sheets("Sheet1").Range("b1").Resize(dic.Count, 1) = Application.WorksheetFunction.Transpose(dic.keys)
End Sub

0

阅读 评论 收藏 转载 喜欢 打印举报/Report
  • 评论加载中,请稍候...
发评论

    发评论

    以上网友发言只代表其个人观点,不代表新浪网的观点或立场。

      

    新浪BLOG意见反馈留言板 电话:4000520066 提示音后按1键(按当地市话标准计费) 欢迎批评指正

    新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑

    新浪公司 版权所有