嘿，这个需求我之前刚好做过，完美适配你说的场景！用VBA自定义函数+条件格式就能搞定，我给你一步步拆解清楚：

1. 先写个VBA函数读取客户的填充色 #

Excel自带函数没法直接读取单元格的填充色，所以我们需要一个简单的自定义函数来搞定这一步：

• 按下 Alt + F11 打开VBA编辑器
• 右键点击你的工作簿名称 → 插入 → 模块
• 在弹出的代码窗口里粘贴这段代码：

Function GetCustomerFillColor(custName As String) As Long
    Dim srcSheet As Worksheet
    Dim matchCell As Range
    
    Set srcSheet = ThisWorkbook.Sheets("Sheet2")
    ' 在Sheet2的A列精确匹配客户名称
    Set matchCell = srcSheet.Range("A:A").Find( _
        What:=custName, _
        LookIn:=xlValues, _
        LookAt:=xlWhole, _
        MatchCase:=False _
    )
    
    If Not matchCell Is Nothing Then
        ' 返回匹配单元格的填充色RGB值
        GetCustomerFillColor = matchCell.Interior.Color
    Else
        ' 未匹配到返回白色背景
        GetCustomerFillColor = RGB(255, 255, 255)
    End If
End Function

• 记得把工作簿保存为 Excel启用宏的工作簿（.xlsm） 格式，不然宏会丢失哦。

2. 用VBA批量创建条件格式规则（最可靠的方式） #

手动设置条件格式没法动态关联颜色，所以我们用宏来自动给每个客户创建对应的规则：

• 回到VBA编辑器，再插入一个新模块，粘贴这段代码：

Sub AddCustomerColorRules()
    Dim srcSheet As Worksheet
    Dim mainSheet As Worksheet
    Dim custRange As Range
    Dim custCell As Range
    Dim cfRule As FormatCondition
    
    Set srcSheet = ThisWorkbook.Sheets("Sheet2")
    Set mainSheet = ThisWorkbook.Sheets("Sheet1")
    
    ' 先清除主表已有的条件格式规则，避免重复
    mainSheet.Cells.FormatConditions.Delete
    
    ' 获取Sheet2中所有非空的客户单元格（假设从A2开始）
    Set custRange = srcSheet.Range("A2:A" & srcSheet.Cells(srcSheet.Rows.Count, "A").End(xlUp).Row)
    
    ' 遍历每个客户，创建对应的条件格式规则
    For Each custCell In custRange
        If custCell.Value <> "" Then
            Set cfRule = mainSheet.Cells.FormatConditions.Add( _
                Type:=xlExpression, _
                Formula1:="=$A2=""" & custCell.Value & """")
            
            ' 设置整行填充色为Sheet2中该客户的颜色
            cfRule.Interior.Color = custCell.Interior.Color
            ' 要是需要同步字体颜色，解开下面这行注释就行
            ' cfRule.Font.Color = custCell.Font.Color
        End If
    Next custCell
End Sub

• 运行这个宏：按下 F5，或者回到Excel界面，点击「开发工具」→「宏」→ 选择AddCustomerColorRules→ 执行。

现在你在Sheet1的A列选择客户时，整行就会自动变成Sheet2对应客户的颜色啦！

3. 可选：自动更新规则（不用手动跑宏） #

如果想让Sheet2的客户名称或颜色修改后，主表的格式自动更新，可以加个工作表事件：

• 在VBA编辑器左侧，双击Sheet2，顶部下拉菜单选择「Worksheet」，再选择「Change」事件
• 粘贴这段代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 当Sheet2的A列内容或颜色修改时，自动更新主表的条件格式
    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
        Call AddCustomerColorRules
    End If
End Sub

这样以后修改Sheet2的客户信息，主表的颜色会自动同步，完全不用手动操作！

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