python提取字典的最后一个值_利用VBA字典，提取两列数据的重复值

﹏ヽ暗。殇╰゛Y 2022-10-27 01:49 180阅读 0赞

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

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

![bb8ce2f38a8f5371e9345f1b92b1012b.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

代码截图:

![16c90c53f6be6f530df4cf77f1d01ae7.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)

上述代码数据回填.

下面看代码的运行:

![e26cfabfea472ccfa928f3d8ba23b87b.png][]

今日内容回向:

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

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

[bb8ce2f38a8f5371e9345f1b92b1012b.png]: /images/20221024/d16b1ab8186e43a790edb5a67039c02a.png
[16c90c53f6be6f530df4cf77f1d01ae7.png]: /images/20221024/0a7b69a08b544c73a24d9331af3edd3a.png
[e26cfabfea472ccfa928f3d8ba23b87b.png]: /images/20221024/0a0d206b7e58468391063a8c3bc39a62.png

发表评论取消回复

表情：

评论列表（有 0 条评论，180人围观）

还没有评论，来说两句吧...

相关阅读

相关 Python - 字典中的值求和

介绍 ![Python - 字典中的值求和][Python -] Python 编程语言是一种高级的通用编程语言，广泛用于各种目的。该软件由网页设计、数据分析和人工智能

灰太狼/ 2024年03月22日 21:53/ 0 赞/ 89 阅读

相关 Excel 自动提取某一列不重复值

=IFERROR(INDEX($A$1:$A$14,MATCH(0,COUNTIF($C$1:C1,$A$1:$A$14),0)),"") 注意：C1要空置，从C2输

悠悠/ 2024年02月22日 09:38/ 0 赞/ 4 阅读

相关 Python从字典中提取子字典

prices = { 'GOOG': 700.4, 'ACME': 45.23, 'APLE': 112.78,

你的名字/ 2024年02月19日 19:14/ 0 赞/ 50 阅读

相关 sklearn 特征提取，字典特征提取，文本特征抽提取

sklearn安装在linux或windows终端输入 pip3 install Scikit-learn 安装较慢则替换源 pip config

ゞ浴缸里的玫瑰/ 2023年02月21日 09:20/ 0 赞/ 18 阅读

相关 python提取字典的最后一个值_利用VBA字典，提取两列数据的重复值

大家好，今日我们继续讲解VBA数组与字典解决方案，今日讲解第52讲：利用字典，提取两列数据重复值。有人讲:字典是VBA中最为精华的部分,持这种观点的人肯定有自己的道理,确实,利

﹏ヽ暗。殇╰゛Y/ 2022年10月27日 01:49/ 0 赞/ 181 阅读

相关 python 在字典插入值和修改字典value值的方法

字典插入值使用update是字典增加内容 dict_a = {"a": "1", "b": "2", "c": "3"} 使用update是字典增加

桃扇骨/ 2022年10月10日 12:45/ 0 赞/ 227 阅读

相关 python 字典按值排序贺按键排序得到一个新字典

问题背景统计英文文章中单词的频率，得到之后呢，我不仅想让看到从 a 开头到 z 开头的数据，我还想看到出现频次从高到低的数据，所以有了这篇文章，初步知识 sort

曾经终败给现在/ 2022年09月02日 13:57/ 0 赞/ 203 阅读

相关 python -列表中嵌套多个字典, 如何取出字典的重复值

描述在一个列表中嵌套了字典, 如下: weights = [{ 'subject': 2896, 'distance': 0.8343115868747709

墨蓝/ 2022年08月31日 04:45/ 0 赞/ 263 阅读

相关 python 取出字典的键或者值/如何删除一个字典的键值对/如何遍历字典

原文在[这里][Link 1]，我稍微修改了些不全面的地方。先定义一个字典并直接进行初始化赋值 my_dict = dict(name="lowman", age

刺骨的言语ヽ痛彻心扉/ 2022年02月05日 01:15/ 0 赞/ 258 阅读

相关大量重复值表的数据进行重组，或者提取数据

\---创建测试环境：E1表，模拟大量重复值的表； SQL> create table e1 as select \ from emp; SQL> insert into

浅浅的花香味﹌/ 2022年01月05日 23:39/ 0 赞/ 215 阅读