请求修复：基于C25输入值高亮Excel指定单元格的VBA代码

原代码核心问题 #

1. 错误的颜色存储与恢复逻辑：originalColors = checkRange.Interior.ColorIndex 无法正确保存多区域单元格的颜色值，后续执行checkRange.Interior.ColorIndex = originalColors会将所有小单元格的颜色重置为同一个值，直接清除了原有填充色。
2. 逻辑偏差：原代码仅检查startRow对应的单行单元格，未覆盖每个大单元格对应的所有小单元格区域，完全不符合“所有右侧含目标数字的小单元格对应大单元格变色”的需求。
3. 颜色来源误解：错误地获取C25的填充色作为目标色，实际需求是使用含目标数字的小单元格自身的填充色来设置大单元格。

修正后的VBA代码 #

Sub UpdateBigCellColors()
    Dim targetNum As Variant
    Dim bigCell As Range
    Dim smallCell As Range
    Dim smallRange As Range
    
    ' 获取C25的目标数字
    targetNum = Range("C25").Value
    
    ' 验证输入是否为1-5的整数
    If Not IsNumeric(targetNum) Or targetNum < 1 Or targetNum > 5 Or Int(targetNum) <> targetNum Then
        MsgBox "请在C25单元格输入1-5之间的整数。", vbExclamation
        Exit Sub
    End If
    
    ' 定义所有大单元格（E3、E7、E11、E15、E19）
    Set bigCells = Range("E3,E7,E11,E15,E19")
    
    ' 遍历每个大单元格
    For Each bigCell In bigCells
        ' 定义当前大单元格对应的右侧小单元格区域：指定列，行范围为大单元格行到+3行
        Set smallRange = Union( _
            Range("F" & bigCell.Row & ":F" & bigCell.Row + 3), _
            Range("I" & bigCell.Row & ":I" & bigCell.Row + 3), _
            Range("L" & bigCell.Row & ":L" & bigCell.Row + 3), _
            Range("O" & bigCell.Row & ":O" & bigCell.Row + 3), _
            Range("R" & bigCell.Row & ":R" & bigCell.Row + 3), _
            Range("U" & bigCell.Row & ":U" & bigCell.Row + 3), _
            Range("X" & bigCell.Row & ":X" & bigCell.Row + 3), _
            Range("AA" & bigCell.Row & ":AA" & bigCell.Row + 3), _
            Range("AD" & bigCell.Row & ":AD" & bigCell.Row + 3), _
            Range("AG" & bigCell.Row & ":AG" & bigCell.Row + 3) _
        )
        
        ' 初始化大单元格颜色为无填充（可根据需求保留原有颜色，删除此行即可）
        bigCell.Interior.ColorIndex = xlColorIndexNone
        
        ' 遍历对应小单元格
        For Each smallCell In smallRange
            ' 找到值等于目标数字的小单元格
            If smallCell.Value = targetNum Then
                ' 将大单元格设为该小单元格的填充色
                bigCell.Interior.Color = smallCell.Interior.Color
                ' 若需匹配多个小单元格的颜色，可删除Exit For实现颜色覆盖（保留最后一个匹配的颜色）
                Exit For
            End If
        Next smallCell
    Next bigCell
End Sub

代码说明 #

• 输入验证：严格检查C25的输入合法性，避免非法值导致运行错误。
• 大单元格定位：直接明确定义所有目标大单元格，确保覆盖需求中的E3、E7等位置。
• 小单元格区域匹配：每个大单元格对应其右侧指定列的4行小单元格区域，完全贴合“对应大单元格的右侧4个小单元格”的描述。
• 颜色赋值逻辑：仅修改大单元格的填充色，全程不触碰小单元格的原有颜色，彻底解决原代码清除小单元格颜色的问题。

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