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

CodeFunctionName
What is this?

Public

Tested

Original 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 2,340

Downloads 838

CodeID
DB ID