如何在VBA中基于同行变量自动填充指定单元格范围并解决报错

• 循环逻辑错误：原代码For a = Range("P12") To Range("P33")的写法不符合VBA遍历单元格的语法，遍历单元格范围需要用For Each语句
• 单元格引用错误：Cells(a, -10)的列索引不能为负数，Excel列号从1开始计数，跨行/列偏移要使用Offset(行偏移量, 列偏移量)方法
• 逻辑计算错误：判断左侧第10列值为"B"后，错误使用该字符串作为乘数参与运算，按照需求应该取左侧第9列的数值作为乘数
• 语法缺失：多行编写的If判断没有补全End If闭合语句

Sub 计算填充单元格()
    Dim targetRng As Range, cell As Range
    Dim c As Double
    ' 定义要填充的目标范围P12:P33
    Set targetRng = ThisWorkbook.ActiveSheet.Range("P12:P33")
    
    For Each cell In targetRng
        ' 左侧第10列值为"B"时执行计算
        If cell.Offset(0, -10).Value = "B" Then
            ' 取左侧第9列的数值 * LCI表D4的值
            c = cell.Offset(0, -9).Value * ThisWorkbook.Worksheets("LCI").Range("D4").Value
            cell.Value = c
        End If
        ' 可根据需求补充其他类型的判断分支，适配不同描述字符串对应的乘数规则
    Next cell
End Sub

• 建议在模块顶部加上Option Explicit强制变量声明，避免拼写错误导致的未知问题
• 如果LCI表的D4值是固定值，可提前取出赋值给变量，避免循环中反复读取工作表单元格，提升运行效率

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