Question

我目前正处于单元格说H37，这是我的活跃单元格，并将继续动态变化。我想使用H37与上面的单元格H36 + H35.till H3（最后整数值）的范围求和

我尝试过类似的东西，但它不起作用：

Dim rng As Range         
Set rng = Range(ActiveCell & H3)                   

Range("F3") = Application.WorksheetFunction.Sum(rng)

我想要F3中的总和。

也尝试过---

 WorksheetFunction.Sum(Range(ActiveCell, .End(xlUp)))

有什么建议吗？

Answer 1

您可以使用：

Set rng = Range("H3:" & ActiveCell.address)

这将正确设置地址。

你可能会觉得这很有趣：

dim myRngStr as string
myRngStr = "H3:" & ActiveCell.address
msgbox myRngStr
Set rng = Range(myRngStr)

因为它会显示您正在寻找的实际地址。

Answer 2

您可以尝试以下代码：

Sub Macro1()

Dim InitialCell As String
Dim FinalCell As String


InitialCell = "H3"
FinalCell = ActiveCell.Address

Range("F3").Select
ActiveCell.Formula = "=Sum(" & InitialCell & ":" & FinalCell & ")"

End Sub

如果要从H3以外的其他位置开始求和，可以调整InitialCell，FinalCell表示该activecell的地址。这可以通过将单元格位置转换为字符串并在单元格F3中编写公式来获取这些字符串单元格位置并在它们之间求和。

希望这有帮助！

无法从活动单元格到其上述范围单元格值之和

2 个答案: