excel vba突出显示整行

Question

我的代码是

          If (Sheets("Sheet1").Cells(Row3 + 87 + 1, 14) > 1) Then
             For i = 1 To 16
                Sheets("Sheet1").Cells(Row3 + 87 + 1, i).Interior.Color = vbYellow
                Sheets("Sheet1").Cells(Row3 + 87 + 1, i).Font.Color = vbRed
            Next i
          End If

上述代码不像上述条件那样着色单元格;我需要将其与 100％进行比较。