【多条件匹配】萌新求助

Option Explicit
Sub abc()
　Dim a, i, p, t, d
　a = [a1].CurrentRegion.Offset(1).Resize(, 4).Value
　Set d = CreateObject("scripting.dictionary")
　For i = 1 To UBound(a) - 1
　　If Len(a(i, 1)) Then p = i
　　d(a(p, 1) & a(i, 2)) = Array(a(i, 3), a(i, 4))
　Next
　a = [f1].CurrentRegion.Offset(1).Resize(, 4).Value
　For i = 1 To UBound(a) - 1
　　If Len(a(i, 1)) Then p = i
　　t = a(p, 1) & a(i, 2)
　　If d.exists(t) Then
　　　a(i, 3) = d(t)(0): a(i, 4) = d(t)(1)
　　Else
　　　a(i, 3) = Empty: a(i, 4) = Empty
　　End If
　Next
　[f1].CurrentRegion.Offset(1).Resize(, 4) = a
End Sub

=IFERROR(INDEX(C:C,SMALL(IF((LOOKUP(ROW($2:$24),ROW($2:$24)/($A$2:$A$24<>""),$A$2:$A$24)=LOOKUP("座",$F$2:$F2))*($B$2:$B$24=$G2),ROW($2:$24),""),1)),"")
CTRL+SHIFT+回车
然后右拉一格再下拉

请问如何使【右表】自动匹配左表L/N列的数据？（N列=增量（资源池）+额外量）
还有：存量总价、增量总价如何自动匹配生成。

'你这输出表格设计的有问题，这只是一个转置的表格
Option Explicit
Sub abc()
　Dim a, i, m, n, p, d(1)
　a = [a1].CurrentRegion.Resize(, 4).Value
　ReDim b(UBound(a), 30) '最多支持30个种类
　For i = 0 To UBound(d)
　　Set d(i) = CreateObject("scripting.dictionary")
　Next
　For i = 2 To UBound(a)
　　If Len(a(i, 1)) Then p = i
　　If Not d(0).exists(a(p, 1)) Then m = m + 1: d(0)(a(p, 1)) = m: b(m, 0) = a(p, 1)
　　If Not d(1).exists(a(i, 2)) Then n = n + 1: d(1)(a(i, 2)) = n: b(0, n) = a(i, 2)
　　b(d(0)(a(p, 1)), d(1)(a(i, 2))) = b(d(0)(a(p, 1)), d(1)(a(i, 2))) + a(i, 3)
　Next
　[f1].Resize(m + 1, UBound(b, 2) + 1) = b
End Sub

从表2中匹配数据至表3

'大概猜了一下，但O列跟M列相同，O列是额外量盈利的吧
Option Explicit
Sub abc()
　Dim a, i
　a = Range("f2:i" & [g1].End(xlDown).Row).Value
　If UBound(a) Mod 3 Then MsgBox "!"
　ReDim b(1 To UBound(a) / 3, 1 To 5)
　For i = 1 To UBound(a) Step 3
　　b((i + 2) / 3, 1) = a(i, 1)
　　b((i + 2) / 3, 2) = a(i + 1, 3)
　　b((i + 2) / 3, 3) = a(i + 1, 3) * a(i + 1, 4)
　　b((i + 2) / 3, 4) = a(i, 3) + a(i + 2, 3)
　　b((i + 2) / 3, 5) = a(i + 2, 3) * a(i + 2, 4)
　Next
　[k2].Resize(UBound(b), 5) = b
End Sub

晚上的公式很好用，但表2（增量、存量）位置调换后，公式不再起作用。请大佬指点🙏

'O列结果还是猜的，因为有2中可能
Option Explicit
Sub abc()
　Dim a, i
　a = Range("f2:i" & [g1].End(xlDown).Row).Value
　If UBound(a) Mod 3 Then MsgBox "!"
　ReDim b(1 To UBound(a) / 3, 1 To 5)
　For i = 1 To UBound(a) Step 3
　　b((i + 2) / 3, 1) = a(i, 1)
　　b((i + 2) / 3, 2) = a(i, 3)
　　b((i + 2) / 3, 3) = a(i, 3) * a(i, 4)
　　b((i + 2) / 3, 4) = a(i + 1, 3) + a(i + 2, 3)
　　b((i + 2) / 3, 5) = a(i + 1, 3) * a(i + 1, 4) + a(i + 2, 3) * a(i + 2, 4)
　Next
　[k2].Resize(UBound(b), 5) = b
End Sub