最近写了一些小功能,对字典有了进一步的理解,太强大了! 个人最近用过的字典应用有这么几个,写下来防止自己忘~同时方便大家 一.查找重复行 [原理]利用字典的exist方法,将数据加入字典时判断一下,如果已经存在,就说明当前数据为重复数据,应该删除 [示例代码] Sub chongfu() '查重 Dim i As Long Dim endline As Long '定义工作表长度变量 endline = Sheet3.Range("A30000").End(xlUp).Row '获取工

假设数字在A列,数字从A1开始:方法一:辅助列中输入公式,数据重复时会出现“重复”提示.=IF(COUNTIF(A:A,A1)>1,"重复","") ,下拉即可. 方法二:用条件格式,设置重复的数据的颜色执行“格式-条件格式”命令,选择“公式”,在右边输入=COUNTIF(A:A,A1)>1 ,点“格式”把字体设置成红色 ,按两次确定. (Excel2007版:执行“开始-条件格式-新建规则”命令,选择规则类型为“使用公式确定要设置格式的单元格”,并输入

判断A列的值在B列是否存在,如果存在则输出“yes” 在C1单元格使用如下公式: =IF(COUNTIF(A:A,B2)>0,"yes","")

今天项目组的一个同事问我如何快速的找到一个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两列的值拼接起

平时我们导入导出Excel的时候如果用poi导出,会发现光设置格式都要很多代码,看起来非常的不优雅.后来业务中遇到了需要导入非常巨大的Excel的需求.如果继续用poi的方式,因为poi把所有excel数据都缓存到内存中,服务器资源又是有限的,所以就有可能导致内存溢出,为了解决这个问题,我发现阿里的EasyExcel导出可以完美的解决这个问题,并且实现方式更加优雅. 如果业务中需要标红重复的数据,先列一下大致代码. /** * 导出重复的数据 * * @param planId * @param

B  树 即二叉搜索树: 1.所有非叶子结点至多拥有两个儿子(Left和Right): 2.所有结点存储一个关键字: 3.非叶子结点的左指针指向小于其关键字的子树,右指针指向大于其关键字的子树: 如: B树的搜索,从根结点开始,如果查询的关键字与结点的关键字相等,那么就命中:否则,如果查询关键字比结点关键字小,就进入左儿子:如果比结点关键字大,就进入右儿子:如果左儿子或右儿子的指针为空,则报告找不到相应的关键字: 如果B树的所有非叶子结点的左右子树的结点数目均保持差不多(平衡),那么B树的搜索性

帮朋友来写个Excel VBA 以前写过ASP,所以对vb略微熟悉,但VBA 没有仔细研究过. 以前只研究过 vba 写一个 计算个人所得税的程序. 这次写的功能也算是简单,但也耗费了两天的功夫. 需求: 1 从[操作]表中,查找最后一行的数据,每一列 都为关键字 2 遍历这些关键字,从[总表]中查询这个关键字,把这一行后面的内容复制到 [预算]表中去 3 把[操作]中制定内容复制到[信息统计]中 Function Get操作NullLine() ' '从 操作表 获取最后一个有数据下面的空行

数组和字典也是VBA的常用到数据类型之一.但是我翻了有四五本VBA教程相关的书,里面都没有介绍到字典,数组到是在介绍数据类型时有介绍,而并没有提到字典. 事实上,字典不是VBA内置的类型,它是Windows脚本语言的.但其实字典在VBA中也是非常重要的,它非常适用于需要进行非重复性数据的操作.我多次需要使用到字典,但很少用到数组. 1. 数组 如果有学过其它编程语言,应该对数组不陌生.其实数组就是多个变量的集合,而且它是有顺序的,通过索引来访问一个数组中的各个值. 但应该记住的是:数组中的各个数

有时我们可能会在两种工作表中查找重复记录,当数据记录很多时,就必须通过简单的方法来实现.下面小编就与大家一起分享一下查看重复记录数据的方法,希望对大家有所帮助. 方法/步骤   为了讲解的需要,小编特别制作了如图所示的两个表格,在此小编特意将其中的一个表中的姓名做了部分修改.   在此我们需要从Sheet3工作表中查找出已存在于Sheet4工作表中姓名相同的记录.对此在Sheet3工作表对应列中输入以下“=if(B2=”.   然后切换至Sheet4工作表中,选择姓名区域,并按回车键.   在返

本章是本系列教程的重点.但我觉得应该不是难点.从第零章开始到学完本章,应该可以把VBA用于实战中了. Excel对象主要有4个: 工作薄 Workbook 工作表 Worksheet 单元格区域 Range 单元格 Cell 这里我只讲后面3个,不讲工作薄.原因有2点: 第零章里面讲过,工作薄其实就是一个Excel文件.我不建议直接操作Excel文件.因为文件属性被更改的机率高.比如修改了文件名,或者文件被移动到其它地方去了,这样的话,写死的VBA代码就不管用了.这是主要原因 学完本章,或者后面

Excel VBA语句集 引子 最近批阅学生成绩,用Excel 处理学生成绩,用到VBA 提高办公效率.需要经常查阅VBA的一些用法 正文 定制模块行为 (1) Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示 Option Compare Text '字符串不区分大小写 Option Base 1 '指定数组的第一个下标为1 (2) On Error Resume Nex

本文基于以下文件 http://pan.baidu.com/s/1nvJtsu9 (部分)内容预览: 1. 边框样式 Sub cell_format() Dim sht As Worksheet Dim rng As Range Set sht = Worksheets("Parameter") Set rng = sht.Range("B2:C20") ' 设置边框格式 ' 这是常规的实线.细线,默认颜色为黑色 rng.Borders.LineStyle = xl

VBA 中的用户窗体就是指带 UI 的用户界面,在运行的时候会单独弹出一个窗口,类似于在 windows 系统中运行的一个可执行程序一样(这个说法不太严谨,因为可执行程序也可能是只有命令窗口而没有 UI 的).再具体一点,就是一个窗口界面当中,有可能会包含有文本框.复选框.单选按钮.下拉列表,就如在网页中填写的表单一样.再具体一点,就是如下图这样的: 1. 用户界面设计 如上图,UI 设计的部分其实是很简单的,微软的特色,直接拖拉拽就可以实现了.而每一个控件(或者称为元素,也即放进窗体中的各种按

Excel VBA解读(54):排序——Sort方法 看看下面的Excel界面截图,“排序”和“筛选”往往在一起,这大概是很多数据需要先排序后筛选吧  首先以“性别”作为排序字段,升序排列,并且第一行作为标题信息,代码如下:  接下来,再添加排序字段:以“性别”作为第1排序字段升序排列,以“总分”作为第2排序字段降序排列.代码如下: Excel将会以“性别”作为主要关键字升序排列,以“总分”作为次要关键字降序排列,即主关键字排序相同的,再以次关键字排序 示例1:查找满足某项条件的所有数据并按顺序

在活动中,我们常会有抽奖,抽奖箱准备繁琐,现在多采用线上抽奖方式,下面用Excel VBA写了一个简单的抽奖小程序 简单测试效果如下,可实现: 多次抽奖,且每次抽奖都不重复 抽奖界面滚动人员信息,点击抽奖按钮锁定中奖人员 中奖人员信息在右侧公示区域展示,最新中奖人员展示在最上方 设置了一部分误点.误操作提示,以及抽奖完成提示等 做了一个抽奖简单演示,演示GIF如下: 实现代码如下,按需自取,转载请备注出处: '申明Flag.d.e三个模块变量,跨进程引用,实现滚动和抽奖数据传递 Dim Flag

Excel是办公利器,这无需多言.尤其在办公室,Excel用的熟练与否,会的Excel知识点多不多,很大程度上决定了你工作是否高效,能否按时打卡下班.可我们也时常听到这样的吐槽:Excel好是好,可就是表格大了之后,公式多了之后,它运算起来忒慢了. 我们写VBA宏,除了要实现特定的自动化功能,还肩负一个极其重要的使命:让Excel快起来~那么如何优化我们的VBA代码,给Excel宏提速呢? 方法一:启用[手动计算] 我们都知道[公式]菜单栏有[计算选项],可以选择[自动计算].[手动计算],一般

上篇博文中,小爬曾多次为VBA字典带货.鼓励多用字典,可以让我们的VBA脚本工具执行更快.今天小爬来细聊一下VBA字典的具体应用!如果你有一定VBA基础,那么看完你一定会对VBA字典有全新的认识:如果你还是这方面的新手,也不影响点赞收藏哈. 字典,其实就是一些"键-值"对.使用起来非常方便,有类似于微型数据库的作用,可用于临时保存一些数据信息.在很多其它编程语言里,我们也常称它为MAP. 我们先来简单看下字典如何创建,又具备哪些属性和方法. 一.字典的创建,用的是WSH引用 Dim m

在 Excel 中,有时会需要创建外部链接来引用其他工作簿的单元格内容,但是如果想要找出所有链接并且还要将这些外部数据链接列在一个工作簿当中是有点难度的.下面我会介绍一些快捷方法,不仅能够快速帮你找出这些链接,还能将链接在一个工作簿当中列出. 利用查找功能查找并列出所有链接 由于外部链接包含中括号 [ ,所以找到所有带有中括号的单元格就能够找到所有外部链接. 步骤1:点击开始 >> 查找和选择来打开查找和替换对话框.也可以按 Ctrl + F 键来打开查找和替换对话框. 步骤2:在查找内容当中

写在前面: .编写宏,打开VBA,双击ThisWorkbook对当前工作薄进行编写宏:双击Sheet1,对整个sheet编写宏: 或者创建模块,在模块里,编写.调试代码. 打开VBA的方法见第一讲,结合常用窗口进行编写.调试. .部分对象有提示,如Dim a As,敲击空格后有提示. .所有宏要运行,必须启动宏.(2007版启动宏,点击表格左上角 “excel选项” “信任中心” “信任中心设置” “启用宏”) .“无法在未启用宏的工作簿中保存以下功能”提示,选是后,宏会整个丢失. 2007版,

原文地址 本文的对象是:有一定Excel VBA基础,对Word VBA还没有什么认识,想在Excel中通过VBA操作Word还有困难的人.   一.新建Word引用 需要首先创建一个对 Word Application 对象的引用.在VBA中,工具-引用,选取“MicroSoft Word 11.0 Object Library”. 方法一.New Word.Application     Dim Wordapp As Word.Application     Set Wordapp = Ne