1. 程式人生 > >excel巨集 特定文字為粗體 原地址 https://blog.csdn.net/jji8877032/article/details/44652465

excel巨集 特定文字為粗體 原地址 https://blog.csdn.net/jji8877032/article/details/44652465

原地址 https://blog.csdn.net/jji8877032/article/details/44652465

 Dim r As Range
    Dim i As Integer
    For Each r In ActiveSheet.UsedRange
    i = 0
    Do While InStr(i + 1, r.Value, "測試場景") > 0
    i = InStr(i + 1, r.Value, "測試場景")
    r.Select
    ActiveCell.Characters(Start:=i, Length:=4).Font.Bold = True
    Loop
    Next
    End Sub