EXCEL中怎样用VBA分组求解？

Private Sub CommandButton1_Click()

i = 2

Do While Range("B" &i).Value >""

If i = 2 Or Range("B" &i).Value <>Range("B" &i - 1).Value Then

k = i

Range("E" &i).Value = Range("C" &i).Value

Range("F" &i).Value = Range("D" &i).Value

Else

If Range("C" &i).Value >Range("E" &k).Value Then

Range("E" &k).Value = Range("C" &i).Value

End If

If Range("D" &i).Value >Range("F" &k).Value Then

Range("F" &k).Value = Range("D" &i).Value

End If

End If

i = i + 1

Loop

End Sub

可以这样编写sql :

select a.A,b.maxB ,a.C from interval a,

(select A,max(B) as maxB from interval

group by A) b where b.A=a.A

and b.maxB=a.B

首先在工具 引用 中引入ADO组件(全名叫Microsoft ActiveX Data什么的，很好好找)，然后声明一个连接变量 conn as ADODB.Connetion用来连接数据库，这里需要连接字符串，不知道你是什么类型数据库，所以连接字符串无法给出，再声明一个数据集变量ds as ADODB. DATASET用于执行SQL语句并返回结果集，得到结果集之后就可以访问里面的内容了

---