加粗一個范圍內的特定文本（分成多個單元格）

Question

我正在 Excel 中構建模板，我希望使用 VBA 將短語“6. 描述摘要：”設為粗體。 短語所在的單元格不是 static 因此代碼應該能夠在該范圍內的任何位置拾取短語。

目前代碼使整個范圍 A1:G100 加粗

這是我嘗試過的：

 Set BoldRange = Range("A1:G100").Find("6. Description Summary:")
        If Not (BoldRange Is Nothing) Then
            BoldRange.Font.Bold = True
        End If

如果您能告訴我是否有辦法編輯此代碼以使其僅對指定的文本加粗，將不勝感激。

更新：文本被分成多個單元格，所以我實際上只希望將指定的字符串加粗。

Answer 1

代碼做你想要的，我自己檢查過。 Set BoldRange = Range("A1:G100").Find("6. Description Summary:") 返回找到字符串的范圍，這是唯一變為粗體的單元格。 如果您沒有在其他地方操作范圍，您可能會將整個范圍更改為粗體，請檢查您的代碼。 在我使用的代碼下方，以防萬一它有幫助（只是你的 Sub()）：

Sub FindAndBold() Set BoldRange = Range("A1:G100").Find("6. Description Summary:") If Not (BoldRange Is Nothing) Then BoldRange.Font.Bold = True End If End Sub