如果用現成公式，可以在VBA中，使用
Worksheetfunction套用函數
或者
ActiveCell.FormulaR1C1 = "=xxx"
直接硬編碼公式。
另外，看妳處理數據，是放在數組中，效率高不錯，但是
存放最終的數據時，建議不要在原來的地方，放在其它sheet較好。