如何用VBA修改活动单元格公式？现有代码无响应求解决方案

现有代码的错误 #

你的VBA代码存在多处语法和逻辑问题，导致执行无响应：

• 使用了中文双引号，VBA要求必须用英文双引号""
• 公式赋值语句完全错误：“selectiin -+ selection. Offset(-3,0) 既不是合法的公式字符串，变量名selectiin拼写错误，也没有正确引用单元格
• 代码逻辑错误：你选中的是I10向下最后一个单元格，而非你需要修改的活动单元格
• 代码未闭合引号，语句不完整

正确的实现代码 #

根据你的需求（将活动单元格公式从=+sum(i10:i195)-i197改为=sum(i10:I195)-i197+i196），直接修改活动单元格的公式即可，以下是两种可行方案：

方案1：使用A1格式公式（直观易懂） #

' 直接修改活动单元格的公式
ActiveCell.Formula = "=SUM(I10:I195)-I197+I196"

方案2：使用R1C1格式公式（适合动态引用场景） #

如果你需要用相对引用的方式编写公式，可以用R1C1格式：

ActiveCell.FormulaR1C1 = "=SUM(R10C9:R195C9)-R197C9+R196C9"

注：R1C1格式中，R代表行，C代表列，C9对应第9列（即I列）。

额外说明 #

如果你的目标单元格不是活动单元格，而是某个固定位置（比如I198），可以直接指定单元格：

Worksheets(1).Range("I198").Formula = "=SUM(I10:I195)-I197+I196"

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