qq_17353091
qq_17353091
2016-04-05 12:11
采纳率: 0%
浏览 2.3k

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

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

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

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 邀请回答

2条回答 默认 最新

  • qq_34271943
    艾达424 2016-04-05 15:34

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

    点赞 评论
  • yangsa1516
    yangsa1516 2016-06-07 16: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

    点赞 评论

相关推荐