求可按B列H1/H2/H3/H4匹配结果修改A列字体的Excel Macro

使用步骤 #

• 打开目标Excel表格，按下Alt + F11唤起VBA编辑器
• 在左侧工程资源管理器面板右键当前工作簿，依次选择「插入」→「模块」
• 将下方代码粘贴到新建的模块编辑区
• 按下F5即可直接运行，也可以自行绑定到表格按钮实现一键调用

宏代码 #

Sub FormatAColumnWhenBMatch()
    ' 关闭屏幕更新提升运行速度
    Application.ScreenUpdating = False
    Dim bRng As Range, cell As Range
    ' 定位B列所有有内容的单元格范围
    Set bRng = Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row)
    
    For Each cell In bRng
        ' 判断B列单元格是否包含任意目标关键词
        If InStr(1, cell.Value, "H1", vbTextCompare) > 0 _
        Or InStr(1, cell.Value, "H2", vbTextCompare) > 0 _
        Or InStr(1, cell.Value, "H3", vbTextCompare) > 0 _
        Or InStr(1, cell.Value, "H4", vbTextCompare) > 0 Then
            ' 对应行A列设置加粗+单下划线
            With Cells(cell.Row, "A").Font
                .Bold = True
                .Underline = xlUnderlineStyleSingle
            End With
        End If
    Next cell
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    MsgBox "格式设置完成"
End Sub

补充说明：代码中使用vbTextCompare是忽略大小写匹配，如果需要严格区分大小写匹配，删除该参数即可；如果表格有表头不需要校验第一行，可将Range("B1:B"修改为Range("B2:B"跳过首行。

内容的提问来源于stack exchange，提问作者Yvonne Smit