2 qq 17353091 qq_17353091 于 2016.04.05 20:11 提问

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

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

数据合并成一条,如何操作呢?图片说明

3个回答

CSDNXIAON
CSDNXIAON   2016.04.05 20:22

vim重复操作的宏录制
vim重复操作的宏录制
vim重复操作的宏录制
----------------------同志你好,我是CSDN问答机器人小N,奉组织之命为你提供参考答案,编程尚未成功,同志仍需努力!

qq_34271943
qq_34271943   2016.04.05 23:34

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

yangsa1516
yangsa1516   2016.06.08 00:07

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

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

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!