Excel 2019：如何将其他工作表的热力图格式同步至公司表？

首先明确：纯公式无法实现这个需求，因为Excel公式只能读取单元格的数值或公式结果，无法直接获取条件格式生成的背景颜色。下面是几个可行的解决方法：

方法1：复用条件格式规则（最推荐，自动同步） #

这是最省心的方案，直接把费率表的热力图规则复制到公司名称表，确保两边规则完全一致，数据更新时颜色自动同步：

• 打开费率表的条件格式规则：选中热力图区域，右键→「条件格式」→「管理规则」，记下规则的具体设置（比如是基于单元格值的色阶、自定义公式，还是特定的数值区间）。
• 给公司名称表应用相同规则：选中公司名称表中需要同步颜色的单元格区域（要和费率表的热力图区域位置对应，或者确保规则引用正确），打开「条件格式」→「管理规则」→「新建规则」，完全照搬费率表的规则设置。
  • 如果是色阶规则：选择「格式样式」为色阶，设置和原热力图一样的颜色刻度，然后在「基于值」的下拉框里选择「引用其他单元格」，指向费率表的热力图数据区域，确保颜色计算逻辑一致。
  • 如果是自定义公式规则：比如原规则用=费率表!A1>10设置红色背景，那么在公司名称表的规则里写=费率表!A1>10，然后设置相同的填充颜色。

方法2：用VBA宏手动/自动同步颜色 #

如果需要直接把费率表的背景色复制到公司名称表，可以写简单的VBA宏实现：

Sub SyncHeatmapColors()
    ' 替换为你的工作表名称和热力图区域
    Dim rateSheet As Worksheet: Set rateSheet = ThisWorkbook.Worksheets("费率数据")
    Dim companySheet As Worksheet: Set companySheet = ThisWorkbook.Worksheets("公司名称")
    Dim targetRange As Range: Set targetRange = rateSheet.Range("A2:E50") ' 热力图数据区域
    
    ' 遍历单元格同步背景色
    For Each cell In targetRange
        companySheet.Range(cell.Address).Interior.Color = cell.Interior.Color
    Next cell
End Sub

使用步骤：

• 按Alt+F11打开VBA编辑器，插入模块，粘贴代码并修改工作表名和区域。
• 运行宏即可完成一次同步；如果需要自动同步，可在费率表的Worksheet_Change事件中调用这个宏，实现数据修改时自动更新颜色。

方法3：合并数据后设置热力图（适合结构化数据） #

如果费率表和公司名称表的行/列是一一对应的（比如每行对应一个公司），可以用Power Query把两个表合并成一个包含公司名称和费率的表，然后直接在这个合并表上设置热力图，这样无需跨表同步，颜色和数据天然绑定。

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