Excel macros如何根据输入位置标识填充矩阵对应单元格颜色

核心逻辑分3步：

• 先明确两个固定范围：一是需要填充颜色的目标单元格矩阵的左上角锚点，二是存放行,列:标识格式位置名称的输入区域
• 每次运行先清空矩阵区域的历史填充色，避免旧颜色残留
• 逐行遍历输入区域的所有位置文本，拆分出相对矩阵的行、列偏移量，定位到对应单元格后填充指定颜色，同时加入简单格式校验，避免格式错误时宏直接崩溃。

Sub FillMatrixByPosition()
    ' ========== 按需修改以下配置参数 ==========
    Const MATRIX_TOP_LEFT As String = "B2"  ' 目标矩阵最左上角的单元格地址
    Const INPUT_RANGE As String = "E2:E10"  ' 存放位置名称的单元格区域
    Const FILL_COLOR As Long = vbYellow     ' 填充颜色，可替换为vbRed/vbGreen或RGB(255,199,206)这类自定义色值
    ' ========================================
    
    Dim matrixStart As Range, inputRng As Range
    Set matrixStart = Range(MATRIX_TOP_LEFT)
    Set inputRng = Range(INPUT_RANGE)
    
    Dim cell As Range, coordStr As String, coordArr As Variant
    Dim relRow As Long, relCol As Long, targetCell As Range
    
    ' 清空矩阵原有填充色
    matrixStart.CurrentRegion.Interior.ColorIndex = xlNone
    
    ' 遍历所有输入的位置条目
    For Each cell In inputRng
        If Trim(cell.Value) <> "" Then
            ' 拆分出冒号前的坐标段
            coordStr = Split(cell.Value, ":")(0)
            coordArr = Split(coordStr, ",")
            
            ' 校验格式合法性
            If UBound(coordArr) <> 1 Then
                MsgBox "单元格 " & cell.Address & " 位置格式错误，需为「行号,列号:标识」格式", vbExclamation
                GoTo NextLoop
            End If
            
            ' 转换坐标为数值
            On Error Resume Next
            relRow = CLng(Trim(coordArr(0)))
            relCol = CLng(Trim(coordArr(1)))
            On Error GoTo 0
            
            If relRow < 1 Or relCol < 1 Then
                MsgBox "单元格 " & cell.Address & " 行列号不能小于1", vbExclamation
                GoTo NextLoop
            End If
            
            ' 定位目标单元格（偏移量从0计数，所以行列各减1）
            Set targetCell = matrixStart.Offset(relRow - 1, relCol - 1)
            ' 执行填色
            targetCell.Interior.Color = FILL_COLOR
            ' 如果需要同时把冒号后的标识填入对应单元格，取消下一行注释即可
            ' targetCell.Value = Split(cell.Value, ":")(1)
        End If
NextLoop:
    Next cell
End Sub

• 打开你的Excel文件，按Alt+F11调出VBA编辑器，在左侧工程栏找到你的工作簿名称，右键选择「插入-模块」，把上面的代码粘贴到模块代码窗口里
• 先修改代码开头的三个配置参数，匹配你自己表格的实际位置、想要的填充颜色
• 如果需要手动触发宏，按Alt+F8选中FillMatrixByPosition点运行即可；如果需要修改输入内容后自动填色，右键对应工作表标签，选择「查看代码」，粘贴以下自动触发代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 检测到输入区域内容修改时自动运行填色宏，注意这里的范围要和之前配置的INPUT_RANGE一致
    If Not Intersect(Target, Range("E2:E10")) Is Nothing Then
        Call FillMatrixByPosition
    End If
End Sub

• 保存文件时请选择.xlsm（启用宏的工作簿）格式，否则宏代码会丢失无法运行
• 注意：代码里的行列号是相对于矩阵左上角的相对位置，不是Excel工作表自带的全局行号列号。比如矩阵左上角在B2单元格，那么1,1对应的就是B2本身，2,3对应的就是B2往下偏1行、往右偏2列的C3单元格，不要和工作表全局行列号混淆。

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