EXCEL VBA 按条件汇总

982598216

一、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

三、在网上搜索一下，没找到代码，感谢神给我聪明，想出了以上代码。

十字路口3

太深奥了，看不懂