Word VBA宏适配合并单元格：将黄背景单元格字体改为红色

你的报错根源是合并单元格导致行列索引访问失效：当表格存在合并单元格时，被合并的位置并没有对应的Cell对象，直接用Tbl.Cell(i,j)按行列数循环访问，就会触发"Requested member of the collection does not exist"错误。

根据你提到的「需要处理的单元格所在行均无合并单元格」的条件，提供两种可行的解决方法：

方法一：遍历所有实际存在的单元格（通用方案） #

直接遍历表格的Cells集合，这个集合只会包含文档中真实存在的单元格，自动跳过合并单元格的空位置，彻底避免索引错误：

Sub HighlightYellowCells()
    Dim Tbl As Table
    Dim cell As Cell
    
    ' 遍历文档中所有表格
    For Each Tbl In ActiveDocument.Tables
        ' 遍历当前表格的所有实际单元格
        For Each cell In Tbl.Range.Cells
            ' 判断单元格背景色是否非自动（即黄色高亮）
            If cell.Shading.BackgroundPatternColor <> wdColorAutomatic Then
                ' 将字体改为红色
                cell.Range.Font.ColorIndex = wdRed
            End If
        Next cell
    Next Tbl
End Sub

方法二：仅处理无合并单元格的行（针对性方案） #

如果只需要处理没有合并单元格的行，可以先判断该行是否存在合并单元格，再安全遍历该行的单元格：

Sub HighlightNonMergedRows()
    Dim Tbl As Table
    Dim targetRow As Row
    Dim cellIndex As Integer
    
    For Each Tbl In ActiveDocument.Tables
        ' 遍历表格的每一行
        For Each targetRow In Tbl.Rows
            ' 检查该行是否有合并单元格（通过第一个单元格的MergeCells属性判断）
            If Not targetRow.Cells(1).MergeCells Then
                ' 遍历该行的所有单元格
                For cellIndex = 1 To targetRow.Cells.Count
                    With targetRow.Cells(cellIndex)
                        If .Shading.BackgroundPatternColor <> wdColorAutomatic Then
                            .Range.Font.ColorIndex = wdRed
                        End If
                    End With
                Next cellIndex
            End If
        Next targetRow
    Next Tbl
End Sub

原代码问题说明 #

原代码通过Tbl.Rows.Count和Tbl.Columns.Count循环，假设每个行列交叉点都存在单元格，但合并单元格会打破这个假设——比如某单元格跨2列，那么对应行的第2列位置就没有真实的Cell对象，调用Tbl.Cell(i,j)就会报错。

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