Skip to content

Instantly share code, notes, and snippets.

@arunkumr

arunkumr/Unmerge.vba

Last active November 23, 2016 09:02
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save arunkumr/5626f53fe94f32a50bc071293df5b2f0 to your computer and use it in GitHub Desktop.
Save arunkumr/5626f53fe94f32a50bc071293df5b2f0 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Unmerge.vba
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment