excel中合并单元格拆分后填充原数据。

下面的代码就是你要的
Sub 取消合并并还原数据()
    Dim a As Range, b As Range
    For Each a In Activ