作业帮 > 综合 > 作业

求教excel公司或vba代码:若a1=a2且b1=b2且c1=c2,则汇总d1d2并删除第二行,依次类推.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/13 23:53:16
求教excel公司或vba代码:若a1=a2且b1=b2且c1=c2,则汇总d1d2并删除第二行,依次类推.

性别 姓名 年龄 收入
男 张三 23 2000
男 张三 23 1500
女 李四 24 3000
女 李四 24 1300
女 李四 24 2100
....
有公式不能实现删除行,只能用VBA.Sub huizong()    For i = 1 To ActiveSheet.UsedRange.Rows.Count                If ActiveSheet.Cells(i, 1).Value = ActiveSheet.Cells(i + 1, 1) _           And ActiveSheet.Cells(i, 2).Value = ActiveSheet.Cells(i + 1, 2) _           And ActiveSheet.Cells(i, 3).Value = ActiveSheet.Cells(i + 1, 3) Then                      If ActiveSheet.Cells(i, 1).Value <> "" _           And ActiveSheet.Cells(i, 2).Value <> "" _           And ActiveSheet.Cells(i, 3).Value <> "" Then            Exit For           End If                      ActiveSheet.Cells(i, 4).Value = ActiveSheet.Cells(i, 4).Value + ActiveSheet.Cells(i + 1, 4).Value           ActiveSheet.Rows(i + 1).Delete           i = i - 1                   End If            Next    End Sub结果如图: