UnMergeFill

Unmerges all merged cells and duplicate cell contents into them.
In another word
Remove merging in cells and fill in values into new cells


Public

Tested

My Own Work
Sub UnMergeFill()
 Dim cell As Range, joinedCells As Range
 For Each cell In ThisWorkbook.ActiveSheet.UsedRange
  If cell.MergeCells Then
   Set joinedCells = cell.MergeArea
   cell.MergeCells = False
   joinedCells.Value = cell.Value
  End If
 Next
End Sub

None

Views 1262 Downloads 487

VBA-Excel Components
ANmarAmdeen
660
Attachments
Revisions

v1.0