VBA开发报价工具时动态范围求和及单元格区域引用问题咨询

问题解决方法 #

1. 动态区域求和实现 #

你要对指定列区域求和，有两种常用实现方案：

方案1：写入Excel公式（推荐，后续数据变动会自动更新）

如果需要在Cells(a + 1, 6)位置输出G列（第7列）从第1行到第a行的求和结果，写法如下：

With Sheet2
    ' 公式范围可按需调整，比如要对G列a到a+1行求和，就改为"=SUM(G" & a & ":G" & a+1 & ")"
    .Cells(a + 1, 6).Formula = "=SUM(G1:G" & a & ")"
End With

方案2：直接计算静态值写入单元格（结果固定，后续数据变动不会自动更新）

With Sheet2
    .Cells(a + 1, 6).Value = Application.WorksheetFunction.Sum(.Range("G1:G" & a))
End With

如果是你提到的对.Range(.Cells(a, 7), .Cells(a + 1, 7))区域求和，直接替换上面的求和范围即可：

' 公式写法
.Cells(结果存放行, 结果存放列).Formula = "=SUM(G" & a & ":G" & a + 1 & ")"
' 静态值写法
.Cells(结果存放行, 结果存放列).Value = Application.WorksheetFunction.Sum(.Range(.Cells(a,7), .Cells(a+1,7)))

2. With块的必要性 #

With ... End With不是语法要求的必须项，它的作用是简化同一对象的多次引用，避免重复写对象名，同时可以小幅提升代码运行效率。
比如不用With块的话，上面的代码可以直接写为：

Sheet2.Cells(a + 1, 6).Formula = "=SUM(G1:G" & a & ")"

如果需要多次操作同一个Sheet的属性、方法，用With块会更简洁，也能降低写错对象的概率。 #

3. 卡顿位置代码替换示例 #

你可以把原有卡住的代码段直接替换为下面的内容，就能实现插入行后输出求和结果的需求：

With Sheet2
    ' 插入行的F列写入G列前a行求和结果
    .Cells(a + 1, 6).Formula = "=SUM(G1:G" & a & ")"
    ' 如有其他对Sheet2的操作可以继续在该块内补充
End With

代码优化提示 #

• 你当前代码使用了On Error Resume Next，注意补充错误判断逻辑，比如Find方法没有匹配到对应值时会触发异常，建议增加If Not 查找对象 Is Nothing的判断再执行后续逻辑
• 循环中插入行会导致行号偏移，建议把循环改为从下往上遍历，避免出现漏行问题
• 不要用Find、Row#这类和VBA内置关键字重名的变量名，避免触发命名冲突

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