vba - 无法从活动单元格求和到其以上范围单元格值

Question

我目前在单元格 H37 中，这是我的活动单元格，并将继续动态变化。我想使用从 H37 到其上面的单元格 H36 +H35..直到 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 表示该活动单元的地址。这通过将单元格位置转换为字符串并在单元格 F3 中编写一个公式来获取这些字符串单元格位置并在它们之间求和。

希望这可以帮助！