如何在Windows Excel中基于其他单元格颜色批量设置单元格颜色？

方案1：借助辅助列+自定义函数（无需频繁操作VBA） #

Excel原生条件格式无法直接识别单元格填充色，我们可以用自定义函数获取颜色代码，再通过条件格式实现同步：

1. 按下Alt + F11打开VBA编辑器，右键左侧的工作簿名称，选择「插入」→「模块」
2. 在弹出的代码窗口粘贴以下代码：

Function GetCellColor(cell As Range) As Long
    GetCellColor = cell.Interior.Color
End Function

3. 返回Excel界面，在空白列（比如D列）的D2单元格输入=GetCellColor(A2)，下拉填充到需要同步的所有行
4. 选中B2:C区域，点击「条件格式」→「新建规则」→「使用公式确定要设置格式的单元格」
5. 若只需同步红色，输入公式=GetCellColor(A2)=255（255是标准红色的颜色代码），点击「格式」→「填充」选择红色；若要同步任意颜色，需针对每种颜色单独设置规则，公式改为=GetCellColor(A2)=GetCellColor(对应颜色的A列单元格)

方案2：一键自动同步的VBA代码（更高效） #

设置后修改A列单元格颜色，B、C列会自动同步，操作步骤如下：

1. 按下Alt + F11打开VBA编辑器，双击左侧面板中你需要设置的工作表（比如Sheet1）
2. 在右侧代码窗口粘贴以下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cell As Range
    For Each cell In Target
        If cell.Column = 1 Then '只监测A列单元格
            '同步B列和C列的填充色
            cell.Offset(0, 1).Interior.Color = cell.Interior.Color
            cell.Offset(0, 2).Interior.Color = cell.Interior.Color
        End If
    Next cell
End Sub

3. 返回Excel界面，现在修改A列任意单元格的填充色，对应的B、C列单元格会立刻同步相同颜色

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