[已解决]查找多行中多条件的同一人，合计数据后，删除其它行怎么编写VBA

KDZ

         各位大侠、老师：我的表格有几千行，行内有不少是同一个人。    假设第1、5、8、21列均相同的，判断为同一个人，则将判断为同一个人的所有人的第22列数据相加，之后只保留求得之和的一行，其它行全部删除。祥见附件。这个VBA怎么编写啊，谢谢！！！

最佳答案

月排行榜 / 总排行榜

excel助手

2016-1-11 20:17

Public Sub ss()
    Dim d
    Dim i, k
    Set d = CreateObject("scripting.dictionary")
    k = Cells(3, 1).End(xlDown).Row
    For i = 4 To k
        If i > k Then Exit For
        If d.exists(Cells(i, 1) & Cells(i, 5) & Cells(i, 8) & Cells(i, 21)) Then
            Cells(d(Cells(i, 1) & Cells(i, 5) & Cells(i, 8) & Cells(i, 21)), 22) = Cells(d(Cells(i, 1) & Cells(i, 5) & Cells(i, 8) & Cells(i, 21)), 22) + Cells(i, 22)
            Rows(i).Delete
            k = k - 1
            i = i - 1
        Else
            d(Cells(i, 1) & Cells(i, 5) & Cells(i, 8) & Cells(i, 21)) = i
        End If
    Next i
End Sub

跳转到最佳答案楼层

Hsiao

如果对vba是零基础的话,建议把表格设置的跟你实际工作的一样.不然写好  你还是不会修改的

excel助手

Public Sub ss()
    Dim d
    Dim i, k
    Set d = CreateObject("scripting.dictionary")
    k = Cells(3, 1).End(xlDown).Row
    For i = 4 To k
        If i > k Then Exit For
        If d.exists(Cells(i, 1) & Cells(i, 5) & Cells(i, 8) & Cells(i, 21)) Then
            Cells(d(Cells(i, 1) & Cells(i, 5) & Cells(i, 8) & Cells(i, 21)), 22) = Cells(d(Cells(i, 1) & Cells(i, 5) & Cells(i, 8) & Cells(i, 21)), 22) + Cells(i, 22)
            Rows(i).Delete
            k = k - 1
            i = i - 1
        Else
            d(Cells(i, 1) & Cells(i, 5) & Cells(i, 8) & Cells(i, 21)) = i
        End If
    Next i
End Sub

KDZ

excel助手 发表于 2016-1-11 20:17
Public Sub ss()
    Dim d
    Dim i, k

老师：不匹配的小问题解决了，谢谢！！！！