行和列具体数量不固定，对每行求和，填写到最后一列中；对每列求和，填写到最后一行

皮皮坦克

一把小刀闯天下 发表于 2018-6-12 07:03
'稍作注释

Option Explicit

麻烦再请教一下这个是怎么实现的？
  arr(UBound(arr, 1), j) = arr(UBound(arr, 1), j) + arr(i, j) '列求和
      arr(i, UBound(arr, 2)) = arr(i, UBound(arr, 2)) + arr(i, j) '行求和
研究了两天数组的内容，分开都看懂了，写在一起就看不懂，汗然啊！