結果表第五列是和差吧？是固定4列減2列？有負數
代碼如下所示
Sub？測試()
暗淡？啊？brr()，？x & amp,?y & amp,?我& amp,?j 1 & amp；,?j2 & amp,?k，？k1
暗淡？d？作為？目標
設置？d？=?CreateObject(" scripting . dictionary ")
arr？=?Sheet1。使用範圍
雷迪姆？brr(1？去哪？5,?1?去哪？1)
為了什麽？z？=?1?去哪？4?壹步？2
為了什麽？x？=?1?去哪？欠奉
如果？不是嗎？d .存在(arr(x，z))？然後呢。arr(x，？z)？& lt& gt？""?然後
d(arr(x，z))？=?""
k？=?0:?k1？=?0
為了什麽？y？=?1?去哪？欠奉
如果？arr(y，？1)?=?arr(x，？z)？然後
j1？=?j1？+?1
k？=?k？+?arr(y，？2)
我？=?申請。Max(j1，？j2)
雷迪姆？保存？brr(1？去哪？5,?1?去哪？我)
brr(1，？j1)？=?arr(y，？1)
brr(2，？j1)？=?arr(y，？2)
結束？如果
如果？arr(y，？3)?=?arr(x，？z)？然後
j2？=?j2？+?1
k1？=?k1？+?arr(y，？4)
我？=?申請。Max(j1，？j2)
雷迪姆？保存？brr(1？去哪？5,?1?去哪？我)
brr(3，？j2)？=?arr(y，？3)
brr(4，？j2)？=?arr(y，？4)
結束？如果
下壹個？y
我？=?我？+?1
j1？=?我:？j2？=?我
雷迪姆？保存？brr(1？去哪？5,?1?去哪？我)
brr(1，？我)？=?arr(x，？z)？& amp？"總計"
brr(2，？我)？=?k
brr(3，？我)？=?brr(1，？我)
brr(4，？我)？=?k1
brr(5，？我)？=?k1？-?k
結束？如果
下壹個？x
下壹個？Z
用什麽？工作表2
。列(“A:F”)。清除內容
。範圍(" A1 ")。調整大小(UBound(brr，2),?5)?=?申請。轉置
結束？隨著
結束？潛水艇