如何用VBA在Excel运营报告的3行间隔中添加标题？求助

需求概述 #

• 每周运营报告中，各运营内容模块以3个连续空行作为分隔
• 需要在这3个空行的第二行位置插入对应模块标题（效果参考示例截图中的灰色文本）
• 基于提供的测试VBA代码进行功能完善

完善后的VBA代码 #

Sub Format_Report()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long, titleIndex As Integer
    Dim titleArray As Variant
    
    ' 定义各模块对应的标题，可根据实际需求修改
    titleArray = Array("Total", "Market Overview", "User Activity", "Revenue Summary")
    
    Set ws = ThisWorkbook.Worksheets("DATA")
    lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
    titleIndex = 0
    
    ' 从下往上遍历，避免插入行导致的行号偏移问题
    For i = lastRow To 1 Step -1
        ' 检查当前行及下两行是否都是空行（3个连续空行）
        If ws.Cells(i, 1).Value = "" And ws.Cells(i + 1, 1).Value = "" And ws.Cells(i + 2, 1).Value = "" Then
            ' 在第二空行（i+1行）的B列插入标题
            ws.Cells(i + 1, 2).Value = titleArray(titleIndex)
            ' 设置标题格式（灰色字体，可按需调整）
            ws.Cells(i + 1, 2).Font.Color = RGB(128, 128, 128)
            
            ' 切换到下一个标题，循环使用（如果标题数量不足）
            titleIndex = (titleIndex + 1) Mod UBound(titleArray) + 1
        End If
    Next i
End Sub

代码关键说明 #

1. 标题数组定义：titleArray 存放各模块的标题，可根据实际运营模块数量和名称修改
2. 反向遍历：从最后一行往上遍历，避免插入内容后导致后续行号偏移，确保所有连续空行都能被正确识别
3. 连续空行判断：检查当前行及后续两行是否均为空，匹配"3个换行分隔"的规则
4. 标题插入与格式设置：在3个空行的第二行（i+1行）的B列写入标题，并设置灰色字体，匹配示例效果
5. 标题循环使用：通过取模运算实现标题数组的循环调用，避免标题数量不足时出错

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