Excel vba用户定义的多维数组功能过滤；更有效的替代循环？

如何解决Excel vba用户定义的多维数组功能过滤；更有效的替代循环？

我想找出一种在excel中执行以下操作的更有效方法：

我有一个以下格式的表格，其中详细列出了约75种不同的建筑设备（共约5000行）的租赁活动：

equipment_id | customer_name | rental_start | rental_end | daily_rate  
Tractor A  |  Customer 1  |  12/1/2018  |  3/1/2019  |  $76.28  
Tractor A  |  Customer 2  |  3/19/2019  |  05/15/2019  |  $66.85  
Tractor A  |  Customer 1  |  7/15/2019  |  11/5/2019  |  $72.18  
Tractor B  |  Customer 3  |  8/1/2018  |  3/5/2019  |  $105.80 

...对于所有75台左右的设备依此类推

此租赁活动随后根据给定财政季度中每台设备的租赁天数来驱动季度财务预测。我目前正在使用下面的用户定义函数：

1. 获取设备ID和相关的会计期间（例如，拖拉机A的时间为2019年1月1日至2019年3月31日）
2. 遍历整个〜5000行活动表以获取拖拉机A的行
3. 计算与拖拉机A相匹配的每一行的会计期与租赁开始/结束日期之间的天数重叠
4. 添加到连续几天的运行统计中，并在遍历整个表后返回

l

Function days_on_rent(equipment_id as String,period_start as Long,period_end as Long,rActivity as Range) as Long  
    Dim arrActivity() as Variant: arrActivity = rActivity  
    Dim rental_start as Long,rental_end as Long  
    Dim days_overlap as Integer  
    Dim i as Integer  
    For i = LBound(arrActivity) to UBound(arrActivity)  
        If arrActivity(i,1) = equipment_id Then  
            rental_start = arrActivity(i,3)  
            rental_end = arrActivity(i,4)  
            days_overlap = days_overlap + daysOverlap(period_start,period_end,rental_start,rental_end)  
        End If  
    Next i  
    days_on_rent = days_overlap  
End Function

daysOverlap是一个单独的函数：

Function daysOverlap(pd1_start as Long,pd1_end as Long,pd2_start as Long,pd2_end as Long) as Integer
    Dim j as Integer
    With WorksheetFunction
        j = .Max(0,.Min(pd1_end - pd2_start,pd1_end - pd1_start) - .Max(0,pd1_end - pd2_end))
    End With
    daysOverlap = j
End Function
    

然后是第二个基本执行相同功能的函数，只是对相关期间的日均租金进行加权平均（天重叠）*（租金）。

因为模型中每个设备都有一个订单项，所以运行每个功能（75个设备）*（24个季度）= 1800次 每台设备2个功能=每个周期通过活动表进行3600次迭代循环

看似更有效的解决方案如下所示： （i）将活动表从工作表加载到数组一次并存储在内存中 （ii）根据equipment_id过滤内存阵列 （iii）然后遍历过滤后的数组以查找相关时期内的天重叠

但是我似乎无法弄清楚该怎么做。有什么想法吗？