将范围内的特定文字加粗(分成多个单元格)

我正在Excel中构建模板,我想使用VBA将短语“ 6. Description Summary:”加粗。短语所在的单元格不是静态的,因此代码应能够在范围内的任何位置提取该短语。

当前代码使整个范围A1:G100加粗

这是我尝试过的:

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

如果您可以让我知道是否有一种方法可以编辑此代码,使其仅以指定的文本显示为粗体,将不胜感激。

更新:文本被分解为多个单元格,因此我实际上只希望将指定的字符串加粗。

w5201021965 回答:将范围内的特定文字加粗(分成多个单元格)

代码满足您的要求,我自己检查了一下。 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

本文链接:https://www.f2er.com/3158837.html

大家都在问