如何编写VBA脚本实现Excel可见工作表单元格取消合并并填充值

你现有代码的核心问题是循环遍历工作表时始终操作激活的工作表（ActiveSheet），没有切换到对应遍历的工作表，同时没有过滤隐藏工作表，不符合需求。修正后的可直接运行代码如下：

Sub 拆分合并单元格并填充值()
    Dim WS_Count As Integer
    Dim I As Integer
    Dim cell As Range, joinedCells As Range
    
    ' 关闭屏幕更新，大幅提升大批量数据处理效率
    Application.ScreenUpdating = False
    
    ' 获取当前工作簿总工作表数量
    WS_Count = ActiveWorkbook.Worksheets.Count
    
    ' 遍历所有工作表
    For I = 1 To WS_Count
        ' 仅处理可见工作表，跳过隐藏表
        If Worksheets(I).Visible = xlSheetVisible Then
            ' 遍历当前工作表所有包含数据的单元格
            For Each cell In Worksheets(I).UsedRange
                ' 判断单元格是否属于合并区域
                If cell.MergeCells Then
                    Set joinedCells = cell.MergeArea
                    ' 取消单元格合并
                    cell.MergeCells = False
                    ' 将原合并单元格的值填充到整个原合并区域
                    joinedCells.Value = cell.Value
                End If
            Next
        End If
    Next I
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    MsgBox "所有可见工作表处理完成！", vbInformation
End Sub

功能匹配说明 #

• 自动过滤处理范围内的隐藏工作表，仅处理所有可见工作表
• 自动定位工作表内所有包含数据的单元格区域，无需手动选中
• 自动取消所有合并单元格的合并状态
• 自动将原合并单元格存储的数值填充到所有拆分得到的单元格

使用注意 #

• 运行脚本前建议备份原工作簿，避免操作失误导致数据丢失
• 如果工作簿数据量较大，运行时会短暂出现Excel无响应的情况，等待弹窗提示完成即可

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