VBA实现指定列除法运算及条件赋值功能求助

代码里的核心问题： #

• 错误操作整列区域：循环中每次都对Range("e4:e6")整体赋值/写公式，这会把E4-E6所有单元格改成同一内容，而不是只修改当前C列单元格对应的那一行E列单元格，完全不符合“对应第三列单元格”的需求。
• 公式引用固定单元格：公式写死成=d4/c4，导致所有E列单元格都只会计算D4除以C4，而不是对应行的D列除以C列（比如E5应该用D5/C5）。
• 未绑定指定工作表：如果ws是你定义的目标工作表，直接用Range("e4:e6")会默认操作当前活动工作表，而非ws指定的表，容易导致数据写到错误位置。

修正后的代码： #

Dim k As Range

For Each k In ws.Range("c4:c6")
    ' 定位当前C列单元格对应的E列单元格
    Dim targetCell As Range
    Set targetCell = ws.Cells(k.Row, "E")
    
    If k.Value = 0 Then
        targetCell.Value = "N/A"
    Else
        ' 拼接对应行的单元格地址，保证公式引用正确行的D、C列
        targetCell.Formula = "=D" & k.Row & "/C" & k.Row
        ' 也可以用更简洁的R1C1格式：targetCell.FormulaR1C1 = "=RC[-1]/RC[-2]"
    End If
Next

修正说明： #

1. 每次循环只定位到当前C列单元格所在行的E列单元格，确保只修改“对应”的第三列单元格。
2. 通过k.Row获取当前行号，动态拼接公式里的单元格引用，保证每个E列单元格计算对应行的除法。
3. 所有单元格操作都加上ws.前缀，确保操作的是你指定的工作表。

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