Excel VBA多条件宏问题：需按D2含Parent条件设置单元格颜色

原代码问题分析 #

• 直接写D2引用单元格属于VBA语法错误，需通过Range("D2").Value获取单元格内容
• 将D2的条件判断放在单元格循环内部，导致无效重复判断，且缺失闭合的End If造成语法错误
• 未限定操作的工作表，可能在错误工作表执行修改

修正代码 #

Option Explicit

Sub FormatParentCells()
    ' 限定操作的工作表，可替换为具体名称如Sheets("Sheet1")
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 先判断D2是否包含"Parent"，满足条件才执行后续操作
    If ws.Range("D2").Value Like "*Parent*" Then
        Dim rngCell As Range
        ' 遍历目标区域D2:S1000
        For Each rngCell In ws.Range("D2:S1000")
            ' 判断单元格值包含"1/"且填充色索引不为13
            If rngCell.Value Like "*1/*" And rngCell.Interior.ColorIndex <> 13 Then
                ' 设置填充色索引为46
                rngCell.Interior.ColorIndex = 46
            End If
        Next rngCell
    End If
End Sub

关键优化点 #

• 先执行D2的条件判断，避免无意义的循环遍历
• 加入Option Explicit强制变量声明，减少语法错误
• 限定操作工作表，避免跨表误操作
• 补全原代码缺失的End If，修正单元格引用语法

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