精华内容
下载资源
问答
  • 这段时间颇有点邯郸学步的感觉,由于把大量的时间和精力投入到python中,之前学的vba...VBA字典技术VBA字典在日常统计工作中是个十分有用的技术,但是在写程序时,由于不熟练和个人记忆力有限,总要翻阅资料,于是产...

    这段时间颇有点邯郸学步的感觉,由于把大量的时间和精力投入到python中,之前学的vba到想用的时候,居然忘了。

    作为非程序员,编程向来当成"核导弹"来用,一次编写出来,能用,好,很难再有机会写第二遍代码了,因为问题解决了,以至于一直在遗忘的状态,再想用的时候到处翻资料,笔记。

    VBA字典技术

    VBA字典在日常统计工作中是个十分有用的技术,但是在写程序时,由于不熟练和个人记忆力有限,总要翻阅资料,于是产生将常用的字典技术汇集起来的想法。

    一、入门篇

    字典: 是为字词提供音韵、意思解释、例句、用法等等的工具书。

    在VBA中字典与传统理解的字典差不多:

    1、都具有关键字(key)和值(item)一一对应的关系,

    2、键具有唯一性。

    VBA字典的作用,与数组的结合运用,简化代码(其实是牺牲内存,空间换取时间的用法,但在现时代通用的电脑普遍内存够用的),提升速度等一些强大的功能。

    字典不存在与VBA中,需要调用,有两种方法:

    1、前期绑定,在EXCEL表格开发工具中,工具-引用-浏览-找到scrrun.dll-确定;

    2、后期绑定,直接用代码创建调用:Set d = CreateObject("scripting.dictionary")

    本文主要采用后期绑定方式记录字典用法。

    字典对象的方法有6个:

    Add 添加一条关键字与条目

    Keys 返回所有关键字(形成1维数组)

    Items 返回所有条目(形成1维数组)

    Exists 关键字是否存在(TRUE/FALSE)

    Remove 移除关键字与对应的条目

    RemoveAll 移除所有关键字与对应的条目

    向 Dictionary 对象中添加一个关键字项目对。

    语法:object.Add (key, item)

    Key,必选项。与被添加的 item 相关联的 key。

    Item,必选项。与被添加的 key 相关联的 item。

    key 是唯一存在的,否则将导致一个错误。

    实例1:Sub kaishi()

    '字典的键索引从零开始为第一个键

    Dim d As New Dictionary, i, j, k, l

    Set d = CreateObject("scripting.dictionary")

    d.Add "张三", "15"

    d.Add "李四", "18"

    ‘基础取值方法

    i = d.Keys(0)

    j = Application.WorksheetFunction.Index(d.Keys, 2)

    k = d.Keys ’keys会返回一个数组,所以可以用Index方法取值

    l = k(1)

    'Exists方法

    '如果 Dictionary 对象中存在所指定的关键字则返回 true,否则返回 false。

    ' a = d.Exists("李四")

    'Remove方法

    'Remove 方法从一个 Dictionary 对象中清除一个键——值对。

    d.Remove ("李四")

    'RemoveAll方法

    'RemoveAll 方法从一个 Dictionary 对象中清除所有键——值对。

    d.RemoveAll

    End Sub

    字典对象的属性有4个:

    CompareMode属性

    Count属性

    Key属性

    Item属性

    实例2:Sub test()

    Set d = CreateObject("scripting.dictionary")

    '1.CompareMode属性

    '设置或者返回在 Dictionary 对象中进行字符串关键字比较时所使用的比较模式。

    d.CompareMode = 0 '1则不区分大小写,0则区分大小写,默认为1

    d.Add "a", ""

    d.Add "A", ""

    d.Add "张三", "13434544323"

    d.Add "李四", "13589898999"

    d.Add "王五", "13456565567"

    '2.Count属性

    '返回一个Dictionary 对象中的项目数.只读属性

    k = d.Count

    '3.Key属性

    '在 Dictionary 对象中修改一个 key。

    d.Key("王五") = "牛三斤"

    '4.Item属性

    '在一个 Dictionary 对象中设置或者返回所指定 key 的 item。对于集合则根据所指定的 key 返回一个 item。

    i = d.Items

    d.Item("张三") = "112233"

    i = d.Items

    d("张三") = 987 '简写方式

    i = d.Items

    '注意:容易混淆知识点。d.key("a")与d("a")

    End Sub

    二、实战篇

    实例3:第一次与最后一次采购价格提取

    feab2f6c6840

    在VBA中,字典的键具有唯一性,采用add方法,如果有重复的键则会发生错误,根据这一特性,可以提取到第一次出现的键——值对。

    而采用d.item(key)=value替换方法,新的键——值对会替换掉之前的键——值对,从而提取到最后一次键——值对。

    由于d.keys与d.items都会形成标准的一维数组,在写入纵向的单元格时,需要通过transpose进行转置。

    '求每种产品第一次采购价

    Sub first()

    Dim arr()

    On Error Resume Next

    Set d = CreateObject("scripting.dictionary")

    arr = Range("b1:c" & Cells(Rows.Count, 3).End(xlUp).Row)

    For i = 1 To UBound(arr)

    d.Add arr(i, 1), arr(i, 2)

    Next

    [e1].Resize(d.Count) = Application.Transpose(d.keys)

    [f1].Resize(d.Count) = Application.Transpose(d.items)

    End Sub

    '求每种产品最后一次采购价

    Sub last()

    Dim arr()

    Set d = CreateObject("scripting.dictionary")

    arr = Range("b1:c" & Cells(Rows.Count, 3).End(xlUp).Row)

    For i = 1 To UBound(arr)

    d(arr(i, 1)) = arr(i, 2)

    Next

    [i1].Resize(d.Count) = Application.Transpose(d.keys)

    [j1].Resize(d.Count) = Application.Transpose(d.items)

    End Sub

    实例4:多表求不重复值

    值得一提的是d(key)=value方法,没有就写入,有就替换,而且并不会随着循环的改变清空其中的键——值对。

    feab2f6c6840

    Sub test()

    Set d = CreateObject("scripting.dictionary")

    For Each sh In Sheets

    c = sh.Name

    If sh.Name <> "品名" Then

    arr = sh.Range("a1:a" & sh.Cells(Rows.Count, 1).End(xlUp).Row)

    For Each Rng In arr

    d(Rng) = ""

    Next

    End If

    Next

    [a1].Resize(d.Count) = Application.Transpose(d.keys)

    End Sub

    实例5:字典与数组的结合运用

    feab2f6c6840

    Sub test()

    Set d = CreateObject("scripting.dictionary")

    arr = Sheet1.Range("a1:b" & Sheet1.Cells(Rows.Count, "a").End(xlUp).Row)

    For Each Rng In arr

    arr1 = VBA.Split(Rng, "|")

    For Each rngs In arr1

    d(rngs) = ""

    Next

    i = VBA.Join(d.keys, "|")

    n = n + 1

    Sheet2.Cells(n, "a") = i

    d.RemoveAll’清除本次循环的键值对

    Next

    End Sub

    实例6:分类计算

    字典可以通过键对应空值d(key)=d(key)+1,形成迭代计算从而统计出重复键出现次数。

    而d(key)=d(key)+value,形成替换累加效果。

    feab2f6c6840

    Sub 分类计数()

    Dim arr1

    Set d = CreateObject("scripting.dictionary")

    arr = Range("b2:b" & Cells(Rows.Count, 2).End(xlUp).Row)

    For Each Rng In arr

    i = d(Rng)

    d(Rng) = d(Rng) + 1

    i = d(Rng)

    Next

    [e1].Resize(d.Count) = Application.Transpose(d.keys)

    [f1].Resize(d.Count) = Application.Transpose(d.items)

    End Sub

    Sub 分类求和()

    Dim arr1

    Set d = CreateObject("scripting.dictionary")

    arr = Range("b2:c" & Cells(Rows.Count, 2).End(xlUp).Row)

    For i = 1 To UBound(arr)

    d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 2)

    Next

    [e8].Resize(d.Count) = Application.Transpose(d.keys)

    [f8].Resize(d.Count) = Application.Transpose(d.items)

    End Sub

    实例7:多列合并计算

    此例在逻辑上挺绕的,由于定义的动态数组arr(1 to 4, 1 to n),二维数组的第一维的下限不能为不确定值的变量,所以通过多层转置达到取值的目的。

    feab2f6c6840

    Dim arr1()

    Set d = CreateObject("scripting.dictionary")

    arr = Range("a2:d" & Cells(Rows.Count, 2).End(xlUp).Row)

    For i = 1 To UBound(arr)

    If Not d.exists(arr(i, 1)) Then

    n = n + 1

    d(arr(i, 1)) = n

    ReDim Preserve arr1(1 To 4, 1 To n)

    arr1(1, n) = arr(i, 1)

    arr1(2, n) = arr(i, 2)

    arr1(3, n) = arr(i, 3)

    arr1(4, n) = arr(i, 4)

    Else

    m = d(arr(i, 1))

    arr1(2, m) = arr1(2, m) + arr(i, 2)

    arr1(3, m) = arr1(3, m) + arr(i, 3)

    arr1(4, m) = arr1(4, m) + arr(i, 4)

    End If

    Next

    [f2].Resize(n, 4) = Application.Transpose(arr1)

    End Sub

    实例8:条目数组用法

    字典的键——值方式非常的灵活,值甚至可以是数组。

    feab2f6c6840

    Sub test() '条目数组用法

    Set d = CreateObject("scripting.dictionary")

    With Sheets("data")

    arr = .Range("a2:e" & .Cells(Rows.Count, 1).End(xlUp).Row)

    End With

    For i = 1 To UBound(arr)

    d(arr(i, 1)) = Array(arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 5))

    j = d(arr(i, 1))

    Next

    For Each Rng In Range("a3:a" & Cells(Rows.Count, 1).End(xlUp).Row)

    Rng.Offset(0, 1).Resize(1, 4) = d(Rng.Value)

    Next

    End Sub

    总结:

    字典在VBA中是种非常实用的技术,在实际运用中,与事件,控件等功能结合运用会产生一些非常实用神奇的操作。

    展开全文
  • Next .Range("e2").Resize(UBound(arr), 1) = brr ' .Range("a1:e" & r).Sort key1:=.Range("e2"), order1:=xlAscending, header:=xlYes ' .Columns("e:e").ClearContents End With End Sub 展开

    ABCDE正确应为ItemLocationLPpcs3920125001MAFLP326210123920123403MAFLP28896224039125806MAFLP06287132874123601MAFLP15106114045125803MAFLP062541116125805MAFLP0627611403912580...

    A B C D E 正确应为

    ItemLocation LPpcs

    3920125001MAFLP3262101 2

    3920123403MAFLP288962 2

    4039125806MAFLP062871 3

    2874123601MAFLP151061 1

    4045125803MAFLP062541 1

    16125805MAFLP062761 1

    4039125802MAFLP062432 3

    4039125804MAFLP062653 3

    Sub test1()

    Dim d As Object

    Dim r%, i%

    Dim arr, brr

    Set d = CreateObject("scripting.dictionary")

    With Worksheets("sheet4")

    r = .Cells(.Rows.Count, 1).End(xlUp).Row

    arr = .Range("a2:d" & r)

    ReDim brr(1 To UBound(arr), 1 To 1)

    For i = 1 To UBound(arr)

    If d.Exists(arr(i, 1)) Then

    d(arr(i, 1)) = d(arr(i, 1)) + 1

    Else

    d(arr(i, 1)) = 1

    End If

    brr(i, 1) = d(arr(i, 1)) ???????????????

    Next

    .Range("e2").Resize(UBound(arr), 1) = brr

    ' .Range("a1:e" & r).Sort key1:=.Range("e2"), order1:=xlAscending, header:=xlYes

    ' .Columns("e:e").ClearContents

    End With

    End Sub

    展开

    展开全文
  • 大家好,今日我们继续讲解VBA数组与字典解决方案,今日讲解第52讲:利用字典,提取两列数据重复值。有人讲:字典VBA中最为精华的部分,持这种观点的人肯定有自己的道理,确实,利用字典可以给我的代码带来很大的方便之...

    大家好,今日我们继续讲解VBA数组与字典解决方案,今日讲解第52讲:利用字典,提取两列数据重复值。有人讲:字典是VBA中最为精华的部分,持这种观点的人肯定有自己的道理,确实,利用字典可以给我的代码带来很大的方便之处,今日我讲解的是利用字典,提取两列的重复数据.在实际的工作中排重和提取重复的数据是很常见的工作,如果直接进行比较核对,真的很费事费时,之前我讲过数据库的方法,不失为一种好的方案.今日我们讲解利用字典的方法,这也是一种非常好的方案.

    实例,下面的AB列数据,我们要提取出在A中与B列重复的数据,该如何进行?

    6447f39a10f9d54a1edfeb133e0acdf4.png

    我们首先看看数据,很多是重复的,我们首先要进行排重处理,一般的方案难于应付,下面看我给出的字典方案代码:

    Sub mynzsz_52() '第52讲 利用字典,提取两列数据重复值

    Sheets("52").Select

    Set mydic = CreateObject("Scripting.Dictionary")

    myarr1 = Range([A2], [A65536].End(xlUp))

    myarr2 = Range([B2], [B65536].End(xlUp))

    For i = 1 To UBound(myarr1)

    '将键值赋值为0

    mydic(myarr1(i, 1)) = 0

    Next

    For j = 1 To UBound(myarr2)

    '如果数组2在字典中存在相应的键,那么将键值更改为1

    If mydic.exists(myarr2(j, 1)) Then mydic(myarr2(j, 1)) = 1

    Next

    '对于字典中的每个键进行判断,如果相应的键值为0,也就是说在数组2中不存在,那么移除

    For Each d In mydic.keys

    If mydic(d) = 0 Then mydic.Remove (d)

    Next

    '将字典数据回填到工作表

    [e:e].ClearContents

    Range("e1") = "A列中与B列重复的值"

    Range("e2").Resize(mydic.Count, 1) = WorksheetFunction.Transpose(mydic.keys)

    End Sub

    代码截图:

    07896ba8e1fba1a505508b6246d4915f.png

    代码解析:

    1 上述代码实现了提取重复数据并排重的功能,代码简洁,操作灵活.

    2. Set mydic = CreateObject("Scripting.Dictionary")

    上述代码创建了一个字典

    3. myarr1 = Range([A2], [A65536].End(xlUp))

    myarr2 = Range([B2], [B65536].End(xlUp))

    上述代码分别将两列数据放到数组中.

    4 For i = 1 To UBound(myarr1)

    '将键值赋值为0

    mydic(myarr1(i, 1)) = 0

    Next

    将数组1的数据放到字典的键中同时键值赋值为0

    5 For j = 1 To UBound(myarr2)

    '如果数组2在字典中存在相应的键,那么将键值更改为1

    If mydic.exists(myarr2(j, 1)) Then mydic(myarr2(j, 1)) = 1

    Next

    在数组2中建立循环,如果在字典中存在相应的键,那么将键值更正为1

    6 For Each d In mydic.keys

    If mydic(d) = 0 Then mydic.Remove (d)

    Next

    将字典中的数据进行处理,假如键值为0,那么移除

    7 '将字典数据回填到工作表

    [e:e].ClearContents

    Range("e1") = "A列中与B列重复的值"

    Range("e2").Resize(mydic.Count, 1) = WorksheetFunction.Transpose(mydic.keys)

    上述代码数据回填.

    下面看代码的运行:

    5b9ff336f694a8eeefcb7d7d8e62e4b3.png

    今日内容回向:

    1 利用字典如何获取重复数据的值?

    2 上述代码中为什么要对键值重新赋值?

    展开全文
  • 由于字典Key具有唯一性,所以我们经常用它来解决一些需要忽略重复值的问题,例如现在有一个工作簿,里面有3张工作表,每张表格的A列都是姓名,所有这些姓名中有些是重复的,要求编写一段代码,在另一个工作表上...
    f5a40347b336f4f96ebc2c6ba9aac86b.png

    今天我们来讲一下字典的应用,字典Dictionary是VBA中一个非常有用的对象。字典对象相当于一种联合数组,它是由具有唯一性的关键字(Key)和它的项(Item)构成。

    由于字典的Key具有唯一性,所以我们经常用它来解决一些需要忽略重复值的问题,例如现在有一个工作簿,里面有3张工作表,每张表格的A列都是姓名,所有这些姓名中有些是重复的,要求编写一段代码,在另一个工作表上显示不重复的姓名。

    我们按Alt+F11调出VBA代码界面,插入一个模块,新建一个过程Sub

    在代码中,我们首先定义一个字典对象

    Set dic = CreateObject("Scripting.Dictionary")

    然后,我们需要遍历所有工作表,将A列姓名数据依次添加到我们刚刚定义的字典中

    For Each sht In Sheets    If sht.Name <> "Sheet4" Then'因为Sheet4存放统计后的数据,所以不计入统计范围        For i = 1 To sht.[A65536].End(xlUp).Row            dic(sht.Cells(i, 1).Value) = ""        Next    End IfNext

    接下来,把字典的Key全部提取出来,它们是一个数组

    arrKeys = dic.keys

    最后,我们需要将这些姓名放到Sheet4的A列

    Sheets(4).[A1].Resize(dic.Count, 1) = Application.Transpose(arrKeys)

    Transpose是转置函数,可以进行行列转换

    我们来看一下最终效果

    2b297e7d13c2086a3bb943fcf0334005.gif

    程序最终效果

    全部代码如下图:

    3e18455c06a1d325d4aa631170745973.png

    代码全貌

    点击下面链接可以查看我的其他文章哦!

    Excel VBA 之 年会抽奖小程序

    Excel VBA 之 自动建立工作表目录

    Excel VBA 之 隐藏合并单元格所在的行

    Excel VBA 之 将txt文档批量导入至Excel

    Excel VBA 之 图片网址批量转成图片(一)

    Excel VBA 之 图片网址批量转成图片(二)

    Excel VBA 之 批量给Word文档添加页眉页脚

    848个Excel VBA 实用技巧,实例+详细解析,入门必看,建议收藏

    喜欢的朋友记得点赞关注哦,网友们如果在Excel中遇到问题都可以找我交流,也可以在评论区或私信告诉我你想看到的VBA办公教程,我将在下期分享给大家,以后不定期更新Excel VBA技巧!

    展开全文
  • 首先,我像利用字典算法进行去除重复项。然后,由于清单中“名称”和“型号”都有可能相同,但是“名称”+“型号”是唯一的,所以需要对“名称”+“型号”输入字典,从而去除重复项。最后问题是,合并过程中“型号”...
  • & EndRowNo) '遍历A列每一个单元,如果没有和之前的值重复则合并到Str里去,并用“/”隔开 If Not Str Like "*" & Rng & "*" Then '用Not like判断值是否已经合并过 Str = Str & "/" & Rng End If Next Str = VBA....
  • +++++++++++++++++++++++++++关注微信号:Excel-VBA-SoEasy ,解放双手,高效办公!VBA让工作效率飞起来!专门代写EXCEL VBA中小型 程序代码。本人以诚信立足 ,另欢迎加友...一、去重根据字典key的不重复性,去除重...
  • 案例演示先看案例,下图中为一张销售表,每位客户分别在不同时间段购买过多次商品,现在需要提取出每位客户第一次的购买情况:这里利用字典技术处理:新建一个模块,输入以下代码,点击运行,即可提取出每位客户首次...
  • I am trying to read a column one cell at a time and store it the cell as a key and its frequency as its value. Then I want to place all key-value pairs into a range say column P and Q. I think I got t...
  • 案例演示先看案例,下图中为一张销售表,每位客户分别在不同时间段购买过多次商品,现在需要提取出每位客户第一次的购买情况:这里利用字典技术处理:新建一个模块,输入以下代码,点击运行,即可提取出每位客户首次...
  • 小伙伴们,Excel的VBA编程用过吗?VBA编程其实非常简洁,如果小伙伴们...问题:筛选不重复项,并对重复项进行计数问题要求一:筛选出表格中产品规格不重复种类问题要求二:并对每个产品规格的重复次数计数方法:用VB...
  • 大家好,我们今日继续讲解VBA代码解决方案的第126讲内容:在VBA字典的应用。也许许多的朋友对此比较陌生,在有的语言里字典也称之为MAP,应用也是比较广泛的。字典,其实就是一些“键-值”对。使用起来非常方便,...
  • 大家好,我们今日继续讲解VBA代码解决方案的第126讲内容:在VBA字典的应用。也许许多的朋友对此比较陌生,在有的语言里字典也称之为MAP,应用也是比较广泛的。字典,其实就是一些"键-值"对。使用起来非常方便,有...
  • VBA中创建字典:用的是WSH引用。Dim myd As ObjectSet myd = CreateObject("Scripting.Dictionary")二 字典的方法,有Add、Exists、Keys、Items、Remove、RemoveAll,六个方法。① Add 用于添加内容...
  • 如下:把姓名写入key,因为结果需要保留重复姓名所以肯定不能直接把姓名写入key,如果能把姓名和星期合并起来写入key,把上班时间写入item,这样就不会有重复了。可是key的值不能这样写:key(array(a1,a2,a3))=……...
  • 计算不重复个数的3种方法,两种是函数,第三种是VBA(入门)。1. Sum函数和Countif函数解释:对COUNTIF(F5:F12,F5:F12)计算得到一维数组{1;2;3;3;4;4;4;5}。对应每个数字的频数:3出现了2次,4出现了3次,所以在数组...
  • 我们都知道,字典中的key是不允许重复的,所以利用这个特性,我们就可以轻而易举的对数据进行去重复。在一列数据中去重复很好办,如果需要去重复的数据不在一个表中该怎么办呢?如下:想要把上海、江苏、浙江、福建...
  • 大家好,我们今天继续讲解VBA数组与字典解决方案的相关内容,今日讲解的是第24讲:对某列数据的排重,并回填不重复数据的方法。这是在工作中经常用的内容了,通过前几讲的讲解,我们对动态数组有了深刻的认识,今日...
  • 通常这些相同的值会重复,但我试图抓住的是当他们不一起重复时(请参阅下面的示例图片从我以前的帖子中获取)。有些背景可能有助于提高这一点:这是对我之前提出的here问题之一的后续跟进。我有一个条件格式公式:=NOT...
  • 学习资源:《Excel VBA从入门到进阶》第28集 by兰色幻想本课学习字典的唯一值、求和和查找。一、字典与唯一值例:提取“产品名称“表的不重复产品名称放在D列”提取唯一“表中。思路:把表格数据先装入数组(数组...
  • VBA过程代码268:利用字典来判断数组的值是否重复,并提取出不重复的值 Sub MyNZ () Dim brr() '声明一个数组brr放结果 Sheets("44").Select Set mydic = CreateObject("scripting.dictionary") '不区分字母大小写...
  • 学习资源:《Excel VBA从入门到进阶》第27集 by兰色幻想一、介绍VBA字典字典(dictionary)是一个储存数据的小仓库,共有两列: 第一列叫key , 不允许有重复的元素。 第二列是item,每一个key对应一个item,本列允许...
  • 这节的内容,我们介绍下字典的基本概念和调用方法。字典字典(Dictionary)是微软Windows脚本语言中的一...在VBA中,字典是一个好很好用的工具,在去重复,汇总数据方面发挥着巨大的作用,代码简洁,运行速度非常快...
  • 学习资源:《Excel VBA从入门到进阶》第27集 by兰色幻想一、介绍VBA字典字典(dictionary)是一个储存数据的小仓库,共有两列: 第一列叫key , 不允许有重复的元素。 第二列是item,每一个key对应一个item,本列允许...
  • 工作中经常要进行数据集间的主键...'1 什么是VBA字典? '字典(dictionary)是一个储存数据的小仓库。共有两列。 '第一列叫key , 不允许有重复的元素。 '第二列是item,每一个key对应一个item,本列允许为重复 '...
  • 大家好,我们今天继续讲解VBA数组与字典解决方案的相关内容,今日讲解的是第24讲:对某列数据的排重,并回填不重复数据的方法。这是在工作中经常用的内容了,通过前几讲的讲解,我们对动态数组有了深刻的认识,今日...
  • VBA 字典使用小结:关键字循环

    千次阅读 2019-12-22 16:59:03
    I key(键)不允许重复。当给字典元素赋值时,不存在key时可以新建,存在key时可以更新值。 II 数据元素通过key进行索引,我们知道,数据是通过下标进行索引的,所以顺序很重要。而字典是通过key进行索...
  • VBA常用的稍微进阶一点的知识,除了数组就是字典了。这个字典可以理解为我们小时候用的字典,可以根据一个键(key)查询一个值(item)。如果只是根据一个值查询另一个值的话,数组或者列表也可以,无非是For循环...
  • 写入技巧一:add方法下图中A列为姓名,有重复的,我们都知道字典里的key是不能重复的,如果我们能把A列的姓名写入字典,那么得到的keys就是不重复的姓名,这样就达到了去重复的目的。往字典中写入项目对用Add方法,...
  • 盘点VBA字典的写入技巧!

    千次阅读 2019-06-30 14:14:08
    下图中A列为姓名,有重复的,我们都知道字典里的key是不能重复的,如果我们能把A列的姓名写入字典,那么得到的keys就是不重复的姓名,这样就达到了去重复的目的。 往字典中写入项目对用Add方法,所以我们直接用该...

空空如也

空空如也

1 2
收藏数 38
精华内容 15
关键字:

vba字典重复key