如果找到特定子字符串，则VBA脚本循环遍历整行并加粗单元格

Question

我如何循环整行说＆＃34; A＆＃34;直到包含最后一个条目的行并在单元格中搜索以下子字符串＆＃34; FG-DFG-123＆＃34; ？ 一旦我发现子串存在，我需要将整个单元格加粗。

提前致谢！

Answer 1

只需使用条件格式。

Answer 2

谢谢你们。这段脚本工作正常。

Sub Format_Boldheadings()

    Dim StartCell As Range
    Set StartCell = Range("A1")
    Dim myList As Range

    Set myList = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    Dim x As Range

    For Each x In myList
        'myList.ClearFormats
        x.Font.Bold = False
        If InStr(1, x.Text, "DFG") > 0 Or InStr(1, x.Text, "RTY") > 0 Then
            x.Font.Bold = True
        Else
            x.Font.Bold = False
        End If
    Next
End Sub