Question

我有一张纸，在T栏中，我想突出显示包含＆＃34; ok＆＃34;的单元格。

我有一个代码，它可以与interior.color一起使用，但是无法突出显示包含＆＃34; OK＆＃34;的单元格，而是突出显示不管单元格值如何。

有人可以建议，我的代码有什么问题吗？

Sub colour()
Dim totalrows As Long

totalrows = Sheets("S1").Cells(Rows.Count, "T").End(xlUp).Row
With Range("T5:T" & totalrows)
.Value = "OK"
Range("T5:T" & totalrows).Interior.Color = RGB(0, 255, 0)
End With

End Sub

Answer 1

试试这个：

Sub colour()
    Dim totalrows As Long
    Dim cel As Range

    totalrows = Sheets("S1").Cells(Rows.Count, "T").End(xlUp).Row
    For Each cel In Range("T5:T" & totalrows)
        If cel.Value = "OK" Then
            cel.Interior.Color = RGB(0, 255, 0)
        End If
    Next cel
End Sub

根据文本突出显示单元格

1 个答案: