The Excel VBA script un-merge cells and copy contents to them. It runs on current worksheet. - Excelの開いているシートにある全ての結合セルを分解し、それぞれに内容をコピーするVBA

BreakUpCells.bas

Option Explicit

Sub breakUpMergedCells()
    Dim curSheet As Worksheet
    Dim eCell As Range, curRange As Range
    Dim curAddr As String
    Dim fillCell As Range
    Dim filledValue As String

    Set curSheet = ActiveSheet
    Set eCell = curSheet.Cells.SpecialCells(xlCellTypeLastCell)

    For Each curRange In curSheet.Range(curSheet.Range("A1"), eCell)
        If curRange.MergeCells Then
            curAddr = curRange.MergeArea.Address
            filledValue = curRange.Formula
            curRange.UnMerge
            For Each fillCell In curSheet.Range(curAddr)
                fillCell.Formula = filledValue
            Next
        End If
    Next
End Sub