Excel VBA技术需求：表头值填入灰色单元格并清理空单元格

需求说明 #

• 原始表格：带有固定表头，且包含前3个测量列
• 目标单元格：背景色为非基础ColorIndex的灰色（对应颜色值为14737632）
• 核心操作：
  1. 将灰色单元格所在列的表头内容，填充至该灰色单元格
  2. 删除所有空白的非灰色单元格，同时移除表头行，最终生成各列仅保留有效记录对象的列表

VBA代码实现 #

Sub CreateDoc()
    Dim rng As Range
    Dim Col As Range
    Dim Cell As Range
    Dim TargetColor As Long
    
    ' 定位Sheet1中从A2开始的有效数据区域
    Set rng = Worksheets("Sheet1").Range("A2").CurrentRegion
    ' 目标灰色的背景色值
    TargetColor = 14737632

    ' 填充灰色单元格：将对应列表头内容填入灰色单元格
    For Each Col In rng.Columns
        ' 跳过前3列（为测量列，无需处理）
        If Col.Column > 3 Then
            For Each Cell In Col.Cells
                ' 判断单元格是否为目标灰色
                If Cell.Interior.Color = TargetColor Then
                    ' 将该列表头内容填充到灰色单元格
                    Cell.Value = Col.Cells(1, 1).Value
                End If
            Next Cell
        End If
    Next Col

    ' 清理空白单元格：删除非灰色的空白单元格（左移补位）
    For Each Col In rng.Columns
        If Col.Column > 3 Then
            For Each Cell In Col.Cells
                ' 判断单元格是否为空白且非目标灰色
                If Cell.Value = "" And Cell.Interior.Color <> TargetColor Then
                    Cell.Delete shift:=xlLeft
                End If
            Next Cell
        End If
    Next Col
            
    Set rng = Nothing
End Sub

注：原代码中Cell.Replace方法简化为直接赋值Cell.Value = Col.Cells(1,1).Value，逻辑更清晰；同时补充空白单元格的判断条件（排除灰色单元格），避免误删已填充的目标单元格。

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