最近写了一些小功能,对字典有了进一步的理解,太强大了! 个人最近用过的字典应用有这么几个,写下来防止自己忘~同时方便大家 一.查找重复行 [原理]利用字典的exist方法,将数据加入字典时判断一下,如果已经存在,就说明当前数据为重复数据,应该删除 [示例代码] Sub chongfu() '查重 Dim i As Long Dim endline As Long '定义工作表长度变量 endline = Sheet3.Range("A30000").End(xlUp).Row '获取工
上篇博文中,小爬曾多次为VBA字典带货.鼓励多用字典,可以让我们的VBA脚本工具执行更快.今天小爬来细聊一下VBA字典的具体应用!如果你有一定VBA基础,那么看完你一定会对VBA字典有全新的认识:如果你还是这方面的新手,也不影响点赞收藏哈. 字典,其实就是一些"键-值"对.使用起来非常方便,有类似于微型数据库的作用,可用于临时保存一些数据信息.在很多其它编程语言里,我们也常称它为MAP. 我们先来简单看下字典如何创建,又具备哪些属性和方法. 一.字典的创建,用的是WSH引用 Dim m
SQL语句如何精准查找某一时间段的数据 在项目开发过程中,自己需要查询出一定时间段内的交易.故需要在sql查询语句中加入日期时间要素,sql语句如何实现? SELECT * FROM lmapp.lm_bill where tx_time Between '2015-12-20' And '2015-12-31'; 仔细研究还是能够发现一些细节性的问题的. SELECT * FROM lmapp.lm_bill where merch_uid='S18853883587' AND tx_time
今天项目组的一个同事问我如何快速的找到一个Excel中第3列和第5列的值完全重复的值,我想了想虽然Excel中自带查找重复值的功能,但是好像只能对同一列进行比较,所以就写了一个VBA进行处理,VBA非常简单,但效果不错. Sub FindDuplicatesInColumn() Dim lastRow As Long Dim matchFoundIndex As Long Dim iCntr As Long lastRow = ' 初始化临时列, 第7列用来存放结果,第8列将3 5两列的值拼接起