我懂你想跳过「写公式再转值」的两步操作，直接用WorksheetFunction类一步完成求和赋值，但之前的代码出了问题——所有行都显示第一行的结果，这其实是因为Application.WorksheetFunction.Sum()只会计算你传入的单一区域的总合，然后把这个单个值批量填充到整个A1:A10区域，自然所有单元格都一样。

下面给你两种真正一步到位的实现方法，不用中间公式步骤：

方法1：用Evaluate生成数组结果（最简洁高效） #

利用工作表的Evaluate方法可以直接解析数组表达式，一次性生成每行B列加C列的结果数组，直接赋值给A列：

Dim lROW As Long
lROW = 10 ' 这里替换成你的实际行数

' 直接生成每行Bx+Cx的结果数组，赋值给A列
Sheet1.Range("A1:A" & lROW).Value2 = Sheet1.Evaluate("B1:B" & lROW & "+C1:C" & lROW)

如果一定要用SUM函数（比如后续要扩展到多列），也可以用OFFSET配合行号生成每行的区域：

Sheet1.Range("A1:A" & lROW).Value2 = Sheet1.Evaluate("SUM(OFFSET(B1:C1,ROW(B1:B" & lROW & ")-1,0,1,2))")

Evaluate会自动把表达式解析成对应每行的结果数组，完美匹配A列的每个单元格位置。

方法2：用WorksheetFunction结合数组（更灵活） #

如果你坚持要用WorksheetFunction，可以通过构造一个二维数组，逐行计算后再赋值：

Dim lROW As Long
Dim resultArr As Variant
Dim i As Long

lROW = 10
ReDim resultArr(1 To lROW, 1 To 1) ' 构造和目标区域匹配的二维数组

For i = 1 To lROW
    ' 逐行计算B列到C列的和，存入数组
    resultArr(i, 1) = Application.WorksheetFunction.Sum(Sheet1.Cells(i, 2), Sheet1.Cells(i, 3))
Next i

' 把数组一次性赋值给A列
Sheet1.Range("A1:A" & lROW).Value2 = resultArr

这种方法虽然有循环，但也是一次性赋值（循环只是生成数组），避免了公式转值的步骤，而且逻辑更直观，适合需要自定义计算逻辑的场景。

为什么你之前的代码无效？ #

你之前的代码里，Cells(1,2).Address(False,True)生成的是B$1，组合后是B$1:C$1，WorksheetFunction.Sum计算的是这个固定区域的和，得到的是一个单一值，然后赋值给整个A列，所以所有行都显示第一行的结果——这里的相对行设置并没有让函数逐行计算，因为Sum本身不支持数组式的逐行计算，除非配合Evaluate或者手动构造数组。

内容的提问来源于stack exchange，提问作者jamheadart