VBA判断某列数据重复存在

最新推荐文章于 2025-09-18 09:36:30 发布
原创 最新推荐文章于 2025-09-18 09:36:30 发布 · 1.2w 阅读 · 25 ·
本内容遵循CC 4.0 BY-SA版权协议
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
标签
#vba
本文介绍如何使用VBA代码在Excel中找出并标记重复的数据。提供了两种情况下的解决方案：一是当数据行数固定时，二是当数据行数不固定且需要动态获取时。通过简单的VBA脚本，可以高效地高亮显示重复项，并在指定列中添加备注。

如果数据重复存在，则将重复数据标红色并提示        

①数据行数确定时：

For i = 2 To 10    ' 数据检查数据从第2行到第10行的数据

        If Application.CountIf(Range("A1:A10" ), Cells(i, 1)) > 1 Then

                Cells(i, 1).Font.Color = 255  
                Cells(i, 5) = Sheet1.Cells(i, 1) + "重复存在"

        End If

 Next i


②数据行数不确定时：

For i = 2 To totalRow     ' totalRow   数据的总行数,可利用查询函数动态获取。

        If Application.CountIf(Range("A1:A" & totalRow), Cells(i, 1)) > 1 Then

                Cells(i, 1).Font.Color = 255
                Cells(i, 5) = Sheet1.Cells(i, 1) + "重复存在"

        End If

 Next i


演示结果如下图：


