string - 在excel中使用VB根据单元格中的字符串数据更改行的颜色

Question

我有一个 Excel 电子表格，我想在其中突出显示字符串“05 Paint”出现在 A 列的单元格中的所有行。我发现这段代码可以更改包含字符串“05 Paint”的单元格的颜色，但不能弄清楚如何突出显示整行：

Sub Highlight()
Dim rng As Range, cell As Range
Set rng = Range("A2:A250")
For Each cell In rng
   Select Case cell.Value
       Case "05 Paint"
       cell.Interior.ColorIndex = 4
   End Select
Next
End Sub

理想情况下，我希望从 A 列到 I 列突出显示该行。

任何帮助，将不胜感激。

谢谢！

Answer 1

利用

Cell.Resize(1, 9).Interior.ColorIndex = 4

Answer 2

如果“整行”已定义为 ColumnsA:I，则搜索字符串是05 Paint（作为单元格内容的全部或部分内容）并且搜索不区分大小写：

录制宏：

选择 ColumnsA:I, HOME > Styles - Conditional Formatting, New Rule...

使用公式确定要格式化的单元格
格式化此公式为真的值：

=SEARCH("05 Paint",$A1)  

Format...，选择格式，OK，OK。

停止录制。

Answer 3

所以你知道要突出显示哪一行。这使得它没有动态。

您可以为该行尝试“条件格式”。另外，通过每个单元格的成本几乎与我的建议一样高。您可以尝试比较适合您需要的最佳性能增益解决方案。