如何利用代码自动删除粘贴进来的重复行？

作者：绿色风分类：时间：2022-08-17 浏览：105

楼主 kevinchengcw	Q: 如何利用代码自动删除粘贴进来的重复行？ A: 本文引用一例来简单演示一下处理方式，代码如下： Private Sub Worksheet_Change(ByVal Target As Range) '工作表单元格更改事件 Dim N As Long Dim Str As String Dim Dic On Error Resume Next '遇错时继续执行 Set Dic = CreateObject("scripting.dictionary") '创建字典项目 Application.EnableEvents = False '关闭事件响应，避免出现连锁反应 For N = 2 To Cells(Rows.Count, 1).End(3).Row '从第二行循环到最后一行 Str = Join(Application.Transpose(Application.Transpose(Cells(N, 1).Resize(1, 8))), vbTab) '将每行的前8个单元格内容用tab字符链接成字符串，赋值给字符串变量str If Not Dic.exists(Str) Then '如果不存在该str为key的字典项，则 Dic.Add Str, "" '添加该字典项目 Else '否则 Cells(N, 1).EntireRow.ClearContents '清空对应的行内容 End If Next N '循环到下一行 Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'A列所有的空单元格所在行删除 Application.EnableEvents = True '打开事件响应 End Sub 以上代码因应提问实例而写，在实际使用中可进一步利用代码判断循环时各行的最右侧非空单元格位置，并用trim函数去掉可能由于手误而多输入的空格，从而进一步提高适用性。
2楼 kevinchengcw	学习了，感谢分享！
3楼纵鹤擒龙水中月	学习了，感谢分享！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表