如何通过VBA代码设置Excel分类汇总相关单元格格式：灰色填充与指定行加粗

当然可以通过VBA代码实现你的所有需求！我给你整理了两段针对性的代码，分别处理分类汇总行和A列的特定文本单元格，你可以直接复制到Excel的VBA编辑器里运行：

这段代码会自动找到所有包含“Subtotal”文本的单元格，把它们填充为灰色，同时将所在的整行设置为加粗格式：

Sub FormatSubtotalRows()
    Dim ws As Worksheet
    Dim cell As Range
    Dim searchRange As Range
    
    ' 设置要操作的工作表，这里用当前激活的工作表，你也可以改成具体表名比如Sheets("Sheet1")
    Set ws = ActiveSheet
    ' 假设数据在UsedRange范围内，你也可以指定具体区域比如ws.Range("A1:Z1000")
    Set searchRange = ws.UsedRange
    
    ' 遍历所有包含"Subtotal"的单元格
    For Each cell In searchRange
        If InStr(1, cell.Value, "Subtotal", vbTextCompare) > 0 Then
            ' 填充灰色（RGB值可自行调整）
            cell.Interior.Color = RGB(217, 217, 217)
            ' 将整行设置为加粗
            cell.EntireRow.Font.Bold = True
        End If
    Next cell
    
    MsgBox "分类汇总行格式设置完成！", vbInformation
End Sub

针对A列里格式为「total code "KKK Total"」的单元格，同样可以用VBA设置格式（下面代码示例为填充浅橙色并加粗，你可以根据需求修改格式参数）：

Sub FormatKKKTotalCells()
    Dim ws As Worksheet
    Dim cell As Range
    Dim aColumnRange As Range
    
    Set ws = ActiveSheet
    ' 获取A列已使用的单元格区域
    Set aColumnRange = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    
    ' 遍历A列所有单元格
    For Each cell In aColumnRange
        If InStr(1, cell.Value, "total code ""KKK Total""", vbTextCompare) > 0 Then
            ' 填充浅橙色（示例颜色，可自行修改RGB值）
            cell.Interior.Color = RGB(255, 204, 153)
            ' 设置单元格文本加粗
            cell.Font.Bold = True
            ' 如果需要整行加粗，把下面这行注释去掉
            ' cell.EntireRow.Font.Bold = True
        End If
    Next cell
    
    MsgBox "A列特定单元格格式设置完成！", vbInformation
End Sub

使用说明： #

1. 打开Excel，按下Alt + F11打开VBA编辑器；
2. 在左侧的“工程资源管理器”里，右键点击对应的工作表，选择「插入」→「模块」；
3. 将上面的代码粘贴到新建的模块窗口中；
4. 点击工具栏的「运行」按钮（绿色三角），选择要执行的宏即可。

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