根据数据范围 2 中的值对数据范围 1 应用条件格式答案

【问题标题】：Apply Conditional Formatting to Data Range 1 Based on Values in Data Range 2根据数据范围 2 中的值对数据范围 1 应用条件格式
【发布时间】：2018-07-25 17:32:06
【问题描述】：

我正在尝试应用一种条件格式来确定每个国家/地区哪些前 10 名客户的利润率低于/高于平均水平。

数据表布局：

因此，我根据总利润填充了客户 ID，但我需要突出显示那些表现良好和利润率不高的客户 ID。这将用于报告，需要消除实际的保证金数字，只需将客户 ID 的数据矩阵按总利润排序并根据保证金表现突出显示。所以最终我将数据表二的条件格式的输出应用到数据表一。

谢谢，

社署

【问题讨论】：

请提供一些您目前尝试过的相关代码。
不能使用内置的条件格式吗？
@QHarr 您可以使用公式来引用其他单元格中的值，但是您将无法使用连续的 3 色标度。
这个问题非常相关：stackoverflow.com/questions/32841839/…
@AlexisOlson 非常感谢

标签： excel conditional-formatting

【解决方案1】：

您可以使用vba“复制”第二个表格中显示的条件格式，并将该格式应用于第一个表格中的单元格。这样的事情应该可以工作。

Option Explicit

Sub PasteConFormatAsRealFormat()
    Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("Sheet1") ' Change to your sheet name
    Dim fromRng As Range, toRng As Range, rw As Long, col As Long

    Set fromRng = ws.Range("B10:F14") ' Range with conditional format
    Set toRng = ws.Range("B2:F6") ' Same number of rows/columns as fromRng

    For col = 1 To toRng.Columns.Count
        For rw = 1 To toRng.Rows.Count
            toRng.Cells(rw, col).Interior.Color = fromRng.Cells(rw, col).DisplayFormat.Interior.Color
        Next rw
    Next col

End Sub

【讨论】：