作业帮求教excel公司或vba代码：若a1=a2且b1=b2且c1=c2,则汇总d1d2并删除第二行,依次类推.如性别 姓名 年龄 收入男 张三 23 2000男 张三 23 1500女 李四 24 3000女 李四 24 1300女 李四 24 2100....
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/08 05:40:04
求教excel公司或vba代码：若a1=a2且b1=b2且c1=c2,则汇总d1d2并删除第二行,依次类推.如性别 姓名 年龄 收入男 张三 23 2000男 张三 23 1500女 李四 24 3000女 李四 24 1300女 李四 24 2100....
求教excel公司或vba代码：若a1=a2且b1=b2且c1=c2,则汇总d1d2并删除第二行,依次类推.
如
性别 姓名 年龄 收入
男 张三 23 2000
男 张三 23 1500
女 李四 24 3000
女 李四 24 1300
女 李四 24 2100
....
求教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
结果如图：
