Office中国论坛/Access中国论坛

标题: 急,运输单据分组求和问题 [打印本页]

作者: templogin 时间: 2007-2-6 20:37
标题: 急,运输单据分组求和问题
部门  部门客户卡车送货地点重量价钱
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 时间: 2007-2-6 20:49
发帖子的格式好难控制啊

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

作者: fjzjyan 时间: 2007-2-7 04:39
标题: 多字段数据汇总
按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
[attach]22999[/attach]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)