检查一列数据的重复项 vba_一小段Excel VBA代码014：批量标记A列中的重复数据

最新推荐文章于 2023-02-11 11:06:08 发布
最新推荐文章于 2023-02-11 11:06:08 发布
阅读量1.6k 收藏 3
点赞数
文章标签： 检查一列数据的重复项 vba

一段简单的VBA代码，让你自如操作Excel！

抛砖引玉的场景需求：假设A列中有一列数据，数据中有大量的重复数据，重复数据也没有排序归纳在一起，现在需要从A1单元格开始从上至下一次查找，如果有重复值，第一次出现时在B列对应单元格中写入1，其它重复值，在B列对应单元格中标记为0，对于唯一值，则在B列相应单元格中标记“唯一值”。

c770d15569a29e4aae8ffc081798e518.png

表格示例

b296b8e8f76633fb7dc0871ab94dad2d.gif

运行示例

代码示例

在标准模块中加入如下代码即可实现上面的演示功能。

Sub 重复数据处理设置标识()Dim d As ObjectDim c As RangeSet d = CreateObject("Scripting.Dictionary")'遍历A列将数据加入字典，并统计重复数量For Each c In Range("A1:A" & [
最低0.47元/天 解锁文章
weixin_39880318
关注
  • 0
    点赞
  • 踩
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
检查一列数据的重复项 vba_VBA篇 8.字典
weixin_39871378的博客
11-30 2341
VBA常用的稍微进阶一点的知识，除了数组就是字典了。这个字典可以理解为我们小时候用的字典，可以根据一个键（key）查询一个值（item）。如果只是根据一个值查询另一个值的话，数组或者列表也可以，无非是For循环一下。字典的速度比较快，利用字典的相应属性也可以组合出很多用法。课外知识：字典查询值的复杂度是O(1)，列表或数组的时间复杂度是O(k)。方法属性Sub hewish_dict() ...
检查一列数据的重复项 vba_《神奇的VBA》编程：根据次数重复排列数据
weixin_39624332的博客
12-05 1028
案例：要求根据公司部门的出现次数，重新排列部门。用Excel VBA编程应该如何写呢？ 本篇，神奇的VBA依旧介绍3种思路：思路1：全部使用For..Next循环语句遍历A列和相应B列的数据， 并在C列中再次使用循环存入数据。 Sub 重复排序_思路1()Dim n As Integer Dim x As String Dim y As Integer...
vba 提取 json某个值_VBA数组与字典解决方案第52讲：利用字典，提取两列数据重复值...
weixin_39778214的博客
12-11 484
大家好，今日我们继续讲解VBA数组与字典解决方案，今日讲解第52讲：利用字典，提取两列数据重复值。有人讲:字典是VBA中最为精华的部分,持这种观点的人肯定有自己的道理,确实,利用字典可以给我的代码带来很大的方便之处,今日我讲解的是利用字典,提取两列的重复数据.在实际的工作中排重和提取重复的数据是很常见的工作,如果直接进行比较核对,真的很费事费时,之前我讲过数据库的方法,不失为一种好的方案.今日我们...
他山之石——使用VBA字典-Part1
预见未来to50的专栏
06-24 866
工作中经常要进行数据集间的主键查询，满足字典的要求（key列不允许有重复元素）。所以，以后可考虑使用字典来实现一些查询需求，以获取更快的速度。'1 什么是VBA字典？ '字典（dictionary）是一个储存数据的小仓库。共有两列。 '第一列叫key , 不允许有重复的元素。 '第二列是item,每一个key对应一个item，本列允许为重复 '...
VBA----查找 Excel 表每个sheet的第1列，是否存在重复值
奔跑的犀牛先生
12-18 1008
代码准备放到关闭表前，报错 这个代码还有点问题 Sub jackxxx1() '先撸有几张表，表名存入数组中 Dim arr1() Dim arr2() Dim dic1 As Object k = 0 wkn1 = ThisWorkbook.Name Set dic1 = CreateObject("scripting.dictionary") ...
写一段excel vba筛查重复项
weixin_42602368的博客
02-11 1667
Excel VBA 中可以使用如下代码来筛选重复项： Sub RemoveDuplicates() Dim rng As Range Set rng = Range("A1:A10") ' 这里的范围可以替换为你想要筛选的范围 rng.RemoveDuplicates Columns:=1, Header:=xlNo End Sub 在这段代码中，首先定义了一个名为 "r...
根据excel列的内容找到数据表所在的文件名，批量处理几千条数据，并标记已经处理完成的数据！
07-05
根据excel列的内容找到数据表所在的文件名，批量处理几千条数据，并标记已经处理完成的数据，比如一个excel里面全是发票导出的记录，有很多公司，但是不同的公司有不同的excel工作簿存放，此时就可以批量处理，使得...
ExcelVBA与WordVBA教程第1季.pdf
10-26
首先，将A1单元格到其当前区域的数据加载到数组`r`中，然后遍历数组的第二列，如果找到“删除”标记，就删除对应于第一列工作表名的工作表。这个宏提供了一种用户交互式删除工作表的方式。 5. **基本VBA语法和流程...
EXCEL宏代码大全.doc
11-24
1. A 列半角内容变红：该宏代码用于将A列中的半角内容变红，可以通过循环遍历每个单元格，检查其ASCII码是否在半角范围内，从而实现对半角内容的识别和标记。 2. A 列等于 A 列减 B 列：该宏代码用于将A列的值设置...
59e95a4689eeb92f380f4ab2_202104_587df942-a272-11eb-8414-00163e0a088c_Excel在数据分析中的应用.rar
11-27
《Excel在数据分析中的应用》 Excel，作为一款广泛使用的电子表格工具，因其强大的数据处理、分析和可视化功能，成为各行各业数据分析的重要工具。本资料详细介绍了Excel在数据分析中的各种应用，帮助用户提升数据...
C# 用SQL自动记录数据并且查询出某一列有哪些重复数据
03-24
C# 用SQL自动记录数据并且查询出某一列有哪些重复数据，本人实际测试能用，欢迎下载使用！
EXCEL最简单的查找重复数据的方法
02-06
可以用于查找excel中的重复数据的方法
VBA实现的统计两列重复个数
11-13
VBA(excel)实现的统计两列重复个数，快速统计，简洁明了。
Excel自动批量发送邮件
09-15
对于自动批量发送邮件，我们需要编写一段VBA代码，它会遍历Excel表格中的每一行数据，根据单元格的内容生成并发送邮件。 以下是一段基础的VBA代码示例，展示了如何自动发送邮件： ```vba Sub Send_Mail() Dim ...
Excel中的VBA宏：对指定数据列判重
01-02 641
最近遇到一个要对Excel内指定列内容判重的问题，指定的列可以是一列也可以是多列，由于肉眼判重效率低下且准确性很低，所以我写了一些VBA宏来解决这一问题。我使用的Office为 Microsoft Office Professional Plus 2010，我使用的Excel 版本为14.0....
检查一列数据的重复项 vba_提取重复值，但字典不是重点。
weixin_39517868的博客
12-08 1702
本例的问题描述：1：源数据与提取的结果在同一个工作表里面；2：提取K、M、O、Q列里面不重复的数据(注意，数据列里面有空白的行)；3：把提取出来的结果放在A2单元格的下方，不能有空白行；源数据及目标结果如下：解决的思路详解：1：由于K、M、O、Q四列不连续，且中间还有数据(在截图的时候，中间的数据删除了，实际运用的时候，是有数据的)还有空白的单元格出现。所以arr = sht.Range("a1"...
检查一列数据的重复项 vba_01.VBA自动化办公——数据的局部加和
weixin_39625162的博客
12-03 331
VBA实用项目罗列：https://zhuanlan.zhihu.com/p/172176111​zhuanlan.zhihu.comhello大家好，今天开始本人将开设全新的专栏——《办公自动化》。本专栏旨在通过一些日常工作中比较常见的典型案例，向大家展示VBA在减少重复性工作上是多么简单有效。本期案例：单位领导给了你一份本学院所有同学的创新学分具体情况的名单，并要求你完成如下工作： 1.将每一...
利用VBA筛选重复数据
l_iu_xing的博客
06-17 6191
目标：在重复数据中按照一定规则提取、组合。 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 判断两个指定列每行数据在另外一列是否有相同值并修改背景色
w502554928的博客
07-30 565
判断两个指定列每行数据在另外一列是否有相同值并修改背景色
用VBA写一段EXCEL重复项批量合并代码
最新发布
06-02
以下是用 VBA 写的 Excel 重复项批量合并代码： ``` Sub MergeDuplicateCells() Dim lastRow As Long Dim lastColumn As Long Dim cellValue As String Dim i As Long Dim j As Long Dim k As Long Dim isDuplicate As Boolean lastRow = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row lastColumn = ActiveSheet.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column For i = 1 To lastRow For j = 1 To lastColumn cellValue = ActiveSheet.Cells(i, j).Value If cellValue <> "" Then For k = i + 1 To lastRow If cellValue = ActiveSheet.Cells(k, j).Value Then isDuplicate = True Exit For End If Next k If isDuplicate Then mergeCell i, k - 1, j isDuplicate = False End If End If Next j Next i End Sub Sub mergeCell(firstRow As Long, lastRow As Long, column As Long) With ActiveSheet.Range(ActiveSheet.Cells(firstRow, column), ActiveSheet.Cells(lastRow, column)) .Merge .HorizontalAlignment = xlCenter End With End Sub ``` 该代码将遍历整个工作表，并查找具有相同值的单元格。如果找到重复项，则将它们合并为一个单元格。请注意，此代码仅合并具有相同值的单元格，而不考虑任何格式或其他属性。如果需要，您可以根据需要进行调整和修改。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值