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

【问题标题】：Change the color of a row based on string data in a cell using VB in excel在excel中使用VB根据单元格中的字符串数据更改行的颜色
【发布时间】：2015-01-13 09:16:12
【问题描述】：

我有一个 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 列突出显示该行。

任何帮助将不胜感激。

谢谢！

【问题讨论】：

标签： string vba colors row excel-2007

【解决方案1】：

使用

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

【讨论】：

【解决方案2】：

这样您就知道要突出显示哪一行。这使得它没有动态。

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

【讨论】：

【解决方案3】：

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

录制宏：

选择 ColumnsA:I, HOME > 样式 - 条件格式，新规则...

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

=SEARCH("05 Paint",$A1)

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

停止录制。

【讨论】：