删重复项

听歌的海 · 发表于 2024-3-13 16:39

请教各位老师，我将某表合并之后删除重复项，录制得到的代码，时灵时不灵，请求帮助，谢谢

lastcol1 = ThisWorkbook.Worksheets(ebName).Range("a1").End(xlToRight).Column '合并后表格的列数
lastrow1 = ThisWorkbook.Worksheets(ebName).Range("a1").End(xlDown).Row
ThisWorkbook.Worksheets(ebName).Range(Cells(1, 1), Cells(lastrow1, lastcol1)).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21), Header:=xlYes

3190496160 · 发表于 2024-3-13 18:07

Sub 删除重复项()
ActiveSheet.Range("A1:u" & ActiveSheet.Rows.Count).EntireRow.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21), Header:=xlYes
End Sub

gwjkkkkk · 发表于 2024-3-13 18:38

代码应该不错吧，关键看具体应用。。。

		自动登录	找回密码
密码			免费注册

[求助] 删重复项

评分