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

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 818 Downloads 340


ANmarAmdeen
612
Attachments
Components VBA-Excel
Revisions

v1.0