如何实现：当Sheet2指定手机号单元格设为蓝色时，自动同步Sheet1对应单元格为蓝色？

方案一：辅助列+条件格式（无需编程） #

这种方法通过宏表函数获取Sheet2的单元格颜色，再用条件格式同步到Sheet1：

1. 定义宏表名称
   点击「公式」选项卡 → 「定义名称」，设置：
   • 名称：GetCellColor
   • 引用位置：=GET.CELL(63,Sheet2!A1)
     点击确定。
2. 添加辅助列
   在Sheet1（AutomatedLeads）新增一列（如B列），在B2单元格输入公式：

   =IF(ISNA(MATCH(A2,Sheet2!A:A,0)),0,GetCellColor)
   

   下拉填充到所有行。该公式会返回Sheet2中对应手机号单元格的颜色编号（蓝色对应固定数值，可先在Sheet2蓝色单元格旁输入=GetCellColor查看具体数字）。
3. 设置条件格式
   选中Sheet1的A列 → 「开始」→ 「条件格式」→ 「新建规则」→ 选择「使用公式确定要设置格式的单元格」，输入：

   =$B2=35
   

   （将35替换为你实际的蓝色编号），然后设置填充格式为蓝色即可。

方案二：VBA宏（自动触发同步） #

通过Sheet2的事件宏，在手动设置颜色时自动同步到Sheet1：

1. 按Alt+F11打开VBA编辑器，双击左侧工程窗口中的Sheet2，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    Dim matchCell As Range
    
    '仅处理A列的单元格变更
    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
        For Each cell In Target
            '判断当前单元格是否为蓝色（可修改RGB值匹配你的蓝色）
            If cell.Interior.Color = RGB(0, 0, 255) Then
                '在Sheet1中查找对应手机号
                Set matchCell = Sheets("AutomatedLeads").Range("A:A").Find( _
                    What:=cell.Value, LookIn:=xlValues, LookAt:=xlWhole)
                If Not matchCell Is Nothing Then
                    matchCell.Interior.Color = RGB(0, 0, 255)
                End If
            '可选：取消颜色时同步取消
            ElseIf cell.Interior.ColorIndex = xlColorIndexNone Then
                Set matchCell = Sheets("AutomatedLeads").Range("A:A").Find( _
                    What:=cell.Value, LookIn:=xlValues, LookAt:=xlWhole)
                If Not matchCell Is Nothing Then
                    matchCell.Interior.ColorIndex = xlColorIndexNone
                End If
            End If
        Next cell
    End If
End Sub

2. 保存工作簿为.xlsm格式（启用宏的工作簿），打开时需启用宏。

注意事项 #

• 两种方法都需要将文件保存为.xlsm格式（宏工作簿）
• 方案一中的颜色编号需根据你实际使用的蓝色调整，可通过=GetCellColor获取
• 方案二中的RGB(0,0,255)是标准蓝色，若使用自定义蓝色，可在VBA编辑器中通过Debug.Print cell.Interior.Color查看对应数值

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