excel删除重复数据保留一条_VBA利用字典删除重复行，保留唯一值

源数据及要求：删除黄忠和庞统的各一行重复数据，两个孙权因为班级不同，保留

数据结果展示：

代码解析：

Sub DeleteSameRow1()

'删除所有重复行，保留唯一值

Dim LastRow As Long

Dim i, k, n As Long

Dim arr, brr()

Dim str As String

Application.ScreenUpdating = False

'关闭屏幕更新，以提高宏的运行效率

'建立字典对象

Set d = CreateObject("scripting.dictionary")

LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

'返回第一列最后一个非空行

'将数据区域导入数组

arr = Sheets("Sheet1").Range("A2:f" & LastRow)

'对数组进行循环

For k = 1 To UBound(arr)

'将每一行A-F列的内容的合并为一个文本,如果只是特定某几列，只需要修改这句代码

str = arr(k, 1) & arr(k, 2) & arr(k, 3) & arr(k, 4) & arr(k, 5) & arr(k, 6)

'对每一行的文本进行判断，如果在字典里不存在，就写入字典的关键字

If Not d.exists(str) Then

d(str) = ""

Else

'否则写入数组brr，对应的值为该文本的行值，第一行是标题行，因此是k+1

n = n + 1

ReDim Preserve brr(1 To n)

brr(n) = k + 1

End If

'对数组brr进行逆序循环，将brr数组对应的行进行删除

For i = n To 1 Step -1

Cells(brr(i), 1).EntireRow.Delete

Application.ScreenUpdating = True

End Sub

excel删除重复数据保留一条_VBA利用字典删除重复行，保留唯一值相关推荐

xlsx表格怎么筛选重复数据_怎样在excel2010中筛选出重复数据呢？
数据是信息的表现形式和载体,可以是符号.文字.数字.语音.图像.视频等.数据和信息是不可分离的,数据是信息的表达,信息是数据的内涵.在这一篇教程里面,小编主要和大家简单的介绍一下:怎样在Excel20 ...
php删除数据库数据操作日志文件,MSSQL清空日志删除日志文件
最近的项目主要做数据的归档,把数据从一个数据库拉到另一个数据库,造成新数据库的日志文件非常大;或者数据库在使用过程中会使日志文件不断增加,使得数据库的性能下降,并且占用大量的磁盘空间.于是想把日志文件 ...
sql语句去重复数据方法是什么？sql语句去重复数据技巧
如图所示,图标上有两个重复的数据,那么要过滤掉重复的数据需要怎么做的呢? 方法一: 用distinct过滤掉多余的数据. 例如:以下语语句 select distinct university fro ...
sql 查询重复数据大于2条以上的_「干货」关于SQL书写建议索引优化的总结，你值得拥有...
前言平时写sql写的比较多,一直没把优化相关的知识整理记录下来,本文章记录对SQL优化的一些技巧: 我将结合demo(一个百万级数据表),去实践验证这些优化技巧. 测试用例接下来,我们创建一个测试 ...
excel导出百万数据与进度条展示
前言需求:用户在UI界面上选择想要导出的列,然后点击导出按钮,就能导出用户想要的数据. 效果展示可能会产生的问题 1.如果导出数据量较大,接口很容易造成超时. 2.如果把数据一次性装载到内存里,很 ...
C# WPF 进度条，根据读取数据显示进度条进度，根据Excel文件读取数据，进度条样式...
后台代码: //导入private void Border_MouseLeftButtonUp_2(object sender, MouseButtonEventArgs e){var path = ...
android 过滤重复数据,获取BLE扫描，不使用filter重复的UUID
编辑:我忘记了,您是否尝试将广告客户设置为不可连接? 这样你就可以获得重复的扫描结果我正在处理类似的问题,即随着时间的推移可靠地跟踪多个广告设备的RSSI值. 很遗憾,我find的最可靠的方法是不好 ...
php 合并重复数据合并单元格,通过js合并表格重复出现的数据
js必须等表格加载完成后调用. 效果如图: js代码: function uniteTable(tableId,colLength) { //colLength-- 需要合并单元格的列1开始 var ...
高效删除Oracle数据库中重复数据，并保留最新一条的方法
在对数据库进行操作过程中我们可能会遇到这种情况,表中的数据可能重复出现,使我们对数据库的操作过程中带来很多的不便,那么怎么删除这些重复没有用的数据呢? 重复数据删除技术可以提供更大的备份容量,实现更长 ...

excel删除重复数据保留一条_VBA利用字典删除重复行，保留唯一值

excel删除重复数据保留一条_VBA利用字典删除重复行，保留唯一值相关推荐

最新文章

热门文章