关于EXCEL中宏操作，如何用宏处理重复数据

如何使用EXCEL中的宏啊，EXCEL版本为2010，我想通过宏将表中应用账号相同的数据合并成一条，具体如何操作呢

数据合并成一条，如何操作呢?

好像有一个按钮是可以删除的，数据选项里找找呢

实现你需求的宏代码如下：

Sub 处理重复数据()

Dim i As Integer, m As Integer, n As Integer

i = ActiveSheet.Range("A65536").End(xlUp).Row     '统计数据行数
MsgBox "数据行数：" & i

For m = 1 To i - 1                                '外循环从第1行开始，遍历到倒数第2行
    For n = m + 1 To i                            '内循环从m+1开始，遍历到最后一行
        '如果第2列出现重复的记录，则将后出现的记录的第4列值与前面的值合并
        If (StrComp(Sheets("Sheet1").Cells(m, 2).Text, Sheets("Sheet1").Cells(n, 2).Text, 0) = 0) Then
            Sheets("Sheet1").Cells(m, 4) = Sheets("Sheet1").Cells(m, 4) & Sheets("Sheet1").Cells(n, 4)
        End If
    Next
Next

For m = 1 To i - 1                                '外循环从第1行开始，遍历到倒数第2行
    For n = i To m + 1 Step -1                    '内循环从最后一行，遍历到m+1行
        '从后向前删除重复记录
        If (StrComp(Sheets("Sheet1").Cells(m, 2).Text, Sheets("Sheet1").Cells(n, 2).Text, 0) = 0) Then
            Sheets("Sheet1").Rows(n).Delete
        End If
    Next
Next

End Sub