怎么通过宏VBA代码删除Excel中有重复数据的整行？

5

[ 标签：vba代码,excel,数据 ]

我这里有一个Excel工作表，里面有很多重复的内容，字段分别是序号、图号、名称、数量，因为数据比较多，现在想通过VBA宏以图号字段为筛选条件，删除图号有重复的多行，只保留其中一行，期待高手解答！
示例如下：
序号      图号     名称      数量
 1          123     气缸盖     10
 2          123    气缸盖      10
 3          456    喷油器      30
对于这段数据进行处理，删除序号1或者2其中的任何一行均可，但是要保留其中一行

朝歌 回答:1 人气:1 解决时间:2011-03-26 12:12

满意答案

好评率：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

刚才着急了，“在该工作表标签上点击鼠标右键，输入上述代码”，应该为“在该工作表标签上点击鼠标右键，选择查看代码，然后输入上述代码”