Excel 宏实现删除重复行，并将删除行的某一列的单元格数据保留填写到没有删除行的那一列的单元格中。求各位大神帮帮忙~！

[qdswjhm]

比如说在Excel表中有 A和B两列，两列都有数据。A列存在重复数据。现在想用宏实现将A列的重复数据所在的整行全部删除，只保留一条，但被删除的重复数据所在行的B列单元格的值要添加到保留数据所在行的B列单元格中。

[xilo925]

Sub 统计()
    Dim i%, j%, xrow%, rng As Range
    xrow = Sheet1.UsedRange.Rows.Count
    For i = 2 To xrow
        Set rng = Cells(i, 1)
        For j = i + 1 To xrow
            If rng.Value = Cells(j, 1) And rng.Value <> "" Then
                Cells(i, 2).Value = Cells(i, 2).Value & "," & Cells(j, 2).Value
                Rows(j).Delete
             End If
        Next
    Next
End Sub