这有点复杂，因为在工作表中并没有什么好的方法来循环遍历formatconditions。但是，你可以循环遍历specialcell，然后循环遍历它们的formatconditions，然后从那里开始挖掘：

Sub test()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    Dim rngCell As Range
    Dim lng As Long

    For Each rngCell In ws.Cells.SpecialCells(xlCellTypeAllFormatConditions).Cells
        For lng = 1 To rngCell.FormatConditions.Count
            On Error Resume Next
            Debug.Print rngCell.FormatConditions(lng).Formula1, rngCell.FormatConditions(lng).AppliesTo.Address
        Next lng
    Next rngCell
End Sub

我从www.example.com博客上的Dick Kusleika's excellent post on this very subject中剽窃了specialcells()的想法dailydoseofexcel.com。

你可以使用如下代码：此处基于条件以黄色突出显示行。您可以使用您的格式

LastColumnARows = WB_Source.Sheets(SheetName.Name).range("A" & Rows.Count).End(xlUp).Row  

                    With WB_Source.Sheets(SheetName.Name)

                        For i = 2 To LastColumnARows
                            If .range("A" & i).Value > [Condition] Then
                                With .range("A" & i & ":E" & i)
                                    .Interior.Color = vbYellow
                                    .Font.Color = vbBlack
                                End With
                            End If
                        Next i
                    End With

要在电子表格中的现有格式条件上循环，可以使用如下循环：

Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("MySheet")

    Dim AllFormatConditions As FormatConditions
    Set AllFormatConditions = ws.Cells.FormatConditions

    Dim fc As Object    
    For Each fc In AllFormatConditions
        Debug.Print fc.AppliesTo.Address
    Next

现在，如果你想修改AppliesTo范围，而不是像上面那样只打印地址，你需要使用ModifyAppliesToRange并传递一个范围作为参数。
例如。

fc.ModifyAppliesToRange ws.Range("A42:Z42")