背景
这里有一份某物流公司的全年的城市配送数据,配送车辆都为如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函数就可以得到每天需要配备的电动车辆数及每天的货量。
网友评论