私人？Sub？Command1_Click()
暗淡？來源
來源？=?"4,35,43,56;43,65,34,26;34,54,35,56"
來源？=?InputBox("行用分號分隔，列用逗號分隔"):？如果？來源？=?空的？然後呢？退出？“Sub”可以更改為對話框輸入。
暗淡？表(1？去哪？4,?1?去哪？5)
暗淡？艾琳。arCol
艾琳。=?拆分(來源，？";")?分隔字符串線
暗淡？我？作為？整數，？j？作為？整數
用數據填充表格。
為了什麽？我？=?1?去哪？3?三條線
arCol？=?Split(arLine(i？-?1),?",")?分隔每行字符串的列。
為了什麽？j？=?1?去哪？4?四列
表(我，？j)？=?Val(arCol(j？-?1))
然後
然後
暗淡？sumLow？蘇姆科爾
匯總表格列表，並將結果添加到最後壹個表格列表。
為了什麽？我？=?1?去哪？3?三條線
為了什麽？j？=?1?去哪？4?四列
表(我，？5)?=?表(我，？5)?+?表(我，？j)？將對等體的數量累加到最後壹列。
表(4，j)？=?表(4，j)？+?表(我，？j)？將同壹列中的數字累加到最後壹行。
然後
然後
顯示
為了什麽？我？=?1?去哪？UBound(表，？1)?四行
為了什麽？j？=?1?去哪？UBound(表，？2)?五列
打印？表(我，？j)，？；
然後
打印
然後
結束？潛水艇