如何逐行应用条件格式公式？

Question

您好，我有一个 1080 行的工作表，我想逐行应用条件格式来检查每行的价格上涨情况。 当我选择整个范围并输入公式时，它显示整个范围内的价格变化，但我需要它用于单个项目，所以需要逐行显示。

在第 22 行的图像中，价格正在上涨。我想突出显示从 3 到 1080 的每一行。我需要一个相同的 VBA 代码，但无法找出用于逐行选择行以及单独在每一行中应用公式的代码。

Answer 1

试试这个代码：

Sub ApplyColorScale()

    Dim rng1 As Range
    Set rng1 = Range("B3:U3")
    With rng1
        .FormatConditions.Delete
        .FormatConditions.AddColorScale ColorScaleType:=3
        With .FormatConditions(1).ColorScaleCriteria(1)
            .Type = xlConditionValueLowestValue
            .FormatColor.Color = 8109667  '7039480
        End With
        With .FormatConditions(1).ColorScaleCriteria(2)
            .Type = xlConditionValuePercentile
            .Value = 50
            .FormatColor.Color = 8711167
        End With
        With .FormatConditions(1).ColorScaleCriteria(3)
            .Type = xlConditionValueHighestValue
            .FormatColor.Color = 7039480  ' 8109667
        End With
    End With
    rng1.Copy
    Dim i As Long
    For i = 4 To 10  ' 1080
       Range("B" & i & ":U" & i).PasteSpecial Paste:=xlPasteFormats, SkipBlanks:=False
    Next i
    Application.CutCopyMode = False
End Sub

这是您需要的吗？