根据数据范围2中的值将条件格式应用于数据范围1

Question

我正在尝试采用一种条件格式，以按利润率确定每个国家/地区排名前10位的客户低于或高于平均水平的情况。

数据表布局：

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

谢谢

SWD

Answer 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