在 vba 中具有预定义范围的特定单元格中的范围总和

Question

我有一个选定的范围，我将其定义为我的范围。我想在特定单元格中获取此选择的总和。 makro应该找到“x”，选择下面的单元格并输入“Sum”+我在“myrange”中定义的范围

Sub more_twelve_months()
Dim myrange As Range

Set myrange = Range(Range("F5"), Range("F5").End(xlToRight))
       
Set more_twelve_months = Range("A1:ZZ10000").Find("x")
    more_twelve_months.Select
    FormularCell = ActiveCell.Offset(1, 0).Select
    Selection.Resize(Selection.Rows.Count, _
    Selection.Columns.Count).Select


   ActiveCell.Sum (myrange)

我尝试了几种方法来获得总和， ActiveCell.Sum (myrange) 是我尝试的最后一件事。

有什么办法可以解决这个问题吗？

Answer 1

这是你想要的吗？

你应该尽可能avoid using Select。

Sub more_twelve_months()

Dim myrange As Range
Dim more_twelve_months As Range 'declare your variables

Set myrange = Range(Range("F5"), Range("F5").End(xlToRight))
    
Set more_twelve_months = Range("A1:ZZ10000").Find("x")

If Not more_twelve_months Is Nothing Then 'check you've found something to avoid errors
    more_twelve_months.Offset(1).Value = Application.Sum(myrange)
End If

End Sub