如何利用vba在excel工作表中根据条件对整行进行着色？

Sub ColorRowsBasedOnCondition()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取工作表中最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 遍历每一行
    For i = 1 To lastRow
        ' 判断条件，这里以示例为准，可以根据实际需求修改条件
        If ws.Cells(i, 1).Value = "条件值" Then
            ' 设置行的背景色为指定颜色
            ws.Rows(i).Interior.Color = RGB(255, 0, 0) ' 这里以红色为例，可以根据需求修改颜色
        End If
    Next i
End Sub