根据条件突出显示表中的特定行

Question

我正在尝试让这个宏工作。它应该根据条件突出显示表中的行。当我尝试偏移所选范围时，只有表格中的单元格会突出显示。但是当我这样做时，我的状况不应该如此。我完全是新手，非常感谢任何建议。

Sub výklep()

'Find the last non-blank cell in column
LastRow = Range("C" & Rows.Count).End(xlUp).Row
Set SelectedRange = Range("I6:I" & LastRow)

For Each cell In SelectedRange
    If cell.Value > 10 Then cell.Range(Cells(1, 1), Cells(1, 9)).Offset(1, -7).Interior.ColorIndex = 3
Next

End Sub

Answer 1

用减号（ - ）抵消时一定要小心。在你的情况下，它是负七（-7）。循环时它正在穿过工作表的左边界，从而导致错误。