如何解析现有工作表单元格文本与填充自动生成等价VBA宏

核心对齐规则 #

完全匹配原生宏录制器的输出效果，所有生成的代码严格遵循录制器默认逻辑：

• 自动聚合同填充格式、相同文本内容的相邻单元格为连续范围，不逐单元格生成冗余代码
• 填充属性统一通过Interior对象的对应属性赋值，不引入自定义格式对象
• 单元格文本内容逐范围匹配写入，完全还原排版后的显示文本
• 跳过手动操作步骤，直接从已完成排版的现有工作表读取指定目标范围的属性值

可直接运行的核心实现代码 #

Sub 自动生成等效录制宏()
    Dim targetRng As Range, cell As Range
    Dim outCode As String
    Dim currentGroupRng As Range
    Dim lastFillColor As Long, lastText As String
    ' 交互选择需要分析属性的目标单元格范围
    Set targetRng = Application.InputBox("请选择需要提取属性生成宏的单元格范围", Type:=8)
    outCode = "Sub 等效排版宏()" & vbCrLf
    ' 初始化首个聚合块
    Set currentGroupRng = targetRng.Cells(1)
    lastFillColor = currentGroupRng.Interior.Color
    lastText = currentGroupRng.Text
    ' 逐单元格遍历、匹配聚合同属性块
    For Each cell In targetRng
        If cell.Interior.Color = lastFillColor And cell.Text = lastText Then
            Set currentGroupRng = Union(currentGroupRng, cell)
        Else
            ' 输出当前聚合块的赋值代码
            outCode = outCode & "    '" & currentGroupRng.Address(0, 0) & " 范围格式设置" & vbCrLf
            outCode = outCode & "    Range(""" & currentGroupRng.Address(0, 0) & """).Interior.Color = " & lastFillColor & vbCrLf
            If lastText <> "" Then
                outCode = outCode & "    Range(""" & currentGroupRng.Address(0, 0) & """).Value = """ & Replace(lastText, """", """""") & """" & vbCrLf
            End If
            ' 重置下一个聚合块的基准值
            Set currentGroupRng = cell
            lastFillColor = cell.Interior.Color
            lastText = cell.Text
        End If
    Next
    ' 输出最后一个聚合块的赋值代码
    outCode = outCode & "    '" & currentGroupRng.Address(0, 0) & " 范围格式设置" & vbCrLf
    outCode = outCode & "    Range(""" & currentGroupRng.Address(0, 0) & """).Interior.Color = " & lastFillColor & vbCrLf
    If lastText <> "" Then
        outCode = outCode & "    Range(""" & currentGroupRng.Address(0, 0) & """).Value = """ & Replace(lastText, """", """""") & """" & vbCrLf
    End If
    outCode = outCode & "End Sub"
    ' 生成的等效宏代码输出到立即窗口，可直接复制使用
    Debug.Print outCode
End Sub

实际运行效果 #

• 生成的宏代码运行后，可1:1复现指定范围的排版效果，和手动录制宏的最终呈现结果无差异
• 自动聚合同属性连续范围，生成的代码比逐单元格录制的原生宏更精简，无冗余操作
• 仅提取文本内容、填充格式两类指定属性，不会额外带入字体、边框、行高列宽等无关录制内容

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