Excel：VBA数据分析-找到含某个关键字的单元格就标黄（五）

是的，还是之前的测试表，i( •̀ ω •́ )✧。新加了一列关键字列。

这次要写的逻辑如标题所示，找到 含有 某个指定关键字的 单元格，就给单元格标黄。这次写的是 如果关键字列中 有含有 “北” 字的单元格，就标黄该单元格。

先看代码：（还是选择的双击触发函数）

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim total As Integer
    Dim counter As Integer
    Range("A1").CurrentRegion.Select
    total = Selection.Rows.Count
    For counter = 2 To total
        If (Sheet1.Cells(counter, 7) Like "*北*") Then '如果单元格含有北字
            Sheet1.Cells(counter, 7).Select '则选中该单元格
            With Selection.Interior '以下为选中后标黄操作
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .Color = 65535
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
        End If
        
        Next counter
End Sub

这次打断点，看看每个单元格的执行状态。

还有，前几篇问章忘了提到了，写了VBA的表格保存时要选择带录制宏的表格格式，就是下图这样的：

以上。