背景
这里有一份某物流公司的全年的城市配送数据，配送车辆都为如17.5M、12.5M、9.6M、4.2M的厢式货车，但会存在部分订单方量较小，为了提高装载率，需引进一批满载方量较小的电动车参与配送。所以需要分析出电动车每天（及全年）需要配送的货量（体积）和车辆数。
其中某品牌电动车的配置：
- 最大装载容积：11方
- 最大装载重量：1530KG
- 最大行驶距离：195KM
城市配送明细数据简述
这里只介绍我们需要处理的几列数据。
数据明细表
每天的配送数据是以货物名称作为每一行的参考基准，例如第一行表示12.31号某货物发了2件，包括运输距离，货物体积，货物重量，由哪辆运输车辆负责配送。意味者表中同一天货物的客户订单号是重复的，车牌号也是重复的，订单线路也是重复的，实际配送中，每天单个车辆需要拼装多个订单号的货物（车辆每天一次配送作业）。
数据处理
1.数据透视，以客户订单号为主键，获取每天每个订单下的货物体积累积和、重量累积和。
2.筛选出公里数小于195KM的线路
3.找出每天1辆电动车（体积11方，重量1530KG）或2辆电动车（体积22方，3060KG）可以满足的车辆配送方案。其实这里每天同一车辆对应的订单号，订单号对应的体积和、重量和就是车辆实际配送的装载方案。
4.由此，我们只要将每天下的同一车辆配送的货物的体积求和，重量求和，对于满足电动车配送的条件的就是我们需要获取的数据。
5.做个查询条件表，左列为全年的每天日期，右列为配送车牌
6.通过VBA的方式做条件查询。
VBA代码参考：
Sub 按钮3_Click()
'获取明细数据表（A列）、日期列(I列)、车牌列(J列)数据的总行数
maxir = [A65536].End(3).Row
dates = [I65536].End(3).Row
vehicles = [J65536].End(3).Row
'MsgBox (maxir)
'MsgBox (dates)
'MsgBox (vehicles)
'将需要获取的数据存放的所在位置清零
Range("o2:cg353") = ""
Dim w As String
Dim v As String
'从日期列开始循环取值
For ir = 2 To dates
'从车排列开始循环取值
For iNum = 1 To vehicles - 1
w = 0
v = 0
jr = iNum + 1
'单元格引用SUMIFS函数
'SUMIFS（求和区域，条件区域1，条件1，条件区域2，条件2）
'求符合条件的重量和
w = WorksheetFunction.SumIfs(Range("d2:d" & maxir), Range("a2:a" & maxir), Range("i" & ir).Value, Range("g2:g" & maxir), Range("j" & jr).Value)
'求符合条件的体积和
v = WorksheetFunction.SumIfs(Range("c2:c" & maxir), Range("a2:a" & maxir), Range("i" & ir).Value, Range("g2:g" & maxir), Range("j" & jr).Value)
'满足体积小于等于11，重量小于1530的值插入单元格
If w < 1530 And v <= 11 Then
Cells(ir, 14 + iNum) = WorksheetFunction.SumIfs(Range("c2:c" & maxir), Range("a2:a" & maxir), Range("i" & ir).Value, Range("g2:g" & maxir), Range("j" & jr).Value)
ElseIf v > 11 And v < 22 And w < 3060 Then
Cells(ir, 14 + iNum) = WorksheetFunction.SumIfs(Range("c2:c" & maxir), Range("a2:a" & maxir), Range("i" & ir).Value, Range("g2:g" & maxir), Range("j" & jr).Value)
End If
Next iNum
Next ir
End Sub
-
执行代码，最终得到一张满足电动车条件的日期（行）车牌（列）的矩阵表（体积）
8.再利用countif,sumifs函数就可以得到每天需要配备的电动车辆数及每天的货量。
