如何在VBA填充Excel空白单元格后设置内容为粗体？

你只需要在原代码的With区块中添加设置字体粗体的语句即可，还可以选择将公式转换为静态值（避免后续引用单元格变动影响内容），修改后的完整代码如下：

Sub CatLabels()
    x = Range("B" & Rows.Count).End(xlUp).Row
    
    If x > 1 Then
        With Range("B2:B" & x).SpecialCells(xlCellTypeBlanks)
            .FormulaR1C1 = "=(R[+1]C[+2])"
            ' 可选：将公式转换为静态值，若需保留公式可删除此行
            .Value = .Value
            ' 设置填充内容为粗体
            .Font.Bold = True
        End With
    End If
End Sub

关键改动说明 #

• .Font.Bold = True：直接为填充后的空白单元格设置粗体字体格式，和填充公式的操作复用同一个With区块，效率更高。
• .Value = .Value：这行是可选操作，它会把单元格中的公式替换为计算后的实际值，如果你希望B列的内容固定不变（不受引用的R[+1]C[+2]单元格影响），就保留这行；如果需要保留公式动态更新，可以删除这行。

内容的提问来源于stack exchange，提问作者Brooks