求助：VBA如何将自定义区域myrange的求和结果写入指定单元格

看起来你已经接近目标了，只是在语法和代码逻辑上有几个小问题需要调整。我帮你梳理下问题点，再给出修正后的代码：

原代码的主要问题 #

1. 变量名冲突：你用了more_twelve_months作为变量名，但这也是你的子程序名称，会导致编译错误，得换个变量名（比如foundCell）。
2. 过度依赖Select/Activate：VBA里频繁用Select不仅低效，还容易因为工作表切换、选区变化导致出错，直接操作Range对象才是更可靠的方式。
3. 求和语法错误：ActiveCell.Sum (myrange)不是正确的写法，求和需要用WorksheetFunction.Sum来计算值，或者直接给单元格写入求和公式。

修正后的代码（两种方案可选） #

方案1：直接写入求和结果（静态值）

如果不需要单元格和myrange联动，只是写入一次求和的数值，用这个版本：

Sub more_twelve_months()
    Dim myrange As Range
    Dim foundCell As Range ' 重命名变量避免冲突
    
    ' 定义myrange：从F5向右延伸到最后一个非空单元格
    Set myrange = Range(Range("F5"), Range("F5").End(xlToRight))
    
    ' 查找内容为"x"的单元格，指定查找参数确保精准匹配
    Set foundCell = Range("A1:ZZ10000").Find(What:="x", LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 先判断是否找到目标单元格，防止报错
    If Not foundCell Is Nothing Then
        ' 在找到的单元格下方写入求和值
        foundCell.Offset(1, 0).Value = WorksheetFunction.Sum(myrange)
    Else
        MsgBox "未找到内容为""x""的单元格，请检查！"
    End If
End Sub

方案2：写入求和公式（动态联动）

如果希望单元格能跟随myrange的数据变化自动更新求和结果，就写入公式：

Sub more_twelve_months()
    Dim myrange As Range
    Dim foundCell As Range
    
    Set myrange = Range(Range("F5"), Range("F5").End(xlToRight))
    Set foundCell = Range("A1:ZZ10000").Find(What:="x", LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not foundCell Is Nothing Then
        ' 用Address方法获取myrange的引用，拼接成SUM公式
        foundCell.Offset(1, 0).Formula = "=SUM(" & myrange.Address & ")"
    Else
        MsgBox "未找到内容为""x""的单元格，请检查！"
    End If
End Sub

关键修改说明 #

• 新增了If Not foundCell Is Nothing的判断：如果找不到"x"，会弹出提示，避免代码崩溃。
• 完全移除了Select/Activate：直接通过foundCell.Offset(1,0)定位目标单元格，操作更稳定。
• 两种方案分别对应静态值和动态公式，你可以根据需求选择。

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