アクティブシートの結合されたセルの結合を解除して，すべてのセルの値を結合元のセルの値で埋めます。

Unmerge.bas

Option Explicit

' アクティブシートの結合されたセルの結合を解除して，すべてのセルの値を結合元のセルの値で埋めます。
Public Sub Unmerge()
   Dim OuterCell As Variant
   Dim InnerCell As Variant
   Dim Value As Variant
   Dim Updating As Boolean  ' 現在のスクリーン更新状態
   
   Updating = Application.ScreenUpdating
   ' スクリーン更新停止
   Application.ScreenUpdating = False

   For Each OuterCell In ActiveSheet.UsedRange
      Value = OuterCell.Value
      For Each InnerCell In OuterCell.MergeArea
         InnerCell.MergeCells = False
         InnerCell.Value = Value
      Next InnerCell
   Next OuterCell

   ' スクリーン更新状態を元に戻す
   Application.ScreenUpdating = Updating
End Sub