怎么通过宏VBA代码删除Excel中有重复数据的整行?我这里有一个Excel工作表,里面有很多重复的内容,字段分别是序号、图号、名称、数量,因为数据比较多,现在想通过VBA宏以图号字段为筛选条件,删除图号有重复的多行,只保留其中一行,期待高手解答!
示例如下: 序号 图号 名称 数量 1 123 气缸盖 10 2 123 气缸盖 10 3 456 喷油器 30 对于这段数据进行处理,删除序号1或者2其中的任何一行均可,但是要保留其中一行 满意答案好评率:100%Sub 删除重复行()
Dim xRow As Integer Dim i As Integer xRow = Range("B65536").End(xlUp).Row For i = 2 To xRow For j = i + 1 To xRow If Cells(j, 2) = Cells(i, 2) Then Range(Cells(j, 1), Cells(j, 256)).Rows.Delete j = j - 1 xRow = xRow - 1 End If Next Next End Sub 在该工作表标签上点击鼠标右键,输入上述代码,运行该代码或运行宏“删除重复行”即可。有个缺陷,只是判断图号相同即删除,假如图号相同、数量不同的行照样删除。 回答人的补充 2011-03-26 11:24
刚才着急了,“在该工作表标签上点击鼠标右键,输入上述代码”,应该为“在该工作表标签上点击鼠标右键,选择查看代码,然后输入上述代码” |
|