Excel 我试图找到一个公式，可以突出显示一列中的单元格，如果它包含位于另一列中的任何单词

列A包含美国城市，每个单元一个城市，沿列向下

B栏包含的句子可能包含也可能不包含A栏中提到的一个城市

如果B列包含A列中提到的任何城市，我想突出显示B列

注意：单元格中除城市名称外还有其他文本

下面是一个没有任何突出显示的示例

---

除了“from xyz”之外，B列中的所有内容都应该突出显示。

您可以通过使用条件格式来实现这一点。在Excel 2007及更高版本中：

通过单击单元格

B1

并向下拖动到

B4

，选择单元格

B1:B4

，以便

B1

是

单击主菜单->条件格式->新规则…

在“新建格式规则”对话框中，选择“使用公式确定要格式化的单元格”选项

在该公式为真的格式值文本框中，输入以下内容：

=SUMPRODUCT（--ISNUMBER（搜索（$A$1:$A$4，B1））>0

单击格式化…按钮

在“设置单元格格式”对话框中，设置所需的格式选项（例如，在“填充”选项卡上选择黄色），然后单击“确定”按钮

在“新建格式规则”对话框中，单击“确定”按钮

结果:

---

您可以通过使用条件格式来实现这一点。在Excel 2007及更高版本中：

通过单击单元格

B1

并向下拖动到

B4

，选择单元格

B1:B4

，以便

B1

是

单击主菜单->条件格式->新规则…

在“新建格式规则”对话框中，选择“使用公式确定要格式化的单元格”选项

在该公式为真的格式值文本框中，输入以下内容：

=SUMPRODUCT（--ISNUMBER（搜索（$A$1:$A$4，B1））>0

单击格式化…按钮

在“设置单元格格式”对话框中，设置所需的格式选项（例如，在“填充”选项卡上选择黄色），然后单击“确定”按钮

在“新建格式规则”对话框中，单击“确定”按钮

结果:

---

您可以使用VBA/宏来执行此操作。对于您的示例，请按Alt+F11，然后插入模块并输入以下宏代码：

Sub highlight()
Dim n As Integer, strng As String
Dim LastRow As Long
    Columns("B:B").Select
    n = 1
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With

    For n = 1 To LastRow
        strng = "=$A$" & n
        Selection.FormatConditions.Add Type:=xlTextString, String:=strng, _
            TextOperator:=xlContains
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 13551615
            .TintAndShade = 0
        End With
        Selection.FormatConditions(1).StopIfTrue = False
    Next n
End Sub

---

是一个可以检查的示例文件。

您可以使用VBA/宏来执行此操作。对于您的示例，请按Alt+F11，然后插入模块并输入以下宏代码：

Sub highlight()
Dim n As Integer, strng As String
Dim LastRow As Long
    Columns("B:B").Select
    n = 1
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With

    For n = 1 To LastRow
        strng = "=$A$" & n
        Selection.FormatConditions.Add Type:=xlTextString, String:=strng, _
            TextOperator:=xlContains
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 13551615
            .TintAndShade = 0
        End With
        Selection.FormatConditions(1).StopIfTrue = False
    Next n
End Sub

---

是一个可以检查的示例文件。

请不要忘记在打开示例文件后启用宏。请不要忘记在打开示例文件后启用宏。