背景

这里有一份某物流公司的全年的城市配送数据，配送车辆都为如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

7. 执行代码，最终得到一张满足电动车条件的日期（行）车牌（列）的矩阵表（体积）

   
   
   

   8.再利用countif,sumifs函数就可以得到每天需要配备的电动车辆数及每天的货量。