使用VBA归纳某列相同的数据
weixin_43750210的博客
06-30 1317
使用VBA代码筛选出该列重复的值，与之对应的在相邻列用相同的数值进行标记。
VBA检查指定范围是否存在重复值
11-17 1144
VBA检查指定范围是否存在重复值，可以分别从单元格值的内容和个数两种思路来进行检查，下面是设计代码。
检查一列数据的重复项 vba_一小段Excel VBA代码014：批量标记A列中的重复数据
weixin_39880318的博客
12-08 2200
一段简单的VBA代码，让你自如操作Excel！抛砖引玉的场景需求：假设A列中有一列数据，数据中有大量的重复数据，重复数据也没有排序归纳在一起，现在需要从A1单元格开始从上至下一次查找，如果有重复值，第一次出现时在B列对应单元格中写入1，其它重复值，在B列对应单元格中标记为0，对于唯一值，则在B列相应单元格中标记“唯一值”。表格示例运行示例代码示例在标准模块中加入如下代码即可实现上面的演示功能。Su...
VBA小功能集合-判断列内是否有重复值
weixin_34092370的博客
10-29 3551
1.判断列内是否有重复值： Dim arrT As Range Dim rng As Range Set arrT = Range("A:A")'判读A列单元格 For Each rng In arrT If rng = Empty Then'如果单元格为空就退出循环，否者循环65535次 Exit For ...
VBA一列中找出重复数据
weixin_41716390的博客
08-18 4431
【代码】VBA一列中找出重复数据。
检查一列数据的重复项 vba_VBA篇 8.字典
weixin_39871378的博客
11-30 3377
VBA常用的稍微进阶一点的知识，除了数组就是字典了。这个字典可以理解为我们小时候用的字典，可以根据一个键（key）查询一个值（item）。如果只是根据一个值查询另一个值的话，数组或者列表也可以，无非是For循环一下。字典的速度比较快，利用字典的相应属性也可以组合出很多用法。课外知识：字典查询值的复杂度是O(1)，列表或数组的时间复杂度是O(k)。方法属性Sub hewish_dict() ...
vba判断mysql表是否存在_vba 判断excel中数据是否重复
weixin_29563497的博客
02-04 333
Private Sub CommandButton1_Click()Dim c(256), sum(256), a(256), b(256) As Variant 'c(256),sum(256) 获取单元格的值，a(256),b(256) 设置检查的列和列的字符长度Dim type1(100) As Variant '保存每一列...
vba字典重复key_利用VBA字典，提取两列数据的重复值
weixin_36485321的博客
01-17 1963
大家好，今日我们继续讲解VBA数组与字典解决方案，今日讲解第52讲：利用字典，提取两列数据重复值。有人讲:字典是VBA中最为精华的部分,持这种观点的人肯定有自己的道理,确实,利用字典可以给我的代码带来很大的方便之处,今日我讲解的是利用字典,提取两列的重复数据.在实际的工作中排重和提取重复的数据是很常见的工作,如果直接进行比较核对,真的很费事费时,之前我讲过数据库的方法,不失为一种好的方案.今日我们...
Excel 2010 VBA 入门 081 数据处理之获取不重复的数据
复行数十步
04-30 5516
目录 示例 示例数据表 代码1 去除重复值(RemoveDuplicates)方法 代码2 代码3 示例 如图所示，该表为某村人口登记表。现希望得知有哪些户的居民已登记，因而希望获取“户号”列的不重复值，并存储在J列。该如何用VBA实现？ 示例数据表 姓名 街路巷 户别 与户主关系 性别 民族 户号 甲1 清水乡双井村 农村居民家庭户 户主 女 汉族 310000122 甲2 清水乡双井村 ..
5 判断数据是否存在_神奇的VBA字典，如何判断数据是否重复
weixin_39933508的博客
01-12 959
心胸开阔一点，不去争；得失看轻一点，不去争；功利心淡一点，不去争。一杯茶，满也好，少也好，不要浪费时间去争；浓也好，淡也好，其中自有值得品的味道。人生有顺境也有逆境，不可能处处是逆境；人生有巅峰也有谷底，不可能处处是谷底。逆境时多学习，积累的就是福报，谷底时多学习，积累的就是财富。走的路越远，心就会越宽；遇见的人越多，就会发现世界就越大。保持健康快乐的心态，坚定且执着，路和梦想就在脚下。有时间要学...
利用VBA筛选重复数据
l_iu_xing的博客
06-17 6627
目标：在重复数据中按照一定规则提取、组合。 Sub match() Dim i, j, z, n, flag, A, B, C Set A = Worksheets("Sheet1").UsedRange Set B = Worksheets("Sheet2").UsedRange Set C = Worksheets("Sheet3").UsedRang...
VBA RemoveDuplicates方法去重复项
weixin_34114823的博客
01-01 2809
RemoveDuplicates后边必须跟参数否则不起作用 ActiveSheet.Range("G21:R36").RemoveDuplicates Columns:=12, Header:=xlYes 其中Columns参数指定要删除重复项的列，如果是1的话，那么第一列中重复项所在行都会被删除，如果是2则只有1,2两列均重复的行才会被删除，以此类推，你的区域12列，那么只有12列均重复的行...
python 判断字典key是否存在_神奇的VBA字典，判断数据是否重复
weixin_39829497的博客
12-05 948
心胸开阔一点，不去争；得失看轻一点，不去争；功利心淡一点，不去争。一杯茶，满也好，少也好，不要浪费时间去争；浓也好，淡也好，其中自有值得品的味道。人生有顺境也有逆境，不可能处处是逆境；人生有巅峰也有谷底，不可能处处是谷底。逆境时多学习，积累的就是福报，谷底时多学习，积累的就是财富。走的路越远，心就会越宽；遇见的人越多，就会发现世界就越大。保持健康快乐的心态，坚定且执着，路和梦想就在脚下。有时间要学...
VBA 代码：通过列标题获取列索引
weixin_69477306的博客
11-19 1635
函数的主要目的是在给定的 Excel 工作表中，依据指定的列标题（即列中第一行的内容）来查找并返回该列的索引。如果找到了匹配的列标题，函数返回对应的列索引；如果未找到，则返回 -1。这个函数在处理 Excel 数据时非常有用，比如当我们需要对特定列的数据进行操作，但只知道列标题时，就可以利用这个函数来确定列的位置。
检查一列数据的重复项 vba_提取重复值，但字典不是重点。
weixin_39517868的博客
12-08 2059
本例的问题描述：1：源数据与提取的结果在同一个工作表里面；2：提取K、M、O、Q列里面不重复的数据(注意，数据列里面有空白的行)；3：把提取出来的结果放在A2单元格的下方，不能有空白行；源数据及目标结果如下：解决的思路详解：1：由于K、M、O、Q四列不连续，且中间还有数据(在截图的时候，中间的数据删除了，实际运用的时候，是有数据的)还有空白的单元格出现。所以arr = sht.Range("a1"...
VBA代码：检测单元格输入数据是否重复
最新发布
2501_93372237的博客
09-18 1792
是Excel VBA中的一个，当工作表中的单元格内容被修改时自动触发。我们可以使用它来实现检测单元格输入的数据是否重复。
Excel 2010 VBA 入门 096 数据处理之用数组提取不重复值
复行数十步
06-29 3927
示例 如图所示，该表为某公司在某月的销售数据。现希望统计该月中销售的产品类别的个数。如何利用VBA数组提取该列不重复的值，并存放于新表中？ 日期 销售经理 客户分类 区域 分配业务员 回款地 所属公司 产品分类 客户名称 销售数量 单价 销售金额 送货单号 2010/10/2 李泉 二线客户 天河区 何月 中山 海天建材 HT15MM 金虎 1280 65 ..
Excel的VBA多个sheet数据拆分与批注提取及数据列去重复
dltan
11-04 1873
Excel一列值中去除重复项数据，多个Excel的单元sheet，拆分成单个excel文件。Excel的批注和备注信息提取。
EXCEL VBA两列判断重复
码猩的博客
01-22 941
【代码】EXCEL VBA两列判断重复。
VBA：遍历字典复制指定列的数据到目标列
Cyber的博客
06-02 7578
前言：因为考虑数据量的问题，所以在计算季度数据的时候，做了一个辅助列“季度累计数（至上月）”，季度累计数=本月发展数+季度累计数（至上月），这样就碰到一个问题：需要每个月都把季度累计数复制到季度累计数（至上月） 如果列数少的话还好，列数一多真的要奔溃；如果每个月还有要改模板的话，就更讨厌了 所以用vba写了一段脚本，自动做上述工作，只需要确定好从什么名字的列复制到什么名字的列即可 Sub 季度数据...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值