Sub UnmergeEColumn()

    Dim ws As Worksheet

    Dim rng As Range

    Dim cell As Range

    Dim lastRow As Long

    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称

    lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row ' 获取E列最后一个非空单元格的行号

    Dim cr As Integer

    Dim rc As Integer

    Dim i As Integer

    For Each cell In ws.Range("E1:E" & lastRow)

        If cell.MergeCells Then

            cr = cell.Row

            rc = cell.MergeArea.Rows.Count

            cell.MergeCells = False ' 取消合并

            For i = cr To cr + rc - 1

                ws.Range("E" & i).Value = cell.Value

            Next i

        End If

    Next cell

End Sub