VBA多条件循环实现求助：基于两列9组条件编写逻辑

问题背景 #

需在VBA中循环处理9组条件，目标为起始表的「New GM」列（对应代码中M列），要根据每行的跨列数据（如F列、X列、L列等）匹配对应条件并执行操作。尝试过If结合Select Case/ElseIf的写法，但在跨列条件判断结构和循环逻辑上遇到阻碍，以下是未完成的代码，仅需解决条件结构与循环问题。

原代码核心问题 #

1. 循环时固定引用Sheets(3).Range("L7")等固定行号，未随遍历的单元格同步对应行数据
2. i变量使用混乱，For Each循环无需额外计数变量
3. 部分条件判断不完整（如Sheets(3).Range("X7")未指定判断值）
4. 依赖ActiveCell存在稳定性问题，语法存在括号不匹配、变量缺失等错误

修正后的条件结构与循环示例 #

Sub Margin_Five()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim MyCell As Range
    Dim rowNum As Long
    ' 存储当前行的各列值，简化条件判断
    Dim acctMgrVal As Double
    Dim chgsVal As String
    Dim basedOnVal As String

    Set ws = ActiveSheet
    ' 取有效数据最后一行（以I列为准，可按需调整）
    lastRow = ws.Range("I" & ws.Rows.Count).End(xlUp).Row

    ' 遍历目标列（M7到最后一行）
    For Each MyCell In ws.Range("M7:M" & lastRow).Cells
        rowNum = MyCell.Row ' 获取当前单元格的行号
        ' 读取当前行对应列的数值/文本
        acctMgrVal = ws.Cells(rowNum, "L").Value
        chgsVal = ws.Cells(rowNum, "F").Value
        basedOnVal = ws.Cells(rowNum, "X").Value

        ' 多条件判断结构，可扩展至9组条件
        If acctMgrVal > 0 Then
            MyCell.FormulaR1C1 = "=RC[-1]"
        ElseIf chgsVal = "Removed" And basedOnVal = "L" Then
            MyCell.FormulaR1C1 = "=(1-(RC[5]/RC[12]))*100"
        ElseIf chgsVal = "Removed" And basedOnVal = "某值1" Then ' 替换为实际条件值
            MyCell.FormulaR1C1 = "=(1-(RC[5]/(RC[7]/(1-RC[10]/100))))*100"
        ElseIf chgsVal = "Removed" And basedOnVal = "某值2" Then ' 替换为实际条件值
            MyCell.FormulaR1C1 = "=(1-(RC[5]/(RC[7]/(1-RC[10]/100))))*100"
        ElseIf chgsVal = "Removed" And basedOnVal = "某值3" Then ' 替换为实际条件值
            MyCell.FormulaR1C1 = "N/A"
        ' 继续添加剩余4组条件
        ' ElseIf ... Then
        '     ...
        Else
            ' 所有条件不匹配时的默认操作，可按需设置
            MyCell.Value = "无匹配条件"
        End If
    Next MyCell
End Sub

关键优化点 #

• 行号同步：通过rowNum = MyCell.Row获取当前遍历单元格的行号，确保所有列引用都对应同一行
• 变量存储列值：将当前行各列的值存入变量，避免重复引用单元格，提升代码可读性与执行效率
• 条件结构清晰：用If-ElseIf层级结构整理9组条件，可根据实际逻辑调整顺序（注意条件优先级）
• 避免ActiveCell：直接操作遍历的MyCell对象，避免因工作表切换导致的错误

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