Excel 行着色超出使用范围

Question

让我从显示一段代码开始

For Each cell In selRng.Cells
    If InStr(cell.value, "_cb") Then
        cell.EntireRow.Interior.Color = RGB(0, 200, 0)
    End If
    If InStr(cell.value, "_mou") Then
        cell.EntireRow.Interior.Color = RGB(0, 200, 0)
    End If
    If InStr(cell.value, "_ebp") Then
        cell.EntireRow.Interior.Color = RGB(0, 200, 0)
    End If
Next cell

这段代码所做的只是检查单元格中字符串的末尾是否包含这三个子字符串中的任何一个，然后它将 while 行着色为绿色。

问题来自这样一个事实，即该行的颜色将超出使用范围，我尝试删除最后使用的额外行但无济于事，总有一行留在工作表的最后绿线从中溢出。

它看起来像这样:



我知道必须有办法解决这个问题，但我似乎无法找到代码到底出了什么问题。

Answer 1

要将其限制在 usedrange (并不总是准确)，您可以使用:

Intersect(cell.EntireRow, cell.worksheet.usedrange).Interior.Color = RGB(0, 200, 0)

此外，您实际上并不需要三个 If 语句，只需要一个，因为它每次都是相同的颜色:

If InStr(cell.value, "_cb") Or InStr(cell.value, "_mou") or InStr(cell.value, "_ebp") Then