vba如果一列相同比较第二列?

  以下的宏代码,其功能是,找到AB两列相同值,并存放到C列。

  MsgBox "所有重复编号已经找出,请查看结果!"

各位小伙伴,大家好,本公众号开通一年以来,得到了很多朋友的关心和支持,更有很多小伙伴义务帮忙转发宣传,在此非常感谢大家的支持。

目前字典案例更新了4个,需要源文件的小伙伴可以回复“字典”,回复后即可获得4个字典案例的源文件,源代码,感谢大家支持,如有打扰请见谅。

'获取数据区域最后一行的行数

'重新定义数组crr,数组行数:数组arr+数组brr元素数和,列数:2

'循环数组arr,将arr的值赋值给crr的第一列,同时,建立字典,字典的关键字为数组的值,对应的项目给该值对应的位置

'举例来说,字典的第一个关键字为淮安,淮安对应的项为1

'循环数组brr,首先判断brr的元素在字典中是否存在,如果存在,那么通过d(brr(j, 1))找到这个元素在字典中所在的位置,然后把这个元素赋值给crr该元素所在位置的第二列

'举例来说,brr的第一个值是青岛,在arr中是第17个,通过上面的循环和写入字典,可以判断,青岛已经是字典的关键字,并且对应的值是17,同时,数组crr的第17行,第1列的值就是青岛

'如果不存在,那么就写入到crr的n行2列,n的初始值是arr元素的数量,n+1,即第一个不在arr中的brr值写到crr的n+1行,之后每次出现都加一行,依次往下赋值

'将crr的数据赋值到单元格区域

 '本文由公众号《VBA代码集锦》整理注释,持续更新,欢迎关注交流!

后台有伙伴留言帮忙解决一个excel问题,情况是这样的,如下图:

一列中只有「是」「否」的两种情况,分别统计这一列「是」和「否」出现的次数,要求是出现了不同的的重新统计

问题不复杂,VBA能很快解决问题。直接上代码:

把需要统计的数据粘贴进去即可,或者直接把上面的代码复制运行也行。

需要注意的是,第一行为标题行,不要粘贴数据。代码是从第二行开始统计。

同样的,永恒君直接把上面实例VBA的文件分享出来,需要的就直接使用吧。


不少人对VBA代码有抵触心理,其实没有那么复杂,把他看成一个稍微复杂点的函数即可。

当然如果并不打算深入学习VBA,只是临时使用下,那只要会复制黏贴就好了!

至于怎么用VBA代码,可以参考之前的文章:

Excel vba 实例(2) - 批量将工作表拆分为单独文件

Excel vba 实例(4) - 根据已有名称,批量新建表格

Excel vba 实例(5) - 快速合并n多个相同值的单元格

Excel vba 实例(7)-一键批量打印工作簿

Excel vba 实例(8)- 利用正则表达式进行定向提取

Excel vba 实例(9)- 批量插入、删除表格中的空行


Excel VBA功能很强大,但是要熟练的运用起来还是有一定的难度,好在永恒君帮大家搜集了几套关于VBA的视频教程,非常的实用。

需要的话,wx公号后台回复“VBA”获取吧~~

  • 后台最近有朋友留言说,经常会有好多excel工作簿要打印,挨个点击打开,然后选择打印非常的麻烦。有没有办法可以用v...

  • 自从2014年开通[完美Excel]微信公众号以来,坚持分享已经学习到的Excel和VBA知识和心得,目前已分享文...

  • 批量插入、删除表格中的空行 日常工作中有时候需要插入大量的行做数据处理,或者是遇到导出的excel数据表、收到的e...

  • 姓名:陶金 公司:深圳保民利信息科技有限公司 【日精进打卡第88天】 【知-学习】 1、《六项精进》大纲1遍,共1...

  • 本人年芳二八,生活在的北京的外地技术宅一枚。今年立志脱离单身,遂,入了北京各大相亲平台的坑,基本注册了所有平台。 ...

  • 打稿,勾线,上色,每一步都认认真真的去做,剩下的,就交给时间吧!

  • 上午按时学习,随后一天都在实践,各种尝试,各种结果,最大的感受就是,你这个人还真是世界上独一无二的,同样的方法面对...

我要回帖

更多关于 对比A列与B列数据相同 的文章

 

随机推荐