加粗一个范围内的特定文本（分成多个单元格）

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