急,运输单据分组求和问题

templogin

部门  部门客户 卡车 送货地点 重量 价钱
A       A01          T1     SHA         2      100
A         A02       T1      BJ         3       200
A       A02        T1        CS        2        200
A        A02        T1        CS        5        500
B        B01        T11        GZ        9        1800
统计: 要求部门,部门客户,卡车,送货地点 四项一样时统计出来重量与价钱,
并按这几项排列好顺序. 请高手指点下.谢谢
A        A01        T1        SHA        2        100
A        A02        T1        BJ        3        200
A        A02        T1        CS        7        700
B        B01        T11        GZ        9        1800

[此贴子已经被作者于2007-2-6 12:45:28编辑过]

templogin

发帖子的格式好难控制啊

改了几次才看到所有的内容在里面.竟然还要自己写html代码才控制好[em16]

fjzjyan

按Alt+F11进入VBE界面，插入一个模块并在其中编写以下子例程

Sub jz()
Dim ws As Worksheet
Dim x As Long
Dim i As Long
Dim j As Long
Set ws = ActiveSheet
x = ws.[a1].CurrentRegion.Rows.Count
For i = 2 To x
For j = i + 1 To x
   If ws.Cells(j, 1) = ws.Cells(i, 1) And ws.Cells(j, 2) = ws.Cells(i, 2) And ws.Cells(j, 3) = ws.Cells(i, 3) And ws.Cells(j, 4) = ws.Cells(i, 4) Then
      ws.Cells(i, 5) = Val(ws.Cells(i, 5)) + Val(ws.Cells(j, 5))
      ws.Cells(i, 6) = Val(ws.Cells(i, 6)) + Val(ws.Cells(j, 6))
   ws.Cells(j, 1).EntireRow.Delete
   End If
   Next j
    x = ws.[a1].CurrentRegion.Rows.Count
Next i
End Sub