如何通过VBA代码创建命名区域并计算平均值后写入指定单元格？

Sub NameRanges()
    ' 创建HourlyConsumption命名区域
    Dim HourlyConsumption As Range
    Set HourlyConsumption = ThisWorkbook.ActiveSheet.Range("B2:B251")
    ThisWorkbook.Names.Add Name:="HourlyConsumption", RefersTo:=HourlyConsumption
    
    ' 创建Replenishment命名区域
    Dim Replenishment As Range
    Set Replenishment = ThisWorkbook.ActiveSheet.Range("C2:C251")
    ThisWorkbook.Names.Add Name:="Replenishment", RefersTo:=Replenishment
End Sub

Sub DataAverages()
    ' 计算两个命名区域的平均值
    Dim AVGHourlyConsumption As Double
    Dim AVGReplenishment As Double
    
    AVGHourlyConsumption = WorksheetFunction.Average(Range("HourlyConsumption"))
    AVGReplenishment = WorksheetFunction.Average(Range("Replenishment"))
    
    ' 将结果写入指定单元格
    ThisWorkbook.ActiveSheet.Range("H1").Value = AVGHourlyConsumption
    ThisWorkbook.ActiveSheet.Range("H2").Value = AVGReplenishment
End Sub

• 命名区域的稳定性优化：原代码未指定工作表范围，添加ThisWorkbook.ActiveSheet（或替换为具体工作表名如Sheet1），避免切换工作表时出现引用错误。
• 平均值计算逻辑修正：原代码用Range.Value / 命名区域字符串的方式完全错误，VBA中直接调用WorksheetFunction.Average即可快速计算区域平均值，该函数会自动忽略非数值单元格。
• 变量声明规范：原代码中AVGReplenishment未声明数据类型，显式声明为Double可避免变体类型带来的潜在运算问题。
• 单元格赋值错误修正：
  • 赋值单元格数值不需要Set关键字，Set仅用于对象（如Range）的赋值；
  • 修正Cells("H1")的错误写法，改用更直观的Range("H1")；
  • 修复拼写错误Vaule为正确的Value。
• 可读性优化：添加注释说明代码作用，统一缩进格式，提升代码维护性。

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