如何设置带循环功能的宏：拆分单元格、批量填充公式并设字体颜色

以下是满足需求的VBA宏代码，可直接使用：

Sub ProcessMergedCells()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim lastCol As Long
    Dim i As Long, j As Long
    Dim targetFormula As String
    
    ' 指定目标工作表，可修改为具体工作表名称（如Sheets("Sheet1")）
    Set ws = ThisWorkbook.ActiveSheet
    
    ' 取消工作表内所有单元格的合并
    ws.Cells.UnMerge
    
    ' 动态获取最后一行和最后一列，适配任意行数的数据
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' 遍历第1行的每个单元格，处理无填充色的目标单元格
    For j = 1 To lastCol
        If ws.Cells(1, j).Interior.ColorIndex = xlColorIndexNone Then
            targetFormula = ws.Cells(1, j).Formula
            
            ' 循环复制公式到下方所有行，并设置文本颜色为浅灰色
            For i = 2 To lastRow
                ws.Cells(i, j).Formula = targetFormula
                ws.Cells(i, j).Font.Color = RGB(191, 191, 191)
            Next i
        End If
    Next j
    
    MsgBox "处理完成！"
End Sub

代码功能拆解 #

• 取消合并单元格：ws.Cells.UnMerge命令一次性解除工作表内所有行的单元格合并状态，无需逐行处理。
• 复制第1行无填充单元格公式：遍历第1行所有列，判断单元格是否为无填充状态（xlColorIndexNone），获取公式后批量写入到对应列的所有行中。
• 设置浅灰色文本：在复制公式的循环中，同步通过RGB(191,191,191)设置字体为浅灰色，如需调整灰度，修改RGB数值即可。
• 适配超1000行数据：通过lastRow动态获取工作表实际数据的最后一行，不管数据量多大，循环都会自动覆盖所有行，无需固定行数。

使用方法 #

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器；
2. 右键点击左侧工程窗口的工作簿名称，选择「插入」→「模块」；
3. 将上述代码粘贴到模块的代码编辑区；
4. 返回Excel界面，按下Alt + F8，选择ProcessMergedCells宏执行。

内容的提问来源于stack exchange，提问作者Happy Pig Wong