如何根据Excel单元格颜色在相邻列自动填充对应值？

核心逻辑 #

遍历目标单元格区域，读取每个单元格的背景色，匹配预设的颜色-值映射规则，最后在单元格右侧相邻列写入对应结果。

完整可运行代码 #

Sub FillValueByCellColor()
    Dim targetRange As Range
    Dim cell As Range
    ' 定义颜色与对应值的映射（可按需新增规则）
    Dim colorMap As Object
    Set colorMap = CreateObject("Scripting.Dictionary")
    
    ' 添加你提到的两种颜色规则，替换成实际需要的对应值
    colorMap(RGB(217, 225, 242)) = "浅蓝色对应内容"
    colorMap(RGB(255, 225, 255)) = "浅粉色对应内容"
    
    ' 选择要处理的区域（也可直接指定固定范围，比如Set targetRange = Range("A1:A100")）
    Set targetRange = Application.InputBox("请选择需要处理的单元格区域", Type:=8)
    
    ' 遍历每个单元格执行匹配
    For Each cell In targetRange
        If colorMap.Exists(cell.Interior.Color) Then
            ' 右侧相邻列写入对应值
            cell.Offset(0, 1).Value = colorMap(cell.Interior.Color)
        Else
            ' 可选：颜色未匹配时的处理，比如清空右侧单元格
            cell.Offset(0, 1).Value = ""
        End If
    Next cell
    
    MsgBox "处理完成！"
End Sub

关键代码说明 #

• colorMap：用字典存储颜色与对应值的映射，新增颜色规则只需添加一行colorMap(RGB(r,g,b)) = "对应值"
• cell.Interior.Color：读取单元格背景色（Excel中RGB返回十进制颜色值，可直接对比）
• cell.Offset(0,1)：定位到当前单元格右侧相邻列（行不变，列右移1位）
• 固定区域修改：若无需手动选区域，把Set targetRange = ...替换为固定范围，比如Range("B2:B50")

使用步骤 #

1. 打开Excel，按Alt + F11打开VBA编辑器
2. 插入新模块：右键左侧工程窗口→插入→模块
3. 粘贴代码，修改colorMap中的对应值为实际需求内容
4. 返回Excel，按Alt + F8选择FillValueByCellColor执行

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