|
本帖最后由 982598216 于 2014-10-16 21:21 编辑
一、EXCEL VBA 按条件汇总 (按姓名,全月里对每人消费金额汇总)
按条件汇总,例如按姓名(F列)合并,金额(G列)加总。
1.先排序,F列为主要关键字,G列为此要关键字。(排序可以录制宏,录制宏这里不做介绍,不会录制的,可以手动排序)
2.编写以下代码,运行:
Sub 按条件汇总 ()
Sheets("消费金额").Select
Dim i As Integer
For i = [a65536].End(xlUp).Row To 2 Step -1
If Cells(i, 5) = Cells(i - 1, 5) Then
Cells(i - 1, 7) = Cells(i, 7) + Cells(i - 1, 7)
Rows(i).Delete Shift:=xlUp
End If
Next
End Sub
二、EXCEL VBA 按条件取极大值 (要求:对每人三次或者四次跑步成绩,取最大值)
按条件取极大值,例如按姓名(F列)合并,分数(G列)加总。
1.先排序,F列为主要关键字,G列为此要关键字降序。(排序可以录制宏,录制宏这里不做介绍,不会录制的,可以手动排序)
2.编写以下代码,运行:
Sub 按条件取最大( )
Sheets("运动成绩").Select
Dim i As Integer
For i = [a65536].End(xlUp).Row To 2 Step -1
If Cells(i, 5) = Cells(i - 1, 5) Then
Rows(i).Delete Shift:=xlUp
End If
Next
End Sub
三、在网上搜索一下,没找到代码,感谢神给我聪明,想出了以上代码。
|
|