计算结果赋值给数据的变量设置问题

凌飞云天

想用VBA的方法把sheet1中前10每行前四列的数据相加，计算结果在f列显示。代码如下：
Sub 变量求和()
Dim arr, i%
   For i = 1 To 10
   arr = "=sum(a" & i & ":d" & i & ")"
Next
Range("f1:f10").Value = Application.WorksheetFunction.Transpose(arr)
End Sub
  结果f1给出的是a10:d10的求和，f2给的是a11:d11的求和……，f10 则是a19:d19的求和。求大师指点问题所在。

ykcbf1100

这样就行了。

你数组用法明显错误。

boyayes

就是说你声明的arr并不是一个数组，它只是一个变体型的变量，每次循环赋值时都会把之前的值替换掉，最终arr只有一个值而已。

修改如下图：

凌飞云天

ykcbf1100 发表于 2024-2-14 13:44
这样就行了。

你数组用法明显错误。

你是说这里无须用数组？

ykcbf1100

凌飞云天 发表于 2024-2-14 15:32
你是说这里无须用数组？

可以用，也可以不用，但不是你那样用的。

taller