本帖最后由 hahada 于 2014-10-24 15:22 编辑
Sub abc()
Dim x, y, arr
arr = Range("C23:L25")
x = arr(1, 3) + arr(2, 3) + arr(3, 3)
y = arr(1, 10) + arr(2, 10) + arr(3, 10)
arr = Range("D49:O49")
arr(1, 1) = x
arr(1, 2) = y
arr(1, 3) = x + arr(1, 3)
arr(1, 4) = y + arr(1, 4)
arr(1, 11) = x + arr(1, 11)
arr(1, 12) = y + arr(1, 12)
Range("D49:O49") = arr
End Sub
解释下数组?
hahada 发表于 2013-10-25 20:07
是不是替换掉原来数组的内容了
你可以这么理解.
意思给变量重新赋了一次值而已.
|